Discussion :

[jijie]

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

[Daniel.C]

Bonjour,

Je ne comprends pas ce que tu veux mettre dans ListBox2. Tu ne peux pas utiliser "AddItem" sans argument. Est-ce que la listbox contient déjà des valeurs ? Donne un exemple de ce que tu veux ?

[jijie]

Salut Daniel

Je voudrais juste ajouter la valeur du combobox dans ma listbox !!

Mais je sais pas ou je vais chercher des complications ou il n'y en à pas ! Je crois que aujourd'hui j'ais l'esprit tordu !!!!!

Enfin la seule chose que je voulais faire est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ListBox2.AddItem 'ajout d'une ligne
ListBox2.List(ListBox2.ListCount - 1, 0) = ComboBox6.Text

Franchement il y a des jours !! 1 heure perdu!

En tout cas merci pour t'être penché aussi rapidement! d'ailleurs, merci encore pour la dernière fois, car grâce à ton système de filtre j'ai réaliser un petit user qui me filtre une feuille de + de 6000 à 10000 lignes avec 6 critères de condition, et ça fonctionne super bien!

alors à très bientôt !

jijie

[Daniel.C]

Tu peux même mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListBox2.AddItem ComboBox6.Text

[jijie]

OK et merci !