Mettre les majuscules en couleur
via55 Messages postés 14393 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je cherche, en vain, la façon la plus rapide de mettre UNIQUEMEMENT DES MAJUSCULES en couleur sous un tableau Excel de façon automatique, faisant ressortir la signification d'abréviations.
EX : AF => Avis Favorable
Mais je ne trouve pas de réponse.
Merci pour votre aide.
Séverine.
2 réponses
-
Bonjour Séverine
Il faut passer par une macro
Exemple à adapter :
https://www.cjoint.com/c/NBjjdypjo2Q
Cdlmnt
Via
-
Bonjour via55,
Merci pour ta réponse.
Cependant, je ne comprends pas pourquoi, mais cela ne fonctionne pas correctement.
De plus, je ne sais pas à quoi correspondent les termes de la macro.
Comment je fais si je veux que mes majuscules soient en rouge et en gras ? ou dois-je apporter la modification ?
De plus, parfois, j'ai des mots entiers qui passent en rouge alors qu'ils ne sont pas écris en majuscule.
Pour finir, une fois que j'ai appliqué la macro, je ne peux plus enregistrer mon fichier car il y a une erreur
https://www.cjoint.com/c/NBjkcH8NSnE
-
-
Re
Je ne peux pas ouvrir ton fichier
Enregistre le en xls ou en xlsx selon ta version d'Excel et reposte le moi
Quelle erreur est indiquée lorsque tu veux enregistrer ?
La macro avec explication et une ligne ajoutée pour le gras
Sub majcol() ' On boucle sur toutes les cellules de la plage indiquée ci-dessous For Each cell In Range("C2:C10") ' changer la plage à traiter en fonction du fichier ' On boucle sur tous les caractères contenus dans une cellule (en fonction de la longueur du texte) For n = 1 To Len(cell.Value) 'Si le code caractère est compris entre 65 et 90 (codes des 26 majuscules) If Asc(Mid(cell.Value, n, 1)) >= 65 And Asc(Mid(cell.Value, n, 1)) <= 90 Then 'le nieme caractère est coloré en rouge cell.Characters(Start:=n, Length:=1).Font.Color = -16776961 'le nieme caractère est mis en gras cell.Characters(Start:=n, Length:=1).Font.FontStyle = "Gras" End If Next Next End SubPour les mots entiers passant en rouge sans être en majuscules je ne vois pas comme ça, je verrai peut être pourquoi avec ton fichier
