WorksheetFunction.Index

[Lu K]

Bonjour le forum,

Je veux utilisé dans un Userform une fonction équivalente à rechercheV pour mettre le résultat dans un Label. Après plusieur recherche, j'ai trouvé une fonction équivalente qui est Index.

Mais voila, celle-ci ne fonctionne pas mieux que VLookup. Dans ma colonne "C" il y a mes références, testbm.numero1 est ma recheche et 12 correspont à la colonne "N".

Code :

testbm.nreception1.Caption = WorksheetFunction.Index(Range("c3:n5000").Value, testbm.numero1.Value, 12)

Cette fonction "fonctionne" lorsque que ma recherche est limité à un chiffre contenant 2 numéro. Au dela : Y'as plus rien qui marche. Si ma recherche = 1 il me donne la correspondance de la colonne "N". Si ma recherche = 125365, ça marche pas !!!

Quelque peut m'aider ?

Merci d'avance

 

[Pierrot93]

Re : WorksheetFunction.Index

Bonjour,

essaye peut être la méthode "find", native dans vba...

bon après midi
@+

 

[Lu K]

Re : WorksheetFunction.Index

Bonjour Pierrot93,

Merci pour t'as réponse ça marche Nickel.

Voici mon code.

On Error Resume Next
If testbm.numero1.Value = "" Then
testbm.nreception1.Caption = ""
Else
Dim Fiche As String
Fiche = testbm.numero1.Value
With Sheets("Feuil1").Range("c2:c5000")
Set c = .Find(Fiche, LookIn:=xlValues)
testbm.nreception1.Caption = c.Offset(0, 11)
End With
End If