Mettre les majuscules en couleur

Severine33130 Messages postés 46 Date d'inscription dimanche 28 juin 2020 Statut Membre Dernière intervention 26 novembre 2024 - 9 févr. 2024 à 09:25
via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 - 9 févr. 2024 à 14:19

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 mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 2 740
9 févr. 2024 à 10:04

Bonjour Séverine

Il faut passer par une macro

Exemple à adapter :

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

Cdlmnt

Via


0
Severine33130 Messages postés 46 Date d'inscription dimanche 28 juin 2020 Statut Membre Dernière intervention 26 novembre 2024 1
9 févr. 2024 à 11:03

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 mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 2 740
9 févr. 2024 à 14:19

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