Ajout colonne listbox

Salut,

Comment fais-tu pour ajouter une ligne entière ?
On va partir de là pour te trouver une soluce  

______________
(Fais attention au règlement quand tu postes du code)

Par exemple insérer à la dernière ligne de la litbox Lstb_pts :

Lstb_pts.AddItem (Val(Txtb_x.Text))

Lstb_pts.List(Lstb_pts.ListCount - 1, 1) = Val(Txtb_y.Text)

Lstb_pts.List(Lstb_pts.ListCount - 1, 2) = Val(Txtb_z.Text)

A quoi cela sert-il que je te prévienne de bien lire le règlement ?  
Va le lire et modifie ton message en conséquence.
C'est une forme de politesse. Or je ne pense pas que tu sois impoli.


---------------------------------------

Première ligne de code. Ne mets pas de parenthèse autour des paramètres de tes procédures.

Pour ajouter un n-ième élément à ta ligne, c'est-à-dire pour remplir la n-ième colonne, tu utilises le code suivant :

ta_liste.List(ligne - 1, colonne - 1) = valeur

Pour ajouter une colonne, ce n'est pas plus compliqué . Il te suffit d'ajouter un élément au delà de la dernière colonne actuelle :

Dim ligne As Long
Dim colonne As Integer
 
colonne = 4
For ligne = 1 To ta_liste.ListCount
    ListBox1.List(ligne - 1, colonne - 1) = CStr(ligne)
Next

Merci bcp pour le code,

et maintenant comment procéder si jamais j'ai une listbox d'une colonne déjà remplie et que je veux ajouter une colonne avec le numéro de la ligne mais avant la colonne déjà remplie !

Merci d'avance

S'il te plaît : va lire le règlement et modifie ton message en conséquence.

(Oui, je sais, c'est chiant de se faire aider par le modo ).