Souligner et mettre en Rouge les lettres qui sont en majuscules dans du texte

Résolu/Fermé
PYGOS69 Messages postés 324 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 3 octobre 2022 - Modifié le 30 avril 2021 à 09:50
PYGOS69 Messages postés 324 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 3 octobre 2022 - 30 avril 2021 à 13:20
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

via55 Messages postés 13990 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 9 décembre 2022 2 532
Modifié le 30 avril 2021 à 12:53
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
1
PYGOS69 Messages postés 324 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 3 octobre 2022 7
30 avril 2021 à 13:20
Bonjour Via55,

Excellent !

Merci ! et Bonne journée !
0