recherche d'une cellule excel en minuscule Résolu

Question

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

Configuration: Windows XP / Firefox 3.0.5

lermite222 · Answer

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+

christianm · Answer

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

Recherche d'une cellule excel en minuscule

2 réponses

Discussions similaires

Newsletters