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 : 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
Merci pour votre réponse!

jijie