Petite question sur listbox
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 !
Code:
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 |
Merci pour votre réponse!
jijie
