[XL-2007] essai textbox vers listbox [Résolu]

[grisan29]

bonjour a vous

j'essaie en vain d'envoyer la valeur de 3 textbox dans 3 colonnes d'une listebox, mais je n'arrive qu'a le faire que dans une seulle colonne avec les données qui se suivent voici le code utilisé

Code :

1
2
3
4
5
Private Sub CommandButton1_Click()
    ListBox1.AddItem TextBox1.Value
    ListBox1.AddItem TextBox2.Value
    ListBox1.AddItem TextBox3.Value
End Sub

et aussi est ce que ce code ci dessous est bon si les données sont bien distribuées dans la listbox pour remettre la ligne qui sera doublecliquée dans les textbox afin d'en modifié une des données si nécéssaire

Code :

1
2
3
4
5
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Me.TextBox1.Text = Me.ListBox1.Column(0, Me.ListBox1.ListIndex)
    Me.TextBox2.Text = Me.ListBox1.Column(1, Me.ListBox1.ListIndex)
    Me.TextBox3.Text = Me.ListBox1.Column(2, Me.ListBox1.ListIndex)
End Sub

merci par avance de vos sugestions

cordialement

Pascal

[jfontaine]

Bonjour,

Essais comme cela

Code :

1
2
3
4
5
6
 
ListBox1.ColumnCount = 3
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = TextBox1.Text
ListBox1.List(ListBox1.ListCount - 1, 1) = TextBox2.Text
ListBox1.List(ListBox1.ListCount - 1, 2) = TextBox3.Text

[grisan29]

bonsoir Jérôme

Merci beaucoup de ton code qui est bien conçu du moins pour mon utilisation, j'ai meme essayer l'autre code et ca marche

encore merci

cordialement

Pascal