Probleme Miniscules

[teodormircea]

Salut

Je voudrais trouver une solution en VBA pour trouver des miniscules et les marquer avec une couleur.
Merci

 

[pierrejean]

Re : Probleme Miniscules

bonjour teodormircea

une macro pour mettre en rouge les minuscules :

Sub minuscules()
For Each cel In ActiveSheet.UsedRange
 For n = 1 To Len(cel)
 If Asc(Mid(cel, n, 1)) > 96 And Asc(Mid(cel, n, 1)) < 123 Then
   cel.Characters(Start:=n, Length:=1).Font.ColorIndex = 3
 End If
 Next n
Next cel
End Sub

 

[teodormircea]

Re : Probleme Miniscules

Merci ca marche nikel. J'ai un truc que je veux rajouter, car pas example si veux appliquer l'autofilter , comment je fais pour afficher que les celles qui ont les lettres marque par le precedent macro

 

[teodormircea]

Re : Probleme Miniscules

Mersi ca marche nickel.