XL 2019 Colorier des mots dans cellule

[bobafric]

Bonjour à tous,
dans un tableau excel j'ai des groupes de trois mots séparés par des espaces. je voudrai appliquer une couleur différente à chaque mot
A savoir que le tableau se compose de 204 lignes

 

[sylvanu]

Bonjour Bobafric,
Un essai en PJ avec cette macro :

Sub Couleurs()
    Application.ScreenUpdating = False
    Set Plage = Range("A2:A" & [A65500].End(xlUp).Row)
    For Each C In Plage
        T = Split(C.Value, "  ")
        C.Characters(Start:=1, Length:=Len(T(0))).Font.Color = vbRed
        C.Characters(Start:=Len(T(0)) + 1, Length:=Len(T(1)) + 2).Font.Color = vbBlue
    Next C
End Sub
Sub Noir()
    Columns("A:A").Font.Color = vbBlack
End Sub

 

[bobafric]

Salut Sylvanu
désolé mais ça ne fonctionne pas j'ai un message: erreur d'exécution '13': incompatibilité de type

 

[bobafric]

Excuse moi mais ça marche , c'est peut être parce que il y a beaucoup de lignes .
merci encore à bientôt

 

[sylvanu]

Re,
J'ai repris la macro pour qu'il accepte un seul espace entre deux mots.

c'est peut être parce que il y a beaucoup de lignes .

Je ne pense pas, car testez la PJ, chez moi sur 1000 lignes cela prends 0.13s.

mais ça marche , c'est peut être parce que il y a beaucoup de lignes .

Ne mettez pas votre propre réponse en vert, cela déroutera le futur lecteur car il s'attend à y lire la solution.