XL 2019 Code VBA Vlookup

[JLR67]

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

 

[Jacky67]

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

Bonjour,
Une proposition au changement direct de Textbox1

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

 

[JLR67]

Merci Jacky,

Ce code fonctionne très bien.
Encore merci à toi.

Problème résolu