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

[Noutchi]

Bonjour à tous,

J'ai un petit problème que j'essaie de résoudre. Dans un tableau je recherche une valeur très précise (déjà déterminé) et je voudrais qu'il me renvoie la valeur de la première ligne de la colonne.

Un petit exemple pour plus de compréhension

A B C D
1: 1x 2x 3x 4x
2: 5 7 3 4
3: 1 6 2 8
4: 9 11 13 10

Ex : je recherche la valeur 7, il me renvoie 2x
je recherche la valeur 8, il me renvoie 4x

Merci 🙂

 

[job75]

Bonsoir Noutchi, bienvenue sur XLD,

Exécutez par exemple cette macro :

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+

 

[mapomme]

Bonsoir @Noutchi, @job75,

Avec une formule matricielle...

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

 

[Noutchi]

Merci mapomme. Fonctionne très bien 🙂

 

[SLUI]

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

 

[JHA]

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

 

[mapomme]

Bonjour @SLUI 🙂

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

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

 

[mapomme]

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.

 

[SLUI]

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