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

Résolu
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   -  
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 742
 
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 452 Date d'inscription   Statut Membre Dernière intervention   21
 
Bonjour Via55,

Excellent !

Merci ! et Bonne journée !
0