Equivalence de la fonction RECHERCHEH

[bernard03]

Bonjour,
J'ai beaucoup de difficultés en VBA et aussi en anglais
Je cherche l'équivalence de la fonction RECHERCHEH à intégrer dans un module VBA
Lorsque je met =RECHERCHEH(A7;A1:F4;3;VRAI) dans une cellule, j'ai le résultat 3,00
Je cherche à transposer cette formule en VBA pour initialiser le caption d'un label; et là : ça coince

Private Sub UserForm_initialize()
Dim Essai As Single
Essai = Application.WorksheetFunction.HLookup("01/02/2014", Worksheets("Feuil1").Range("a1:f4"), 2, True)
Label1.Caption = Essai
End Sub

Si vous pouvez m'aider
Merci d'avance

 

[sourcier08]

Re : Equivalence de la fonction RECHERCHEH

Salut bernard03, le forum.


Essai = Application.WorksheetFunction.HLookup(Worksheets("Feuil1").Range("a7"), Worksheets("Feuil1").Range("a1:f4"), 3, True)

Tu n'étais pas loin.

 

[bernard03]

Re : Equivalence de la fonction RECHERCHEH

Merci sourcier08

Sympa d'avoir réfléchi à mon problème.
Par contre ça ne fonctionne pas.
Entre temps, j'ai fait d'autres recherches, et j'ai trouvé ma solution en piochant dans les idées des autres

Private Sub UserForm_initialize()
Dim datedebut As Date, res As String, res2 As Double, Achat1 As Single
datedebut = Range("Date_Sélectionnée").Value
res = CStr(datedebut)
res2 = DateValue(res)
Achat1 = Application.WorksheetFunction.HLookup(res2, Worksheets("Feuil1").Range("a1:f4"), 3, True)
Label1.Caption = Format(Achat1, "#,##0.00")

End Sub

 

[sourcier08]

Re : Equivalence de la fonction RECHERCHEH

Par contre ça ne fonctionne pas.

J'ai répondu à ta demande et ça fonctionne parfaitement chez moi. Enfin, l'important est que tu as trouvé une solution à ton problème.

 

[bernard03]

Re : Equivalence de la fonction RECHERCHEH

Merci encore,
J'ai revérifié et effectivement ça marche.
Merci encore pour ton aide