Comment colorier une cellule si le contenu d'une cellule est AN Résolu/Fermé

Question

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
Configuration: Windows 7 / Chrome 26.0.1410.43

f894009 · Answer

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

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

1 réponse

Discussions similaires