Condition dans une macro

Bonjour,

Comment fait-on pour inclure une condition dans une macro ?

- Ex. : une cellule est sélectionnée dans un fichier et une macro lancée ensuite, mais celle-ci ne doit fonctionner que si la cellule sélectionnée est rouge.

Merci de votre aide

Thierry

Bonjour,

Veux-tu t'inspirer avec le code suivant (code à adpater selon les objets à tester) :

Sub TestCouleur()
    If Sheets("Feuil1").Range("A1").Interior.Color = 255 Then
        'ici tu peux appler ta macro
    End If
End Sub

Bonjour,

Dans VBAProject -> ThisWorkbook, tu mets :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Interior.ColorIndex = 3 Then MsgBox "OH, une cellule rouge", vbInformation
End Sub

Edit Amadéus: Pit, C'est mieux en utilisant la balise Code