Bonjour,
Débutant en VAB, je suis coincé et je sollicite votre aide.
J'ai un classeur et dans feuil2 j'ai des donnés dans les colonnes A, B et C.
Je dispose d'un userform dans lequel j'ai fait une liste ComboBox4 à partir des données de la colonne A.
Un choix dans Combobox4 devra alimenter automatiquement Textbox3 et Texbox4.
Illustration
........... ColonneA.......ColonneB........ColonneC
Ligne1........VAC..........13-650..........18G
Ligne1........POL..........13-675...........28G
Lorsque je choisi par exemple POL dans Combobox4, automatiquement Textbox3 prend la valeur 13-675 et Textbox4 la valeur 28G
Voici un code que j'ai essayé de mettre mais ça marche pas.
Private Sub ComboBox4_Change()
Dim a As Integer
For a = 1 To 9999
If Val(ComboBox4.Value) = range("A1:A" & range("A65536").end(xlup).row) Then
TextBox3 = range("Feuil2!B" & combobox4.listindex+1)
TextBox4 = range("Feuil2!C" & combobox4.listindex+1)
GoTo fin:
End If
Next
fin:
Merci d'avance pour votre assistance.
Débutant en VAB, je suis coincé et je sollicite votre aide.
J'ai un classeur et dans feuil2 j'ai des donnés dans les colonnes A, B et C.
Je dispose d'un userform dans lequel j'ai fait une liste ComboBox4 à partir des données de la colonne A.
Un choix dans Combobox4 devra alimenter automatiquement Textbox3 et Texbox4.
Illustration
........... ColonneA.......ColonneB........ColonneC
Ligne1........VAC..........13-650..........18G
Ligne1........POL..........13-675...........28G
Lorsque je choisi par exemple POL dans Combobox4, automatiquement Textbox3 prend la valeur 13-675 et Textbox4 la valeur 28G
Voici un code que j'ai essayé de mettre mais ça marche pas.
Private Sub ComboBox4_Change()
Dim a As Integer
For a = 1 To 9999
If Val(ComboBox4.Value) = range("A1:A" & range("A65536").end(xlup).row) Then
TextBox3 = range("Feuil2!B" & combobox4.listindex+1)
TextBox4 = range("Feuil2!C" & combobox4.listindex+1)
GoTo fin:
End If
Next
fin:
Merci d'avance pour votre assistance.
Dernière édition: