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

Listview : dernière ligne ajoutée [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 15-09-2008 à 21:15:14    

: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 :
  1. Sheets("TABLEAU" ).Select
  2.     Range("A1" ).Select
  3.     Do
  4.         ActiveCell.Offset(1, 0).Select
  5.         If ActiveCell.Value <> "" Then
  6.             ListeAPROV.ListItems.Add , , ActiveCell.Value
  7.             ActiveCell.Offset(0, 1).Select
  8.             ListeAPROV.SelectedItem.ListSubItems.Add [1], , ActiveCell.Value
  9.             ActiveCell.Offset(0, 1).Select
  10.             ListeAPROV.SelectedItem.ListSubItems.Add [2], , ActiveCell.Value
  11.             ActiveCell.Offset(0, 1).Select
  12.             ListeAPROV.SelectedItem.ListSubItems.Add [3], , ActiveCell.Value
  13.             ActiveCell.Offset(0, 1).Select
  14.             ListeAPROV.SelectedItem.ListSubItems.Add [4], , ActiveCell.Value
  15.             ActiveCell.Offset(0, 1).Select
  16.             ListeAPROV.SelectedItem.ListSubItems.Add [5], , ActiveCell.Value
  17.             ActiveCell.Offset(0, 1).Select
  18.             ListeAPROV.SelectedItem.ListSubItems.Add [6], , ActiveCell.Value
  19.             ActiveCell.Offset(0, 1).Select
  20.             ListeAPROV.SelectedItem.ListSubItems.Add [7], , ActiveCell.Value
  21.             ActiveCell.Offset(0, -8).Select
  22.         Else
  23.             Exit Do
  24.         End If
  25.     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
Reply

Marsh Posté le 15-09-2008 à 21:15:14   

Reply

Marsh Posté le 16-09-2008 à 02:06:24    

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"

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed