Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Equivalence de la fonction RECHERCHEH

  • Initiateur de la discussion Initiateur de la discussion bernard03
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

bernard03

Guest
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
 

Pièces jointes

Dernière modification par un modérateur:
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.
 
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…