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

Résolu
Greg -  
 Greg -
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 715
 
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
Greg
 
Yes ca marche, merci beaucoup!!
0