vba colorer un mot dans une feuille

Bonjour,

Je souhaite colorer tous les mots présents dans un tableau par rapport à une cellule. Mon "porter" dans la cellule J2, je souhaite donc colorer tous les "porter" présent dans ma feuille. Le code si dessous fonctionne sauf pour les cellules qui renvoient le mot "porter" par rapport à une autre cellule. exemple: cellule j30 ='feuille 2'!a10 et renvoie le mot "porter" sauf que mon code ne trouve pas ce mot.
Je ne sais pas si je suis clair, c'est mot premier post, je ne suis pas du tout familier avec les forums.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Colorer_mot_recherché()   Dim b As String, r As Range, s As String, f As String   b = Range("j2") Set r = Cells.Find(b, lookat:=xlPart) 'lookat:=xlPart indique que la valeur trouvée peut être en partie égale à la valeur cherchée If Not r Is Nothing Then f = r.Address Do s = InStr(1, r.Value, b, vbTextCompare) 'vbTextCompare permet à la recherche de ne pas être sensible aux Maj/Minuscules While s > 0 r.Characters(Start:=s, Length:=Len(b)).Font.Color = vbRed 'colore en rouge le/les mot(s) recherché(s) s = InStr(s + 1, r.Value, b) Wend Set r = Cells.FindNext(r) Loop Until r Is Nothing Or r.Address = f End If End Sub

---

Par avance merci pour votre aide !

Il n'est pas possible de sélectionner une partie d'un élément qui n'est dans la cellule que "virtuellement".
Pas plus qu'il n'est possible de le faire "à la main".

La seule solution serait de faire un "copier/coller valeur" sur la cellule mais je suppose que ce n'est pas ce que tu souhaites.

Bonjour

Ne peux-tu pas tout simplement utiliser une MFC

Voir pièce jointe

Slts

Les MFC ne peuvent qu'agir sur la cellule, j'aimerais agir sur le mot en lui même, par exemple si la cellule contient "porter une charge de 15kg" l'objectif est de colorer en rouge uniquement le mot "porter" en rouge.
J'utilise également des MFC en combinant d'autres actions à ma plage.

Justement les MFC fonctionnent dans le cas ou le texte est présent "virtuellement" car lié à une autre cellule qui contient ce mot. Je trouve donc étrange qu'une macro ne puisse pas faire la même chose.

Merci pour vos réponses !

Citation:

---

Envoyé par poplastat

Justement les MFC fonctionnent dans le cas ou le texte est présent "virtuellement" car lié à une autre cellule qui contient ce mot. Je trouve donc étrange qu'une macro ne puisse pas faire la même chose.

---

Les macros, comme les MFC, peuvent agir sur l'intégralité de la cellule et une valeur issue d'une formule se conformera à la mise en forme de la cellule.

Mais il n'est pas possible d'agir sur une partie d'un texte si le texte n'est pas présent dans la cellule, que se soit à la main, avec un MFC ou avec une macro.

J'ai même essayé avec une formule alambiquée concaténant de plusieurs formules, la première affichant ce qui se trouve avant le texte chercher, la seconde le texte cherché et la troisième ce qui se trouve après le texte cherché.
Mais il ne semble pas possible de modifier la couleur d'une partie d'une formule.

En effet, je n'ai réussi à agir que sur une partie du texte (que le mot "porter") lorsque le texte était présent dans la cellule. Pour les cellules faisant référence à un texte issu d'une autre cellule j'ai réussi à obtenir dans le meilleur des cas la coloration de tout le texte en rouge.
Je crois que je suis dans une impasse car je ne peux pas modifier la source des cellules.

Merci pour votre temps :)

bonjour
je sais pas si ça va aider mais si le mot à colorer se trouve toujours dans la même position
essayez avec

Code:

---

1 2 3

Sub colo() Cells(4, 1).Characters(Start:=11, Length:=7).Font.Color = RGB(50, 200, 100) End Sub

---

La propriété Characters ne peut pas s'appliquer à une cellule contenant une formule (dans le doute, je viens de retester pour vérifier).

Je vais faire avec ce code et colorer tout le texte des cellules en rouge quand le texte correspond à ma cellule "j2".
J'aimerai dupliquer ce code automatiquement pour qu'il se duplique sur plusieurs colonne. colorer si une ou plusieurs cellules de ma plage "j3:j90" correspondent à la cellule j2 et ainsi de suite pour la colonne k, l, m etc.
Je ne vois pas comment le faire, dois-je utiliser une boucle while ? pour l'instant je n'ai pas défini ma sélection car j'aimerai directement qu'elle se modifie avec à chaque recherche dans ma boucle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub Colorer_Mots_et_Gras()   Dim sTexte As String, sMot As String Dim lDebut As Long, lFin As Long Dim i As Integer, iNbCar As Integer Dim c As Range   Application.ScreenUpdating = False   sMot = Range("j2") iNbCar = Len(sMot)   For Each c In Selection sTexte = c.Value   lDebut = InStr(1, sTexte, sMot, vbTextCompare) If lDebut > 0 Then With c.Characters(Start:=lDebut, Length:=Len(sMot)).Font .ColorIndex = 3 .Bold = True End With End If Next c   Application.ScreenUpdating = True   End Sub

---

une tentative de réponse
La chaîne de caractère dans la colonne A et en colonne B le mot à colorer
il suffit de déterminer la position du mot avec InStr et le langueur du mot avec Len et tu colore :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub colorer() Dim i As Long With Sheets("feuil1") i = .Range("A" & Rows.Count).End(xlUp).Row For L = 2 To i Chaine = .Cells(L, 1) Position = InStr(Chaine, .Cells(L, 2)) Longueur = Len(.Cells(L, 2)) .Cells(L, 1).Characters(Start:=Position, Length:=Longueur).Font.Color = RGB(224, 0, 0) Next L End With End Sub

---

j’espère que ça t'aide à avancer

Merci Bennasr !
ton code m'aide plutôt bien, pour ma part je souhaite chercher sur une colonne mais je pense pouvoir adapter ton code.

Encore merci