Mettre les majuscules en couleur

Severine33130 Messages postés 104 Date d'inscription   Statut Membre Dernière intervention   -  
via55 Messages postés 14512 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.

A voir également:

2 réponses

via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 

Bonjour Séverine

Il faut passer par une macro

Exemple à adapter :

https://www.cjoint.com/c/NBjjdypjo2Q

Cdlmnt

Via


0
Severine33130 Messages postés 104 Date d'inscription   Statut Membre Dernière intervention   2
 

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

0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 

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 Sub

Pour les mots entiers passant en rouge sans être en majuscules je ne vois pas comme ça, je verrai peut être pourquoi avec ton fichier


0