Souligner et mettre en Rouge les lettres qui sont en majuscules dans du texte [Résolu]

Signaler
Messages postés
207
Date d'inscription
jeudi 23 août 2012
Statut
Membre
Dernière intervention
30 avril 2021
-
Messages postés
207
Date d'inscription
jeudi 23 août 2012
Statut
Membre
Dernière intervention
30 avril 2021
-
Bonjour,

Existe t'il une fonction ou une macro en vba pour souligner et mettre en Rouge les lettres qui sont en majuscules dans du texte ?

Exemple en A1, j'ai :

JHfts56trT

Comment transformer en :

JHfts56trT

et en rouge....

Merci d'avance,


Configuration: Windows / Firefox 78.0

1 réponse

Messages postés
13005
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
30 avril 2021
2 181
Bonjour

Une possibilité en VBA , déclenchement par double-clic dans la cellule à traiter :
Alt+F11 pour ouvrir l'éditeur VBA
Double clic sur la feuille dans l'arborescence à gauche
Copier coller la macro dans lea page blanche et fermer éditeur
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    For n = 1 To Len(Target.Value)
    c = Asc(Mid(Target.Value, n, 1))
        If c >= 65 And c <= 90 Then
           With ActiveCell.Characters(Start:=n, Length:=1).Font
                .Underline = xlUnderlineStyleSingle
                .Color = -16776961
            End With
        End If
    Next n

End Sub

Cdlmnt
Via
Messages postés
207
Date d'inscription
jeudi 23 août 2012
Statut
Membre
Dernière intervention
30 avril 2021
2
Bonjour Via55,

Excellent !

Merci ! et Bonne journée !