XL 2019 Code VBA Vlookup

JLR67 · 6 Mai 2023

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 · 6 Mai 2023

JLR67 à dit:
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

VB:

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 · 7 Mai 2023

Merci Jacky,

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

Problème résolu

XL 2019 Code VBA Vlookup

JLR67

XLDnaute Nouveau

Pièces jointes

Jacky67

XLDnaute Barbatruc

JLR67

XLDnaute Nouveau

Discussions similaires