Recherche d'une cellule excel en minuscule

Résolu/Fermé
christianm - 22 déc. 2010 à 11:58
 christianm - 22 déc. 2010 à 13:43
Bonjour,


comment mettre en surbrillance une cellule excel dont le texte est écrit en minuscule.

Je veux le faire par le biais d'une boucle sous VB.

Merci d'avance

A voir également:

2 réponses

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
22 déc. 2010 à 12:41
Bonjour,
Sub Colorer()
Dim Plage As Range
Dim Cel As Range
    Set Plage = Range("A1:C20") ' a adapter
    For Each Cel In Plage
        If Cel <> "" Then
            If Cel.Value = LCase(Cel.Value) Then Cel.Interior.ColorIndex = 6
        End If
    Next Cel
End Sub

A+
1
je te remercie j'ai adapté ta procédure à mon programme et ça marche très bien
Merci de ton aide
0