Couleur du texte dans une listview
Résolu/Fermé
Louloude74
Messages postés
62
Date d'inscription
mercredi 1 août 2018
Statut
Membre
Dernière intervention
17 avril 2024
-
1 sept. 2021 à 22:24
Louloude74 Messages postés 62 Date d'inscription mercredi 1 août 2018 Statut Membre Dernière intervention 17 avril 2024 - 8 sept. 2021 à 13:53
Louloude74 Messages postés 62 Date d'inscription mercredi 1 août 2018 Statut Membre Dernière intervention 17 avril 2024 - 8 sept. 2021 à 13:53
A voir également:
- Couleur du texte dans une listview
- Excel cellule couleur si condition texte - Guide
- Somme si couleur - Guide
- Transcription audio en texte word gratuit - Guide
- Insérer une image dans word sans bouger le texte - Guide
- Texte argumentatif sur les avantages et les inconvénients du téléphone portable ✓ - Forum Mobile
7 réponses
f894009
Messages postés
17205
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2024
1 709
Modifié le 2 sept. 2021 à 08:07
Modifié le 2 sept. 2021 à 08:07
Re,
Je recupere le fichier et regarde la chose
Quelle colonne voulez vous en couleur?
Je recupere le fichier et regarde la chose
Quelle colonne voulez vous en couleur?
f894009
Messages postés
17205
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2024
1 709
2 sept. 2021 à 07:34
2 sept. 2021 à 07:34
Bonjour,
Avec ce code, le texte change bien de couleur mais pas sur la bonne colonne.
Certes, certes, avec un fichier exemple serait plus facile.
Votre code change bien la couleur, mais perso, je ne sais pas laquelle vous voulez.
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
ou
'mon partage termine arrete
https://mon-partage.fr/
ou
www.transfernow.net 'fichier jusqu'a 4G
Avec ce code, le texte change bien de couleur mais pas sur la bonne colonne.
Certes, certes, avec un fichier exemple serait plus facile.
Votre code change bien la couleur, mais perso, je ne sais pas laquelle vous voulez.
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
ou
'mon partage termine arrete
https://mon-partage.fr/
ou
www.transfernow.net 'fichier jusqu'a 4G
Louloude74
Messages postés
62
Date d'inscription
mercredi 1 août 2018
Statut
Membre
Dernière intervention
17 avril 2024
1
Modifié le 2 sept. 2021 à 07:52
Modifié le 2 sept. 2021 à 07:52
Bonjour,
Voici le lien : https://www.cjoint.com/c/KIcfWicsce5
Pour tester, faire une recherche avec AM.
Encore merci.
Bonne journée.
Voici le lien : https://www.cjoint.com/c/KIcfWicsce5
Pour tester, faire une recherche avec AM.
Encore merci.
Bonne journée.
f894009
Messages postés
17205
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2024
1 709
Modifié le 4 sept. 2021 à 10:31
Modifié le 4 sept. 2021 à 10:31
Bonjour,
Désolé pour mon temps de réponse.
Y a pas d'lezard.
Je regarde la chose
Par contre, je ne sais pas si dans colonne listview possible de colorier une partie de texte.
Je vais chercher
Désolé pour mon temps de réponse.
Y a pas d'lezard.
Je regarde la chose
Par contre, je ne sais pas si dans colonne listview possible de colorier une partie de texte.
Je vais chercher
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
f894009
Messages postés
17205
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2024
1 709
4 sept. 2021 à 11:19
4 sept. 2021 à 11:19
Re,
En attendant si possible couleur partiel texte: https://www.cjoint.com/c/KIejryANpFf
J'ai fait petite modif pour recherche en temps reel sans bouton
Question:
votre recherche se fait sur toutes les colonnes, normal ou pas?
En attendant si possible couleur partiel texte: https://www.cjoint.com/c/KIejryANpFf
J'ai fait petite modif pour recherche en temps reel sans bouton
Question:
votre recherche se fait sur toutes les colonnes, normal ou pas?
Louloude74
Messages postés
62
Date d'inscription
mercredi 1 août 2018
Statut
Membre
Dernière intervention
17 avril 2024
1
Modifié le 4 sept. 2021 à 12:45
Modifié le 4 sept. 2021 à 12:45
Bonjour,
Oui c'est normal et très bonne idée la recherche au fur et mesure de la saisie.
Le but de changer la couleur du texte trouvé est de rapidement visualiser où le texte recherché correspond.
C'est plus pratique quand il y une dizaine, voir plus, de colonnes et des milliers de lignes.
Encore merci.
Oui c'est normal et très bonne idée la recherche au fur et mesure de la saisie.
Le but de changer la couleur du texte trouvé est de rapidement visualiser où le texte recherché correspond.
C'est plus pratique quand il y une dizaine, voir plus, de colonnes et des milliers de lignes.
Encore merci.
Louloude74
Messages postés
62
Date d'inscription
mercredi 1 août 2018
Statut
Membre
Dernière intervention
17 avril 2024
1
8 sept. 2021 à 13:53
8 sept. 2021 à 13:53
Bonjour,
Je partage avec vous une proposition de solution à mon problème. Elle pourra, je l'espère servir à d'autres.
https://www.cjoint.com/c/KIilS7bzIV5
Malheureusement, je n'ai pas réussi à mettre en couleur partiellement le texte trouvé dans la ListeView. Si le texte cherché est dans le texte de la cellule de ListView alors c'est le texte en son entier de la cellule qui change de couleur.
Encore merci pour l'aide apportée.
Bonne journée et mon continuation.
Je partage avec vous une proposition de solution à mon problème. Elle pourra, je l'espère servir à d'autres.
https://www.cjoint.com/c/KIilS7bzIV5
Sub AlimenterListe() Dim i As Long Dim cpt As Long cpt = 0 With userform1.ListView1 .ListItems.Clear With .ColumnHeaders .Clear .Add , , "Nom", 60 .Add , , "Prénom", 60, 2 .Add , , "Age", 60, 2 End With .View = lvwReport .FullRowSelect = False .Gridlines = True For lg = 2 To Sheet1.Range("A65536").End(xlUp).Row For cl = 1 To 3 If InStr(1, Cells(lg, cl), userform1.TextBox1.Text, vbTextCompare) > 0 Then .ListItems.Add , , Sheet1.Cells(lg, 1) .ListItems(.ListItems.Count).ListSubItems.Add , , Sheet1.Cells(lg, 2) .ListItems(.ListItems.Count).ListSubItems.Add , , Sheet1.Cells(lg, 3) GoTo suite End If Next cl suite: Next lg bcl = 0 For lg = 1 To .ListItems.Count For cl = 1 To .ColumnHeaders.Count If cl = 1 And InStr(1, .ListItems(lg).Text, userform1.TextBox1.Text, vbTextCompare) > 0 Then .ListItems(lg).ForeColor = vbGreen cpt = cpt + 1 ElseIf cl > 1 And bcl = 0 Then cl = cl - 1 bcl = 1 If InStr(1, .ListItems(lg).ListSubItems(cl).Text, userform1.TextBox1.Text, vbTextCompare) > 0 Then .ListItems(lg).ListSubItems(cl).ForeColor = vbGreen cpt = cpt + 1 End If cl = cl + 1 ElseIf cl > 1 And bcl = 1 Then cl = cl - 1 If InStr(1, .ListItems(lg).ListSubItems(cl).Text, userform1.TextBox1.Text, vbTextCompare) > 0 Then .ListItems(lg).ListSubItems(cl).ForeColor = vbGreen cpt = cpt + 1 End If cl = cl + 1 End If Next cl Next lg End With MsgBox "Nombre d'occurence trouvée : " & cpt End Sub
Malheureusement, je n'ai pas réussi à mettre en couleur partiellement le texte trouvé dans la ListeView. Si le texte cherché est dans le texte de la cellule de ListView alors c'est le texte en son entier de la cellule qui change de couleur.
Encore merci pour l'aide apportée.
Bonne journée et mon continuation.
3 sept. 2021 à 21:09
Désolé pour mon temps de réponse. Le temps de refaire mon fichier exemple.
J'espère que le résultat souhaité sera plus parlant en utilisant ce fichier.
https://www.cjoint.com/c/KIdtax73NK5
Faites une recherche en utilisant le bouton "Afficher dans feuille" de l'UserForm.
J'aimerais avoir le même résultat mais, dans la ListView.
Encore merci pour tout.