Bonjour le forum,
J'ouvre une nouvelle discussion pour mon projet car l'autre est devenue trop longue et n'a plus rien à voir avec le début.
Voici mon problème:
j'ai un UserForm avec un ListBox1 (1 colonne) qui s'alimente comme je le veut et un ListBox2 multichoix (5 colonnes dont 4 masquées) qui ne s'alimente pas comme je veux...
En résumé:
La ListBox2 se rempli selon le choix fait dans la ListBox1. Les données sont prises dans la feuille portant le nom de la séléction de l'Item dans la ListBox1 -> Worksheets("ListBox1.ListIndex"), les données viennet des colonnes A à E (seul. B sera visible dans la ListBox2).
Voici mon code... qui ne fonctionne pas, sinon je ne serais pas venue vers vous!!!
Une Idée?
Merci d'avance
pnlop
J'ouvre une nouvelle discussion pour mon projet car l'autre est devenue trop longue et n'a plus rien à voir avec le début.
Voici mon problème:
j'ai un UserForm avec un ListBox1 (1 colonne) qui s'alimente comme je le veut et un ListBox2 multichoix (5 colonnes dont 4 masquées) qui ne s'alimente pas comme je veux...
En résumé:
La ListBox2 se rempli selon le choix fait dans la ListBox1. Les données sont prises dans la feuille portant le nom de la séléction de l'Item dans la ListBox1 -> Worksheets("ListBox1.ListIndex"), les données viennet des colonnes A à E (seul. B sera visible dans la ListBox2).
Voici mon code... qui ne fonctionne pas, sinon je ne serais pas venue vers vous!!!
Private Sub ListBox1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
With ListBox1.ListIndex
Dim i As Integer, j As Byte
For j = 0 To 4
ListBox2.List() = Worksheets("ListBox1.ListIndex").Range("i" & j).Value
Next
End With
End Sub
Private Sub UserForm_Initialize()
With ListBox1
.ListStyle = fmListStyleOption
.List = Sheets("termes").[B11:B17].Value
End With
With ListBox2
Dim i As Integer, j As Integer
.ListStyle = fmListStyleOption
.MultiSelect = fmMultiSelectMulti
.ColumnCount = 5
.ColumnWidths = "0; 200;0 ; 0 ; 0"
End With
End Sub
Une Idée?
Merci d'avance
pnlop
Dernière édition: