Discussion :

[cortex59]

Bonjour a tous,
J'ai essayer de reprendre des codes existant sur le net mais je comprend pas trop.
Je travail avec une listview et je voudrais savoir si ceci est possible et si oui comment je peu le réaliser :

- Changer la couleur de fond d'une case (ex ligne 2 colonne 3 en bleu)
- Changer la couleur de fond d'une ligne complete
- Mettre une icone dans le "ColumnHeaders" de la listview + texte (l'icone si situe dans C
- Mettre une icone dans une case (ex ligne 2 colonne 3) de la listview + texte (l'icone si situe dans C
- Fusionner 2 cases (ex ligne 2 colonne 2 et ligne 2 colonne 3)

est possible et si oui comment ?

merci

[fring]

Bonjour,

Jette un oeil sur le tuto de SilkyRoad

Utiliser le contrôle ListView en VBA Excel

tu devrais y trouver les réponses à toutes tes questions

[cortex59]

merci pour ce tuto

mais il ne me repond qu'a une question celle des icones.

est ce que vous avez d'autre reponse pour les couleurs?

merci

[fring]

Il répond indirectement à ta question, il n'y a rien dans le tuto concernant la couleur de fond parce qu'à ma connaissance cette propriété n'existe pas pour une ligne ou pour un Item mais je ne suis pas un pro de la ListView.

[SilkyRoad]

bonsoir

Mettre une icone dans le "ColumnHeaders" de la listview + texte (l'icone si situe dans C

tu peux utiliser

Code :

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

1
2
3
4
5
6
7
8
Dim i As ListImage
 
Set i = ImageList1.ListImages.Add(, "strKey", _
    LoadPicture("C:\dossier\fichier.gif"))
 
Set ListView1.ColumnHeaderIcons = ImageList1
ListView1.ColumnHeaders.Add , , "Test", 80, , "strKey"
ListView1.View = lvwReport

bonne soirée
michel

[cortex59]

bonjour,

ton code ne fonctionne pas

j'ai ajouté

Code :

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

Dim imagelist1 As ImageList

mais la ligne suivante ne fonctionne pas

Code :

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

Set i = imagelist1.ListImages.Add(, "strKey", LoadPicture("C:\f.gif"))

merci pour votre aide

[SilkyRoad]

bonjour

ton code ne fonctionne pas

C'est surtout toi qui a écrit n'importe quoi dans ton code.
compare ta procédure et mon exemple ...

Ensuite, relit le tutoriel pour connaitre le fonctionnemenrt des ListView et des ImageList


bon week end
michel

[cortex59]

je demande juste une aide...

donc j'ai ce code

Code :

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

1
2
3
4
5
6
7
8
    Dim i As ListImage
    Dim imagelist1 As ImageList 'erreur si je ne l'ecrit pas
 
Set i = imagelist1.ListImages.Add(, "strKey", LoadPicture("C:\f.gif"))
 
Set ListView1.ColumnHeaderIcons = imagelist1
ListView1.ColumnHeaders.Add , , "Test", 80, , "strKey"
ListView1.View = lvwReport

ceci ne fonctionne pas erreur pendant l'execution sur

Code :

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

Set i = imagelist1.ListImages.Add(, "strKey", LoadPicture("C:\f.gif"))

est ce que vous pouvez me debloquer?
merci

est ce qu'il y a un truc a activer pour utiliser les images list car il veu rien savoir des qu'il y a le mot Imagelist il plante

merci

[fring]

Je suppose que tu as bien ajouté un contrôle ImageList sur ton UserForm ?

[cortex59]

heuuu non!!!
Je suis sur Visio est il n'y est pas de listimage dans ma palette de composant
il n'y a que le composant image
je peu le trouver ou?
merci

[fring]

Ensuite, relit le tutoriel pour connaitre le fonctionnemenrt des ListView et des ImageList

Tu n'as donc pas lu...
je te redonne l'adresse
http://silkyroad.developpez.com/VBA/ListView/
plus précisément le point II-I
et en complément
http://silkyroad.developpez.com/VBA/ImageList/

[cortex59]

J'ai lu le tuto mais il me dit pas ou je peu trouver un contrôle ImageList pour le mettre sur mon UserForm
car il n'est pas dans ma palette
comment dois je faire?

merci

[fring]

Au point II Description on peut lire...
Tout d'abord, sélectionnez "Microsoft ImageList Control, version 6.0" (ou l'équivalent) dans la liste des contrôles supplémentaires

Les contrôles supplémentaires s'obtiennent via un clic droit sur la boîte d'outils