Colorer une chaine de texte sous excel
Résolu/Fermé
A voir également:
- Colorer une chaine de texte sous excel
- Liste déroulante excel - Guide
- Excel cellule couleur si condition texte - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Si et excel - Guide
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
26 août 2009 à 17:09
26 août 2009 à 17:09
Bonjour
ci joint maquette à adapter
https://www.cjoint.com/?iArimJbumU
et ses macros ci dessous en considérant que le nom des thèmes est en colonne 1 (A) et la mise en tricolore colonne 6 (F) en constante
ci joint maquette à adapter
https://www.cjoint.com/?iArimJbumU
et ses macros ci dessous en considérant que le nom des thèmes est en colonne 1 (A) et la mise en tricolore colonne 6 (F) en constante
Const col As Byte = 6 'colonne de restitution Sub colorier(texto1, texto2, texto3, tricolore As Range) tricolore = texto1 & "/" & texto2 & "/" & texto3 long1 = Len(texto1) long2 = Len(texto2) long3 = Len(texto3) With tricolore If long1 > 0 Then: .Characters(Start:=1, Length:=long1).Font.ColorIndex = 4 If long2 > 0 Then: .Characters(Start:=long1 + 1, Length:=long2).Font.ColorIndex = 5 .Characters(Start:=long1 + long2 + 3, Length:=long3).Font.ColorIndex = 3 End With End Sub Sub test() Dim derlig As Long, lig As Long derlig = Range("A65536").End(xlUp).Row Columns(col).Clear Application.ScreenUpdating = False For lig = 2 To derlig colorier Cells(lig, 2), Cells(lig, 3), Cells(lig, 4), Cells(lig, col) Next Application.ScreenUpdating = True End Sub
27 août 2009 à 01:14
J'avoue que ça va me sortir une belle épine du pied pour ma présentation de résultats