Comment colorier une cellule si le contenu d'une cellule est AN

Résolu/Fermé
Greg - 11 avril 2013 à 14:55
 Greg - 11 avril 2013 à 17:13
Bonjour,

Je souhaite faire une macro qui colore une cellule en noir si le contenu de la case B10 est Cannette. Je Bloque, Merci,

Voici ce que j'ai commencé à faire mais qui ne marche pas

Sub Macro2()
'
' Macro2 Macro
'

'
If Range("B10" = Cannette) Then
Range("F10").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Application.Goto Reference:="Macro2"
End If
End Sub

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
11 avril 2013 à 15:05
Bonjour,

Sub Macro2() '
    If Range("B10") = "Cannette" Then
        Range("F10").Interior.Color = vbBlack
    End If
End Sub


Avec une Mise en Forme Conditionnelle vous arrivez a la meme chose sans VBA

Bonne suite
0
Yes ca marche, merci beaucoup!!
0