XL 2019 Remplacer un mot et ajouter une couleur

[Attila451]

Bonjour
J'ai une cellule A1 qui contient "prout coin cui",
Je veux remplacer "cui" par "ZO" qui se trouver en E5 ,

j'ai codifié de cette manière:

Sub remplacer()

Dim caro As Variant
caro = Cells(1, 5)

If Range("A1").Value Like "*cui*" Then
Range("A1") = Replace(Range("A1"), "cui", Cells(1, 5))
End If

End Sub

Ca fonctionne. La où je bloque c'est que je veux que cui soit remplacé par ZO en rouge, j'ai essayé plusieurs pistes mais sans succès:


Sub remplacer()

Dim couleur As Long
couleur = 65280 'RGB(0, 255, 0)

If Range("A1").Value Like "*cui*" Then
Range("A1") = Replace(Range("A1"), "cui", Cells(1, 5).Font.Color = couleur)
End If

End Sub

"cui" est remplacé par VRAI...

Et si je mets cells(1,5) dans une variable:

Sub remplacer()

Cells(1, 1) = "prout coin cui"

Set ZO = Cells(1, 5)
Dim couleur As Long
couleur = 65280 'RGB(0, 255, 0)

If Range("A1").Value Like "*cui*" Then

Range("A1") = Replace(Range("A1"), "cui", ZO.Font.Color = couleur)
End If

End Sub

j'ai VRAI à la place de ZO....

Merci d'avance pour votre précieuse aide !

 

[Phil69970]

Bonjour @Attila451

Essaye ceci si j'ai bien compris

Sub Testremplacer()
Dim couleur As Long
'couleur = 65280 'RGB(0, 255, 0) 'C'est vert mais pas rouge !!!!
couleur = vbRed

If Range("A1").Value Like "*cui*" Then
    Range("A1") = Replace(Range("A1"), "cui", Cells(1, 5))
    Range("A1").Font.Color = couleur
End If
End Sub

A noter :
Ceci n'est pas rouge chez moi !!!!

couleur = 65280 'RGB(0, 255, 0)

couleur = vbRed 'Maintenant c'est rouge !!!!

Merci de ton retour

 

[Attila451]

Bonjour @Attila451

Essaye ceci si j'ai bien compris

Sub Testremplacer()
Dim couleur As Long
'couleur = 65280 'RGB(0, 255, 0) 'C'est vert mais pas rouge !!!!
couleur = vbRed

If Range("A1").Value Like "*cui*" Then
    Range("A1") = Replace(Range("A1"), "cui", Cells(1, 5))
    Range("A1").Font.Color = couleur
End If
End Sub

A noter :
Ceci n'est pas rouge chez moi !!!!




Merci de ton retour

Bonjour Phil,
Merci mais j'ai surement mal formulé ma demande, j'ai besoin que seul le mot ZO soit rouge, et non pas tous les mots de A1.
Merci d'avance !

 

[Phil69970]

@Attila451

Avec le complément d'explication je te propose ce fichier

Merci de ton retour

 

[Attila451]

@Attila451

Avec le complément d'explication je te propose ce fichier

Merci de ton retour

Bonjour, désolé pour mon retour tardif mais merci pour la solution !
Bonne journée !

 

[Phil69970]

@Attila451
On valide le post qui correspond à la solution attendu pas son propre post car par définition tu n'as rien trouvé sinon tu ne saurais pas venu posé ta question
La validation permet de faire remonter la solution juste après ta demande pour aider le futur lecteur.
Merci bien de rectifier .