Listview Couleur...Enfin le code...

limat72

XLDnaute Occasionnel
Bonjour le forum,

Plusieurs fois j'ai demandé de l'aide sur le forum, et j'ai toujours été récompenser par vous... Donc maintenant c'est à mon tour de donné la solution à ceux qu'il cherchait comme moi, à coloriez la listeview...

Après plusieurs recherche infructueuses, j'ai enfin trouvé comment coloriez une ligne sur deux la listview...

Je mets donc à disposition ce code et la démo du classeur...

Si toutefois vous l'améliorez merci de me tenir au courant....

Bonne journée et longue vie à ce forum....:cool:

Limat
 

Pièces jointes

  • listviewColoré.zip
    32.6 KB · Affichages: 584
  • listviewColoré.zip
    32.6 KB · Affichages: 489
  • listviewColoré.zip
    32.6 KB · Affichages: 488

MuscatMimi

XLDnaute Accro
Re : Listview Couleur...Enfin le code...

Bonjour a tous

Chapeau pour le coloriage des lignes de ta ListView

j'ai planché 3 heures sur mon fichier qui a une listView, dont j'aimerais appliquer ton Code Couleur,mais sans les couleurs de police
Je n'y suis pas parvenu
Alors ce qui m'améne a te demander, si tu a du temps et le désire
,bien sur, de pouvoir inclure ton Code dans ma ListView??
A l'avance Merci beaucoup

A bintôt a tous
 
Dernière édition:

limat72

XLDnaute Occasionnel
Re : Listview Couleur...Enfin le code...

Bonjour a tous

Chapeau pour le coloriage des lignes de ta ListView

j'ai planché 3 heures sur mon fichier qui a une listView, dont j'aimerais appliquer ton Code Couleur,mais sans les couleurs de police
Je n'y suis pas parvenu
Alors ce qui m'améne a te demander, si tu a du temps et le désire
,bien sur, de pouvoir inclure ton Code dans ma ListView??
A l'avance Merci beaucoup

A bintôt a tous

bonjour le forum, vaucluse

je t'ai envoyer un msg privé

limat
 

limat72

XLDnaute Occasionnel
Re : Listview Couleur...Enfin le code...

re,

pour modifier la couleur de la police tu vas dans le module colorlistview

et tu modifie la ligne UDT2.ForeColorText = vbred en vbBlack

et la police dans l'usf

'''''''''''''''''''''''Code pour couleur listview
Dim i&: i = (ListView1.Width * 1 / 3) - 6
hwnd = GetWindow(FindWindow(vbNullString, Me.Caption), 5)
With ListView1
.View = lvwReport
.FullRowSelect = True
End With
hFont = CreateFont(13, 0, 0, 0, 700, 0, 0, 0, 0, 0, 0, 0, 0, "Cambria") <----- par "Arial" par exemple
OldProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WinProc)

''''''''''''''''''''''''''''''''''''

limat
 
Dernière édition:

jecirbe

XLDnaute Junior
Re : Listview Couleur...Enfin le code...

Bonjour,
je viens un bout de temps après le dernier message de ce fil mais je viens de tombé dessus ce matin.
est ce que Limat 72, ou quelqu'un dautre du forum, peux me dire où il faut regarder dans le code pour ne plus avoir certaines lignes avec la police en gras.
Merci d'avance pour la réponse.

jecirbe
 

MasterDK

XLDnaute Nouveau
Re : Listview Couleur...Enfin le code...

Bonjour à tous,

J'ai regarde le fichier exemple "listviewcoloré zip", et j'ai placé la listview dans un multipage sur la 1er page,
malheureusement la listview ne se colorise plus?:confused:

Existe-t-il une solution, car j'ai un projet à faire et j'aimer utilise plusieurs listview colorés avec un multipage.

A l'avance Merci beaucoup de prendre le temps de me répondre.:eek:
 

Pièces jointes

  • listviewColoré-Ver02.xls
    78 KB · Affichages: 196

laetitia90

XLDnaute Barbatruc
Re : Listview Couleur...Enfin le code...

bonjour tous
pour repondre au dernier post sans passer par un "truc" trop complique colore une ligne sur 2 met en gras la premiere colonne une ListView par page
attention comme j'aime le repeter les ListViews assez chiant a manipuler tres beau c'est tous... sur des grandes bases de données assez lent je parle meme pas de compatibilite avec excel 2010 ect...

ps salut Bruno:):)
 

Pièces jointes

  • listview couleur2.xls
    81 KB · Affichages: 201
Dernière édition:
C

Compte Supprimé 979

Guest
Re : Listview Couleur...Enfin le code...

Bonjour Laetitia90

Cela fonctionne sur Excel 2010, mais l'énoncé est faux
Ce n'est pas colorier une ligne sur 2
Mais mettre le texte en couleur une ligne sur 2

A+
 

MasterDK

XLDnaute Nouveau
Re : Listview Couleur...Enfin le code...

Merci pour vos réponses,
le fichier "listviewColoré.xls" lui fonctionne bien il arrive effectivement mettre une ligne sur deux en couleur.
Je pense que le fait de passer la Listview sur la Multipage fait que la fonction ne trouve plus le numéro "handle" de la listview.
hwnd = GetWindow(FindWindow(vbNullString, Me.Caption), 5)
me.caption étant le nom du userform, le fait de placer la liste dans la Multipage le numéro de handle retourner n'est plus le bon.
Mais je ne comprend pas pourquoi cela change vue que la liste et toujours sur le même Userform.
 
C

Compte Supprimé 979

Guest
Re : Listview Couleur...Enfin le code...

Salut MasterDK

Initialement, je n'avais pas pris le bon fichier :eek:
Effectivement le code colorie bien une ligne sur 2 :p

Une solution pour contourner le problème est de mettre les 2 Listview dans l'USF en superposition
et de mettre en entête le multipage réduit
En fonction de la page sélectionnée, il suffit d'afficher et de masquer l'une des 2 Listview

Voir fichier ;)

A+
 

Pièces jointes

  • MasterDK_ListviewColoré-Ver02.xls
    91.5 KB · Affichages: 245

MasterDK

XLDnaute Nouveau
Re : Listview Couleur...Enfin le code...

Merci, c'est une solution effectivement, le seul problème c'est que j'ai d'autre textbox et listview a gérer sur chaque page de la multipage. Ce sera assez compliquer du coup a tout gérer je pense mais bon s'il n'y a pas d'autre solution je ferai comme ça.

Je pensais que l'on pouvait trouver le numero handle de "window" de la multipage et lui donner en paramètre pour la fonction a la place de celui de USF principale, puisque si j'ai bien compris chaque objet est une "window".

Enfin merci de vos réponses.
 

Discussions similaires

Réponses
7
Affichages
804

Statistiques des forums

Discussions
312 504
Messages
2 089 072
Membres
104 018
dernier inscrit
Mzghal