[VBA] remplir une listBox Résolu/Fermé

Question

Bonjour,
je voudrais remplir une listbox2 à partir d'une autre listbox1, OptionBottun et textbox. j'ai donc mis les trois valeurs dans un tableau mais après avoir essayer plusieurs instructions, je n'ai pas réussi à remplir ma listbox2.
coment faire pour resoudre cet problème ?

Utilisateur anonyme · Accepted Answer

re :

Il n'est pas possible d'ajouter un tableau dans une seule instruction !

Il faut vraiment procéder comme démontrer dans mon exemple :

' Première colonne
Me.ListBox2.AddItem TextBox.Text

'Deuxième colonne
Me.ListBox2.List(Me.ListBox2.ListCount - 1, 1) = OptionButton1.Value

'Troisième colonne
Me.ListBox2.List(Me.ListBox2.ListCount - 1, 2) = Me.ListBox1.List(0)


Lupin

lermite222 · Answer

bonjour,
pour ajouter dans listbox..
    Sheets("Feuil1").ListBox1.AddItem "La variable"
A+

Aymarr · Answer

en faite pour ajouter dans la listbox2, une ligne de trois colonne. Le rajout se fait par un Commandebutton

lermite222 · Answer

Toujours pas très claire mais peut-être ceci...
dans le module de la feuille où est le bouton.
Private Sub CommandButton1_Click()
Dim Txt As String, i As Integer, R As Integer
'sélectionner d'abord une cellule dans la ligne à ajouter
    R = ActiveCell.Row
    For i = 1 To 3: Txt = Txt & Cells(R, i).Value & " : ": Next i
    Sheets("Feuil1").ListBox1.AddItem Txt
End Sub
A+

Utilisateur anonyme · Answer

Bonjour,

S'il s'agit de remplir une listbox a multicolonne !


Option Explicit

Private Sub CommandButton1_Click()

    Dim Valeur1 As String, Valeur2 As String, Valeur3 As String
    
    Valeur1 = Range("A1").Value
    Valeur2 = Range("B1").Value
    Valeur3 = Range("C1").Value
    
    Me.ListBox1.Clear
    Me.ListBox1.AddItem Valeur1
    Me.ListBox1.AddItem Valeur2
    Me.ListBox1.AddItem Valeur3
    
    Me.ListBox2.Clear
    
    Me.ListBox2.AddItem Me.ListBox1.List(0)
    Me.ListBox2.List(Me.ListBox2.ListCount - 1, 1) = Me.ListBox1.List(1)
    Me.ListBox2.List(Me.ListBox2.ListCount - 1, 2) = Me.ListBox1.List(2)
    
End Sub
'

Private Sub CommandButton2_Click() ' Mise a zéro
    Me.ListBox1.Clear
    Me.ListBox2.Clear
End Sub
'

Private Sub CommandButton3_Click() ' Initialise
    Me.ListBox2.ColumnCount = 3
    Me.ListBox2.ColumnWidths = "2 cm;2 cm;2 cm"
End Sub
'

Lupin

Aymarr · Answer

merci Lupin, Lermit222

en fait  je souhaite rajouter une ligne de trois colonnes dans une listbox2. 
je dispose d'un tableau ( 1ligne de 3colonnes [textbox, optionButton, listbox1]) et d'une listbox2 de trois colonne. 

en faite le problème   se pose dans le rajout d'une ligne (les 3 colonnes du mon tableau) à chaque commande (CommandButton), jusqu'à maintenant la nouvelle ligne  ecrase l'ancienne ligne dans la listbox. Le but étant de remplir (rajouter) la listBox2 par les nouvelles [textbox, optionButton, listbox1] à chaque click.


J'ai essayé les commandes suivantes :
Listbox.List = tableau ------> problème : à chaque commande, la nouvelle ligne ecrase l'ancienne
Listbox.AddItem tableau--------> problème : erreur !

Aymarr · Answer

Merci Lupin, c'est une bonne réponse !
 voila l'essentiel :
        Listbox2.AddItem 'ajout d'une ligne
        Listbox2.List(Listbox2.ListCount - 1, 0) = FiberType.Text
        Listbox2.List(Listbox2.ListCount - 1, 1) = spanValue.Value
        Listbox2.List(Listbox2.ListCount - 1, 2) = "Dmin"

[VBA] remplir une listBox

7 réponses

Discussions similaires