Find?

[Faro]

Bonjour.

Suite a une question posé ici, j'ai réussit a écrire le code suivant, qui va rechercher dans la colonne 1 une valeur égale au nom de ma feuille et me retourne la valeur correpondante de la colonne 2.


Dim rub As String, texte_aide As String
Dim lig As Long

rub = ActiveSheet.Name

With Worksheets("Aide")
lig = .Columns(1).Find(rub, Range("a1"), , , xlByRows).Row
texte_aide = .Cells(lig, 2)
End With

Label1.Caption = texte_aide

End Sub

Le problème : J'ai des références très senblable (M01 et M012). Lorsceque je fais une recherche sur la valeur M01, il s'arrète sur M012

Est il possible de faire une comparaison réele avec la commande find?

Faro

 

[Faro]

Oups excuser, j'avais pas bien chercher sur le forum, la solution c'est de replacer la ligne :

lig = .Columns(1).Find(rub, Range("a1"), , , xlByRows).Row

par la ligne :

lig = .Columns(1).Find(rub, Range("a1"), , xlWhole, xlByRows).Row

 

[EricS]

Bonjour,

je pense que find cherche la chaîne de caractère

Par contre, tu peux comparer le contenu de rub et de la cellule trouvée et utiliser une boucle de type while

while rub <> "cellule"
findnext....
wend

A+
Eric