Souligner et mettre en Rouge les lettres qui sont en majuscules dans du texteRésolu/Fermé

Question

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

via55 · Answer

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

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

1 réponse

Newsletters