controle ListView1

[petchy]

bonsoir le forum

dans un USF1 j'ai un controle ListView1 comment afficher les renseignement qui se trouve sur les colonnes 'S,T,U,V',mais le probleme c'est que l'USF1 sert pour plusieurs feuilles 😱

merci

 

[MichelXld]

bonjour Petchy

avec quelques adaptations tu peux tester cette macro

Private Sub UserForm_Initialize()
Dim Cell As Range
Dim X As Byte, i As Byte
Dim k As Integer
Dim VarFeuille As String

VarFeuille = 'Feuil2' 'definit la feuille cible ( à adpater pour ton projet )

'derniere ligne non vide dans la colonne 'S' de la feuille choisie
k = Sheets(VarFeuille).Range('S65536').End(xlUp).Row

With ListView1 'parametrage des entetes de colonne( titre et largeur)
With .ColumnHeaders
    .Clear
    .Add , , 'Nom', 70
    .Add , , 'Prenom', 70
    .Add , , 'Adresse', 100
End With
     
For Each Cell In Sheets(VarFeuille).Range('S2:S' & k)

X = X + 1
.ListItems.Add , , Cell 'ajout donnée colonne S dans ListView
For i = 1 To 3 '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
End Sub

bonne journée
MichelXld

 

[petchy]

Bonjour MichelXld et le forum

merci MichelXld pour le code,c'est impeccable
B) B) B) :silly:

 

[petchy]

Re

le code de MichelXLD fonctionne super bien pour une feuille,est ce possible de changer la variable
VarFeuille = 'Feuil2' 'definit la feuille cible ( à adpater pour ton projet )
pour quelle fonctionne sur d'autres feuilles de mon appli car l'USF ou j'ai placé mon controle sert pour plusieurs feuilles,j'ai déja essayer de changer la variable mais apparement ça ne fonctionne pas avec se type de controle :unsure:
si quelqu'un aurait une idée.

merci

 

[MichelXld]

rebonjour Petchy

un fichier exemple serait bien venu


bonne soiree
MichelXld

 

[petchy]

Salut MichelXLD

voila un exemple [file name=ListView1essai.zip size=13505]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListView1essai.zip[/file]

 

[MichelXld]

rebonjour Petchy

tu peux tester

VarFeuille = ActiveSheet.Name


bonne soiree
MichelXld

 

[petchy]

Bonsoir MichelXld

impeccable,merci
en fait j'ai supprimer cette ligne :

VarFeuille = 'Feuil1' 'definit la feuille cible ( à adpater pour ton projet )

et j'ai rajouté ton code.
bonne soirée
merci