Select Case avec * ne fct pas

Bonjour,

je veux colorer une cellule lorsque celle-ci commence par la lettre V. Habituellement "V*" fonctionne.

Mais pas avec Case ?

For Each c In r
     Select Case c.Value
               Case "V*" 'condition
               c.Font.ColorIndex = 3     
End Select
Next

bonjour,

cela ne fonctionne pas dans une instruction select

une proposition

For Each c In r
     Select Case left(c.Value,1)
               Case "V" 'condition
              c.Font.ColorIndex = 3     
End Select
Next
 

Salut H2so4

Nickel

Merci