Hello world ,
Je souhaite charger le contenu d'une feuille Excel dans une listview afin de générer un fichier d'import au format .csv.
Ma feuille Excel possède 4 colonnes (A,B,C,D). j'arrive à charger dans ma listview les données des toutes les 4 colonnes, mais seulement jusqu'à la ligne 256. au delà de cette ligne c'est à dire à la 257 ème ligne, seule la colonne A continue d'être alimentée.
j'ai cherché (sur les articles, tuto, forum ...) la solution pendant 3 jours, mais rien y fait !
je sollicite donc une aide pour m'aider à résoudre ce problème.
ci-dessous mon code vba
Henri
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38 Private Sub UserForm_Initialize() Dim Colonne As Byte, x As Byte, j As Byte Dim Cellule As Range 'sources: codesouce , developper.net ' déféinit les entetes des colonnes With Me.ListView1 With .ColumnHeaders .Clear ' supprime les anciens entetes For Colonne = 1 To vNBCOLONNE_CSV ' définit le nombre de colonne 'For Colonne = 1 To ListView1.ColumnHeaders.Count 'Ajoute une colonne de taille 100 .Add , , Cells(1, Colonne), 100 Next Colonne End With End With 'remplissage de la listview With Me.ListView1 .ListItems.Clear 'remplissage des colonnes For Each Cellule In Range("A2:A" & Range("A65536").End(xlUp).Row) x = x + 1 .ListItems.Add , , Cellule For j = 1 To vNBCOLONNE_CSV .ListItems(x).ListSubItems.Add , , Cellule.Offset(0, j) Next j Next Cellule End With ListView1.View = lvwReport End Sub
Partager