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

XL 2019 Code VBA Vlookup

JLR67

XLDnaute Nouveau

Pièces jointes

Jacky67

XLDnaute Barbatruc

JLR67

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency