D
denis
Guest
Bonjour à tous !
J'ai 2 listbox dans un userform et 1 classeur source à 2 colonnes :
Exemple classeur source :
Colonne 1 - Colonne 2
Paris - France
Milan - Italie
Si je choisis Paris dans Listbox 1, alors je veux qu'il m'affiche France automatiquement dans Listbox 2.
soit la valeur de la colonne 2 meme ligne que la colonne 1
Voici le code pour le moment :
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Workbooks('Liste.xls').Sheets('Feuil1').Range('A1').End(xlDown).Row
Colonne1.AddItem Workbooks('Liste.xls').Sheets('Feuil1').Cells(i, 1)
Next i
End Sub
Comment lui coder la valeur automatique de la listbox 2??
sachant qu'il dépend du choix de la listbox1 , à une valeur de listbox 1 correspond une valeur dans listbox2
J'ai essayé recherche v mais j'ai un classeur source de 250 lignes , j'aimerai que ca se fasse dans le module de ma macro
et non sur excel directement.
Quelqun voit il la solution ??
c surement juste une ligne à ajouter ..du genre
Colonne2.AddItem Workbooks('Liste.xls').Sheets('Feuil1').Cells(i, 2) .. mais ca ne marche pas !
J'ai 2 listbox dans un userform et 1 classeur source à 2 colonnes :
Exemple classeur source :
Colonne 1 - Colonne 2
Paris - France
Milan - Italie
Si je choisis Paris dans Listbox 1, alors je veux qu'il m'affiche France automatiquement dans Listbox 2.
soit la valeur de la colonne 2 meme ligne que la colonne 1
Voici le code pour le moment :
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Workbooks('Liste.xls').Sheets('Feuil1').Range('A1').End(xlDown).Row
Colonne1.AddItem Workbooks('Liste.xls').Sheets('Feuil1').Cells(i, 1)
Next i
End Sub
Comment lui coder la valeur automatique de la listbox 2??
sachant qu'il dépend du choix de la listbox1 , à une valeur de listbox 1 correspond une valeur dans listbox2
J'ai essayé recherche v mais j'ai un classeur source de 250 lignes , j'aimerai que ca se fasse dans le module de ma macro
et non sur excel directement.
Quelqun voit il la solution ??
c surement juste une ligne à ajouter ..du genre
Colonne2.AddItem Workbooks('Liste.xls').Sheets('Feuil1').Cells(i, 2) .. mais ca ne marche pas !