Problème RechercheV
Bonjour,
Je travaille sur un UserForm, là où je sélectionne le numéro de semaine à partir d'une liste déroulante nommée "Semaine" pour détecter le premier jour de cette semaine dans un TextBox nommé "Lundi_Box", j'ai utilisé pour cela ce code :
If frmForm.Semaine.Value = "" Then
MsgBox "Vérifier la Date"
Else
frmForm.Lundi_Box.Value = Application.WorksheetFunction.VLookup("frmForm.Semaine.Value", Sheets("Info_Base").Range("AB2:AC366"), 2, 0)
End If
Le message d'erreur c'est : "Unable to get the Vlookup property of the WorksheetFunction class"
Comment peut on résoudre cela? et merci.
Hello,
Essaie d'enlever les guillemets autour de frmForm.Semaine.Value, la il te cherche juste le texte donc pas bon.
N'hésite pas si besoin
@+
Bonjour,
2 modifs :
frmForm.Lundi_Box.Value = CDate(Application.WorksheetFunction.VLookup(Val(frmForm.Semaine.Value), Sheets("Info_Base").Range("AB2:AC366"), 2, 0))Pour mettre en forme de date, CDate, et pour considérer la valeur du combo "frmForm.Semine.Value" en numérique, l'instruction "Val"
Bon courage
Merci infiniment ! ça marche bien.