Discussion :

[Cocotte278]

Bonjour ,

Je travaille dans une ListView et je souhaite centrer toutes mes données.

J'ai donc écrit le code suivant :

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
 
With ListView1
    With .ColumnHeaders
        ' Vider le listview
        .Clear
        'Ajouter les colonnes
        .Add , , " ", , lvwColumnCenter
        .Add , , " ", , lvwColumnCenter
        .Add , , " ", , lvwColumnCenter
        .Add , , " ", , lvwColumnCenter
        .Add , , " ", , lvwColumnCenter
        .Add , , " ", , lvwColumnCenter
        .Add , , " ", , lvwColumnCenter
        .Add , , " ", , lvwColumnCenter
    End With
End With

Le souci : rien ne se passe au niveau du centrage de mes données.
J'ai aussi essayé en ajoutant une largeur de colonne mais rien non plus...

Que puis-je faire ?

Merci d'avance

[Gestionnaire_rh]

Bonjour Cocotte278,

je pense que avec ton code tu est entrain de centré sur la ligne des entêtes car tu as rajouter au début:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 with .ColumnHeaders

, essayé de mettre le code en rajoutant, et puis donner la largeur souhaiter (50 ou 100 ou 200....etc):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

listview1.Add , , " ",50, lvwColumnCenter

Cordialement.

[Cocotte278]

Je ne pense pas que le problème vienne de là.

D'après mes recherches, il s'agirait peut-être d'une référence dans la bibliothèque qui n'est pas activée. Mais je ne vois pas laquelle ni comment obtenir la bonne...

Parce que même en en-tête il ne fonctionne pas !

[Invité]

Bonjour,

Peut-être regarder ici :
http://silkyroad.developpez.com/VBA/ListView/

Le contrôle ListView fait partie des Common Controls Visual Basic 6.0 (mscomctl.ocx).

[Cocotte278]

Merci Jean-Jacques.

J'ai rajouté à ma bibliothèque les Common Controls Visual Basic 6.0 (mscomctl.ocx).

maintenant, j'ai une erreur 35604 : la première colonne d'un contrôle ListView doit être alignée à gauche !!!

J'ai mis le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
With ListView1
    With .ColumnHeaders
        ' Vider le listview
        .Clear
        'Ajouter les colonnes
        .Add , , " ", , lvwColumnLeft
        .Add , , " ", , lvwColumnCenter
        .Add , , " ", , lvwColumnCenter
        .Add , , " ", , lvwColumnCenter
        .Add , , " ", , lvwColumnCenter
        .Add , , " ", , lvwColumnCenter
    End With
End With

Mais, ça ne fonctionne pas (toujours le même message...) !

Une idée ?

Merci