Exécution d'une macro si cellule égal

Bonjour la communauté,

Je souhaiterais, qu'après vérification de la cellule A1,si elle est égal à 1 exécution de la macro, si autre que 1 alors la macro ne s'exécute pas et affiche un message.

Merci de votre aide

Bonjour

Un essai à tester. Te convient-il ?

Sub Macro()

    If ActiveSheet.Range("A1") = 1 Then
        'Instructions
        '
        '
    Else
        MsgBox "La cellule ''A1'' de la feuille active ne contient pasla valeur 1.", 16
        Exit Sub
    End If
End Sub

Bye !

Bonjour le fil, bonjour le forum,

Le même principe que Gmb (que je salue au passage) mais avec l'événementielle Change, à placer dans le composant de l'onglet où l'on veut que ça agisse (Feuil1 (Feuil1) par exemple) :

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
If Target.Address <> "$A$1" Then Exit Sub 'si le changement a lieu ailleurs qu'en A1, sort de la procédure
If Target.Value = 1 Then 'condition : si A1 vaut 1
    Call MA_Macro 'appelle la procédure [Ma_Macro] (nom de la procédure à adapter)
Else 'sinon
    MsgBox "Mon Message !" 'messge a adapter
End If 'fin de la condition
End Sub

Merci à vous 2 pour vos réponses.

J'ai opté pour la solution de gmb.