(RÉSOLUE) recherche une valeur dans un tableau et renvoi l'entete de colonne

job75

XLDnaute Barbatruc

• 3 Janvier 2019

• #2

Bonsoir Noutchi, bienvenue sur XLD,

Exécutez par exemple cette macro :

Code:

Sub EnTeteColonne()
Dim x$, c As Range
x = InputBox("Valeur cherchée :")
If x = "" Then Exit Sub
With [A1].CurrentRegion 'tableau à adapter
    Set c = .Find(x, , xlValues, xlWhole)
    If c Is Nothing Then MsgBox x & " pas trouvé..." Else _
        MsgBox "En-tête : " & Intersect(.Rows(1), c.EntireColumn)
End With
End Sub

A+

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 3 Janvier 2019

• #3

Bonsoir @Noutchi, @job75,

Avec une formule matricielle...

VB:

=SIERREUR(INDEX(2:2;1/(1/MAX((A3:D5=F1)*COLONNE(A3:D5))));"")

 

Pièces jointes

• Noutchi- recherche- v1.xlsx

  13.2 KB · Affichages: 43

Vote positif 0 Vote négatif

N

Noutchi

XLDnaute Nouveau

• 4 Janvier 2019

• #4

Merci mapomme. Fonctionne très bien

 

Vote positif 0 Vote négatif

S

SLUI

XLDnaute Nouveau

• 4 Mars 2021

• #5

Bonjour mapomme,
Serait-il possible d'expliquer la formule car je n'arrive pas à la reproduire pour mon cas.
Merci,
Sara

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 4 Mars 2021

• #6

Bonjour à tous,

Avec la formule sur un fichier.

Pour comprendre ce que fait la formule​

Dans le ruban, onglet Formules/Evaluer la formule/Evaluer​

Cliquer de nouveau sur évaluer après compréhension de l'étape de la formule​

JHA

 

Pièces jointes

• Classeur SLUI.xlsx

  9.4 KB · Affichages: 6

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 4 Mars 2021

• #7

Bonjour @SLUI

Voir explications détaillées dans le fichier joint.

edit : 4/3/21 15h30 corrigé fichier & explications

 

Pièces jointes

• Noutchi- recherche- v1 (explication).xlsx

  15.8 KB · Affichages: 11

Dernière édition: 4 Mars 2021

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 4 Mars 2021

• #8

Bonjour @JHA ,

Je n'avais pas rafraichi donc pas vu que tu avais répondu et comme d'hab je ne pense jamais au "Évaluer" du ruban

SLUI pourra faire les deux.

 

Vote positif 0 Vote négatif

S

SLUI

XLDnaute Nouveau

• 8 Mars 2021

• #9

Ca marche cette fois!
Un grand merci à vous deux, vous êtes super!!
Je ne connaissais pas "Evaluer".
Bonne semaine!

 

Vote positif 0 Vote négatif