XL 2019 alimenter listview via des textboxs

escudo · Mercredi à 22:52

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

escudo · Hier à 23:51

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

VB:

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.

Dranreb · Mercredi à 23:12

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 · Jeudi à 09:58

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

VB:

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 · Hier à 23:51

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

VB:

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.

XL 2019 alimenter listview via des textboxs

escudo

XLDnaute Nouveau

Pièces jointes

escudo

Dranreb

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

escudo

XLDnaute Nouveau

Discussions similaires