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

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

Discussions similaires

Newsletters