slt à vous,
Je n sais pas ou je fait l'erreur mais ça ne fonctionne pas du tout, alors que ça me semblais simple aujourd'hui ! mails la !!
En gros je voudrais juste écrire ds ma listbox dont la source est un combobox .
Cette listbox a, au lancement de l'user aucune information ! Par un bouton, je voudrais lui envoyer des éléments ds cette listbox, la suite des autres, mais pour le moment aucun ne passe, le plus bizarre est que je l'ais fait à plusieurs reprise en provenance de feuilles !
Merci pour votre réponse!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 Private Sub CommandButton1_Click() Dim NuméroLigneListBox As Long Dim d As Variant NuméroLigneListBox = 0 With ListBox2 '.Clear .ColumnCount = 11 '.ColumnWidths = "100;40" For d = 0 To ListBox2.ListCount - 1 MsgBox d If ListBox2.List(NuméroLigneListBox, 0) = "" Then .AddItem .List(NuméroLigneListBox, 0) = ComboBox6 NuméroLigneListBox = NuméroLigneListBox + 1 End If Next d End With End Sub
jijie
Partager