XL 2019 alimenter listview via des textboxs

[escudo]

Bonsoir j'ai besoin de votre aide
j'ai un userfom avec listview j'aimerais transferer les valeur d'un combobox et " textbox vers cette listview .
mon code a marcher l'enchainement des données est respecte ligne par ligne sauf que la premiere colonne est décalée;
merci de corriger mon code;



Dim li As ListItem

With ListView1
Set li = .ListItems.Add()

li.ListSubItems.Add , , ComboBox1.Text
li.ListSubItems.Add , , TextBox4.Text
li.ListSubItems.Add , , TextBox9.Text
li.ListSubItems.Add , , TextBox1.Text
End With

 

[Dranreb]

Bonsoir.
D'habitude on indique le contenu de la 1ère colonne au .ListItem.Add sinon elle reste vide. Les Li.ListSubitems.Add c'est pour les colonnes suivantes à partir de la seconde.

 

[ChTi160]

Bonjour le Fil
il faudrait peut mettre (pour abonder dans le sens de Dranreb):

Dim li As ListItem
With ListView1
Set li = .ListItems.Add(,,ComboBox1.Text)'Première colonne
li.ListSubItems.Add , , TextBox4.Text
li.ListSubItems.Add , , TextBox9.Text
li.ListSubItems.Add , , TextBox1.Text
End With

Bonne journée
Jean marie

 

[escudo]

Bonjour le Fil
il faudrait peut mettre (pour abonder dans le sens de Dranreb):

Dim li As ListItem
With ListView1
Set li = .ListItems.Add(,,ComboBox1.Text)'Première colonne
li.ListSubItems.Add , , TextBox4.Text
li.ListSubItems.Add , , TextBox9.Text
li.ListSubItems.Add , , TextBox1.Text
End With

Bonne journée
Jean marie

MERCI infiniment c'est ce que je voulais exactement.