Bonjour,Bonjour le Forum,
J'ai besoin de vos lumières concernant un code avec la fonction VlooKup.
Je n'arrive pas à la faire fonctionner sur mon UserForm.
Ci joint mon fichier de test.
Pouvez vous m'aider Svpl.
Merci à vous
Private Sub TextBox1_Change()
If TextBox1 = "" Then TextBox2 = "": Exit Sub
If Application.CountIf(Sheets("Feuil1").Range("A:A"), Me.TextBox1.Value) = 0 Then
MsgBox "Ce N° de Semaine n'existe pas. Veuillez en resaisir un Autre": Exit Sub
End If
TextBox2 = Application.VLookup(CLng(TextBox1), Sheets("Feuil1").Range("A2:E54"), 5, 0)
End Sub