Discussion :

[vivi4561]

Bonjour,

Je souhaiterai récupérer le titre d'une colonne où se trouve la valeur cherchée au sein d'une matrice.

Ex :
Tata Toto Titi
A1 B1 C1
A2 B2 C2
A3 B3 C3

Si j'ai la valeur C2, je souhaiterai avoir le résultat : "Titi".
J'ai essayé de faire avec INDEX et EQUIV mais impossible de le faire marcher.

Petite précision : les valeurs dans la matrice ne sont pas classées par ordre alphabétique.

Merci d'avance pour votre aide,

Vincent

[pgz]

Bonjour.

Voici une fonction qui renvoie le titre de la colonne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function fTitre(ByVal oRng As Excel.Range, ByVal vValue As Variant) As String
Dim i As Integer, j As Integer, v As Variant
 
v = oRng.Value
For i = 2 To UBound(v, 1)
    For j = 1 To UBound(v, 2)
        If v(i, j) = vValue Then Exit For
    Next j
    If j <= UBound(v, 2) Then Exit For
Next i
 
If j <= UBound(v, 2) Then
    fTitre = v(1, j)
Else
    fTitre = ""
End If
 
End Function

Pour l'utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
MsgBox fTitre(ThisWorkbook.Worksheets(1).Range("A1:C4"), "B2")
End Sub

Cordialement,

PGZ

[vivi4561]

Bonjour,

Merci beaucoup pour ce code.
ça marche parfaitement : balèze le code !


Vincent