bonsoir a tous,
j'ai récement découvert la listview et je me trouve conronter à un problème.
j'ai un tableau avec 4 colonnes
d'après mes recherche, j'ai trouver ce code:
Dim Cell As Range
Dim X As Byte, i As Byte
Dim k As Integer
Dim VarFeuille As String
VarFeuille = "Paramètre" 'definit la feuille cible ( à adpater pour ton projet )
'derniere ligne non vide dans la colonne "S" de la feuille choisie
k = Sheets(VarFeuille).Range("a65536").End(xlUp).Row
With ListView1 'parametrage des entetes de colonne( titre et largeur)
With .ColumnHeaders
.Clear
.Add , , "Nom", 70
.Add , , "Prenom", 70
.Add , , "Adresse", 90
.Add , , "N° TÉLÉ", 90
End With
For Each Cell In Sheets(VarFeuille).Range("a1:a" & k)
X = X + 1
.ListItems.Add , , Cell 'ajout donnée colonne S dans ListView
For i = 1 To 4 'boucle sur les colonnes T à V pour ajouter les données dans la ListView
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, i)
Next i
Next
End With
le problème est que ce code doit fonctionner lorsque l'on début le tableau en A1
Or mon tableau est au milieu de ma feuil, et je vois pas cmment faire. pourriez vous m'aider*
Merci de votre aide.
j'ai récement découvert la listview et je me trouve conronter à un problème.
j'ai un tableau avec 4 colonnes
d'après mes recherche, j'ai trouver ce code:
Dim Cell As Range
Dim X As Byte, i As Byte
Dim k As Integer
Dim VarFeuille As String
VarFeuille = "Paramètre" 'definit la feuille cible ( à adpater pour ton projet )
'derniere ligne non vide dans la colonne "S" de la feuille choisie
k = Sheets(VarFeuille).Range("a65536").End(xlUp).Row
With ListView1 'parametrage des entetes de colonne( titre et largeur)
With .ColumnHeaders
.Clear
.Add , , "Nom", 70
.Add , , "Prenom", 70
.Add , , "Adresse", 90
.Add , , "N° TÉLÉ", 90
End With
For Each Cell In Sheets(VarFeuille).Range("a1:a" & k)
X = X + 1
.ListItems.Add , , Cell 'ajout donnée colonne S dans ListView
For i = 1 To 4 'boucle sur les colonnes T à V pour ajouter les données dans la ListView
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, i)
Next i
Next
End With
le problème est que ce code doit fonctionner lorsque l'on début le tableau en A1
Or mon tableau est au milieu de ma feuil, et je vois pas cmment faire. pourriez vous m'aider*
Merci de votre aide.
