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 -
PYGOS69 Messages postés 452 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Corinne copie un texte sur le web et le colle pix
- Web office - Guide
- Copie cachée - Guide
- Copie écran samsung - Guide
- Copie disque dur - Guide
- Traducteur photo - texte et web - Guide
1 réponse
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
Cdlmnt
Via
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
Excellent !
Merci ! et Bonne journée !