utilisation du listview

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

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 ;)

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

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.

bonsoir

Citation:

---

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

---

tu peux utiliser

Code:

---

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

bonjour,

ton code ne fonctionne pas

j'ai ajouté

Code:

---

Dim imagelist1 As ImageList

---

mais la ligne suivante ne fonctionne pas

Code:

---

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

---

merci pour votre aide

bonjour

Citation:

---

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

je demande juste une aide...

donc j'ai ce code

Code:

---

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:

---

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

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

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

Citation:

---

Envoyé par SilkyRoad

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

---

Tu n'as donc pas lu... http://freelog.chez-alice.fr/emotico.../Colere_17.gif
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/

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

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