ListView
Le
Brat'ac

Bonjour,
Pour initialiser une ListView j'ai ceci.
Partie du code.
-
'Définir la plage source
Set rngData = wksSource.Range("A1").CurrentRegion
'Ajouter les en-têtes de colonne
For Each rngCell In rngData.Rows(1).Cells
Me.ListView1.ColumnHeaders.Add Text:=rngCell.Value, Width:€
', Alignment:=2
Next rngCell
Pas de PB ca fonctionne bien.
Par contre si je rajoute Alignment:=2 pour aligner le texte j'ai un
message d'erreur qui me dit
impossible d'aligner la colonne 1 qui doit rester aligner à gauche:
Question: comment faire pour aligner les autres colonnes au centre ?
Merci
Pour initialiser une ListView j'ai ceci.
Partie du code.
-
'Définir la plage source
Set rngData = wksSource.Range("A1").CurrentRegion
'Ajouter les en-têtes de colonne
For Each rngCell In rngData.Rows(1).Cells
Me.ListView1.ColumnHeaders.Add Text:=rngCell.Value, Width:€
', Alignment:=2
Next rngCell
Pas de PB ca fonctionne bien.
Par contre si je rajoute Alignment:=2 pour aligner le texte j'ai un
message d'erreur qui me dit
impossible d'aligner la colonne 1 qui doit rester aligner à gauche:
Question: comment faire pour aligner les autres colonnes au centre ?
Merci
MichD
Super l'astuce de la colonne invisible. :-)
Merci, et bonne soirée.