Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

mettre un mot ou une série de mots en couleur automatiquement dans un cellule Excel

O

obelix77

XLDnaute Junior
Bonjour,

Tout est dans le titre.

J’ai besoin que des mots ou des séries de mots spécifiques se mettent en couleur dans une cellule ou une plage de cellules.
Il faut que les seuls mots ou séries de mots voulus soient en couleur; pas toute la cellule; ça, je sais le faire

Dans l'idéal, je souhaiterais mettre en place une macro qui travaillerait sur la cellule ou la plage de cellules sélectionnées.

La macro doit ouvrir une fenêtre à cases multiples :
1 case contenant « texte voulu 1 » suivi d’une case contenant le « code couleur » souhaité
1 case contenant « texte voulu 2 » suivi d’une case contenant le « code couleur » souhaité
1 case contenant « texte voulu 3 » suivi d’une case contenant le « code couleur » souhaité

Les textes doivent pouvoirs commencer et/ou terminer par "*".

Pas de respect de la « CASSE » sur les textes.

Petit problème : je ne maîtrise pas du tout le VBA ... Donc si une âme charitable peut m'aider, ce serait le top.

Ci-joint un fichier dans lequel j’ai simulé le résultat attendu.

Merci et bon week-end
 
Trier par date Trier par votes

mapomme

XLDnaute Barbatruc
Supporter XLD
Re : mettre un mot ou une série de mots en couleur automatiquement dans un cellule Ex

Bonjour obelix77 et bienvenue sur XLD ,

obelix77 à dit:
[...] Ci-joint un fichier dans lequel j’ai simulé le résultat attendu. [...]
Cliquez pour agrandir...

Comme Obélix quand il fut tout petit, le fichier a dû choir au fond de la marmite

obelix77 à dit:
[...] Les textes doivent pouvoirs commencer et/ou terminer par "*". [...]
Cliquez pour agrandir...
obelix77 reste cohérent puisqu'il autorise les astérix...
 
Dernière édition:
Vote positif 0 Vote négatif
O

obelix77

XLDnaute Junior
Re : mettre un mot ou une série de mots en couleur automatiquement dans un cellule Ex

mapomme à dit:
Bonjour obelix77 et bienvenue sur XLD ,



Comme Obélix quand il était tout petit, le fichier a dû choir au fond de la marmite
Cliquez pour agrandir...

Oups, ... Désolé. Je suis nouveau sur le site et j'ai du raté une case

Je le joins et j'espère que, ce coup-ci, j'ai bon
 

Pièces jointes

  • mots_couleur_automatique_cellule_Excel.xlsx
    10.6 KB · Affichages: 63
Vote positif 0 Vote négatif
D

david84

XLDnaute Barbatruc
Re : mettre un mot ou une série de mots en couleur automatiquement dans un cellule Ex

Bonjour,
regarde les propositions fournies dans ce lien au cas où.
Le mot recherché est mis en gras et non en couleur mais le principe est le même.
A+
 
Vote positif 0 Vote négatif
O

obelix77

XLDnaute Junior
Re : mettre un mot ou une série de mots en couleur automatiquement dans un cellule Ex

Ca marche nickel pour avoir le gras
Par contre, je ne sais pas comment faire pour avoir des codes couleurs à la place du gras, avec choix sur le code couleur.
Une idée?
PS : je n'y connais rien au VBA
 
Vote positif 0 Vote négatif
O

obelix77

XLDnaute Junior
Re : mettre un mot ou une série de mots en couleur automatiquement dans un cellule Ex

Et bien il aura fallu moins de 24 heures pour que j'obtienne exactement ce que j'attendais.
Ce forum, est au top.
Un grand merci à tous et à mapomme en particulier
bon dimanche à tous
 
Vote positif 0 Vote négatif
O

obelix77

XLDnaute Junior
Re : mettre un mot ou une série de mots en couleur automatiquement dans un cellule Ex

Au risque de passer pour un débile ....

Tout fonctionne exactement comme voulu dans le fichier fourni par "mapomme" mais comment je dois procéder pour que ça fonctionne dans tous mes fichiers Excel?
Comment je fais pour utiliser ou non la macro dans un fichier quelconque?

J'ai enregistré le classeur en "*.xlam" puis j'ai coché le fichier dans les compléments.
La macro n’apparaît pas dans la liste des macros et je ne sais pas comment la lancer.

Serait il possible de déclencher la macro par une commande plutôt que par un double clic? Et qu'elle fonctionne aussi sur une plage de cellule. J'ai l'impression qu'elle ne fonctionne que sur une seule cellule.


Désolé de vous solliciter à nouveau.

Je sais, je suis pas trop au top, question macro

Bon dimanche
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
D

david84

XLDnaute Barbatruc
Re : mettre un mot ou une série de mots en couleur automatiquement dans un cellule Ex

Bonjour,
un essai :
Code: 
Sub CoulCharactere()
Dim oRegExp As Object, oMatches As Object, R As Object
Dim Tmot(), Tcoul(), C As Range
Dim Motif As String, i As Long, Chaine As String

With Cells(1, 1): Chaine = .Text: .Font.ColorIndex = xlAutomatic: End With
Set R = Range("A3:A5")
ReDim Tmot(1 To R.Rows.Count): ReDim Tcoul(1 To R.Rows.Count)

For Each C In R
  i = i + 1
  Tmot(i) = C.Text
  Tcoul(i) = C.Font.Color
  Motif = Motif & C.Text & "|"
Next C

Motif = "(" & Left(Motif, Len(Motif) - 1) & ")"

Set oRegExp = CreateObject("vbscript.regexp")
With oRegExp
    .Global = True
    .ignorecase = True
    .Pattern = Motif
    If .test(Chaine) Then
      Set oMatches = .Execute(Chaine)
      For i = 0 To oMatches.Count - 1
        Cells(1, 1).Characters(Start:=oMatches(i).firstindex + 1, _
        Length:=oMatches(i).Length + 1).Font.Color = Application.Index(Tcoul, Application.Match(oMatches(i).Value, Tmot, 0))
      Next i
    End If
End With
End Sub
On peut éventuellement ne pas ignorer la casse en passant IgnoreCase à False.
Pour modifier les couleurs de police dans la macro : modifier la couleur de police du mot.
A+
 

Pièces jointes

  • mots_couleur_automatique.xlsm
    22.7 KB · Affichages: 44
Vote positif 0 Vote négatif
O

obelix77

XLDnaute Junior
Re : mettre un mot ou une série de mots en couleur automatiquement dans un cellule Ex

Ca marche bien aussi cette solution.

J'ai l'impression que ça ne marche que si le texte est en cellule A1 et que les textes à colorisés sont dans les cellules A3, A4 et A5

Comment faire pour que :
ça marche sur une plage de cellule dynamique? En clair sur une sélection de cellules?
que les textes à colorisés puissent être ailleurs que dans les cellules A3, A4 et A5? On pourrait mettre les textes et les couleurs dans une plage nommée non?

En trous les cas, merci, c'est top

Bonne soirée,
 
Vote positif 0 Vote négatif
D

david84

XLDnaute Barbatruc
Re : mettre un mot ou une série de mots en couleur automatiquement dans un cellule Ex

On peut faire plein de choses mais c'est quand même à toi de construire le fichier que tu as en tête et à partir duquel on peut tester.
A+
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

C
  • Question
XL 2021 Mettre en couleur un texte dans listbox
Réponses
9
Affichages
309
ChTi160
P
  • Résolu(e)
XL 2019 Tri sur une ligne dans un tableau.
Réponses
4
Affichages
87
Paulle
P
I
  • Question
XL 2016 Supprimer "vrai" ou "faux" dans une case à cocher
Réponses
6
Affichages
847
migau
  • Résolu(e)
Microsoft 365 Changer Couleur de Texte dans cellule
Réponses
7
Affichages
328
Electron24
T
  • Question
XL pour MAC Recherche de mots clefs dans une cellule Texte
Réponses
2
Affichages
1 K
Tsr75a
T
  • Question
XL 2021 Recherche mot ou expression dans une cellule pour en déduire une imputation
2
Réponses
15
Affichages
974
Jouxte
W
  • Question
Microsoft 365 Correspondance de mot dans une cellule
Réponses
3
Affichages
99
job75
F
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle selon la référence d'une cellule
Réponses
3
Affichages
573
filiph79
F
T
  • Résolu(e)
XL 2021 de mettre une couleur sur chaque mot commencant par a ou b ou c
Réponses
4
Affichages
420
target
T
K
  • Question
Microsoft 365 vba :Vlookup + incrémentation d'une plage de donnée
Réponses
1
Affichages
136
vgendron
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…