XL 2019 Colorier des mots dans cellule

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Septembre 2023

• #2

Bonjour Bobafric,
Un essai en PJ avec cette macro :

VB:

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

 

Pièces jointes

• essai.xlsm

  16.4 KB · Affichages: 3

Vote positif 0 Vote négatif

B

bobafric

XLDnaute Occasionnel

• 11 Septembre 2023

• #3

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

 

Vote positif 0 Vote négatif

B

bobafric

XLDnaute Occasionnel

• 11 Septembre 2023

• #4

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

 

Vote positif 0 Vote négatif

Solution

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Septembre 2023

• #5

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

bobafric à dit:

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

Cliquez pour agrandir...

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

bobafric à dit:

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

Cliquez pour agrandir...

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

 

Pièces jointes

• essai (2).xlsm

  27.3 KB · Affichages: 1

Vote positif 0 Vote négatif