[VBA] Listview : dernière ligne ajoutée

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Listview : dernière ligne ajoutée

scaryfan

Apple Inside

:hello:

Salut à tous !

Voilà ! J'ai un tableau Excel avec 8 colonnes et une vingtaine de lignes.
J'ai une Userform dans laquelle j'ai inséré un ListView.

Comment faire pour que le tableau soit recopié dans cette Listview.

Code :

Sheets("TABLEAU" ).Select
Range("A1" ).Select
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value <> "" Then
ListeAPROV.ListItems.Add , , ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListeAPROV.SelectedItem.ListSubItems.Add [1], , ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListeAPROV.SelectedItem.ListSubItems.Add [2], , ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListeAPROV.SelectedItem.ListSubItems.Add [3], , ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListeAPROV.SelectedItem.ListSubItems.Add [4], , ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListeAPROV.SelectedItem.ListSubItems.Add [5], , ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListeAPROV.SelectedItem.ListSubItems.Add [6], , ActiveCell.Value
ActiveCell.Offset(0, 1).Select
ListeAPROV.SelectedItem.ListSubItems.Add [7], , ActiveCell.Value
ActiveCell.Offset(0, -8).Select
Else
Exit Do
End If
Loop Until ActiveCell.Value = ""

Avec ce code, la Listview s'alimente mais uniquement pour la première colonne... et le reste s'ajoute systématiquement à la première ligne... :cry:

Merci pour votre aide.

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

Publicité

Idoine

Il faut que chacune de tes lignes soient une chaîne composée de la valeur de tes colonnes séparées par des points-virgules.
ex : "ValL1C1;ValL1C2;ValL1C3;...ValL1C8"
puis :"ValL2C1;ValL2C2;ValL2C3;...ValL2C8"

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Listview : dernière ligne ajoutée

Sujets relatifs
[VBA] Zone de liste... question alignement colonnes !	[VBA] Erreur d'exécution '-2147417848 (80010108)'
Selected la ligne envoyé dans mon menu deroulant	[RESOLU] Recuperer la derniere donnee en regroupant pour chaque fiche
Fonction WeekNum pour VBA	Changer des propriétés d'un graphique Access en VBA
gestion des droits d'acces [VBA excel] [RESOLU]	[VBA / ACCESS] ajouter à une liste multi-valuée
VBA: obligé d'ouvrir un fichier pour en récupérer des données?	supprimer caractère unicode invalide
Plus de sujets relatifs à : [VBA] Listview : dernière ligne ajoutée

Page générée en 0.066 secondes