Execution automatique d'une macro

Bonsoier Saidtoufik, bonsoir le forum,

Supprime la première ligne de ton code :

If Target.Address <> "$A$1" Then Exit Sub 

qui dit clairement : si A1 n'est pas la cellule active, sort de la procédure... Donc la suite du code n'est exécutée qui si tu sélectionnes A1.

Bonjour,

La macro se déclenche lorsque tu change de cellule dans ta feuille....et uniquement lorsque que tu te places sur la cellule A1 (normal puisque ton IF lui demande de faire ça !! )

Pour la rendre automatique à l'ouverture du classeur tu dois utiliser workbook_open
et modifier un peu ton code

Private Sub Workbook_Open()
 Dim sh As Worksheet
 Set sh = ThisWorkbook.Sheets(1) ' ou une autre feuille.. a toi de voir
 
 With sh
  If .Range("A1").Value = 405 Then
   Call supprimer
   End If
 End With
End Sub

https://silkyroad.developpez.com/VBA/EvenementsClasseur/#LII-12
.

Cordialement, 
Jordane                                                                 

Merci pour vos réponses
Je ne veux pas que la macro s’exécute à l'ouverture du classeur mais seulement lorsque A1 prend la valeur 405 comme exemple.
et quand j’enlève la ligne If Target.Address <> "$A$1" Then Exit Sub la macro s’exécute là où je clique aussi.
Ce que je veux c'est quand A1=405 alors la macro s’exécute automatiquement sans y aller sur la feuille et cliquer sur la cellule .
J’espère que c'est plus clair.

Merci Jordane45 pour la réponse .
Oui c'est ce que j'ai fait et que j'ai posté sur mon premier message mais ça ne fonctionne que quand je clique sur la cellule A1 et seulement quand je clique sinon rien ne se passe .

Bonsoir Mr eriiic
voila ce que j'ai mis :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Range("A1").Value = 405 Then
Call supprimer
End If
End Sub </bold><ital></ital>
 et voila ce qu'a mis Jordane :
<bold>Private Sub Worksheet_Change(ByVal Target as Range) 
    If Target.Address <> "$A$1" Then Exit Sub 
    If Range("A1").Value = 405 Then 
       Call supprimer 
    End If 
End Sub

et c'est pareil et j'ai essayé avec "405" et 405 et cela a donné le mème résultat et je ne sais ou est le problème et j'ai entendu parler de :

Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    Public Const MOUSEEVENTF_LEFTDOWN = &H2
    Public Const MOUSEEVENTF_LEFTUP = &H4

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici :ICI Merci d'y penser dans tes prochains messages.

mais je n'arrive pas à bien le manipuler et il me donne des messages d’erreurs du genre
Microsoft Visual Basic for Applications
---------------------------
Compile error:

Constants, fixed-length strings, arrays, user-defined types and Declare statements not allowed as Public members of object modules

Merci Eric et bonne réinstallation
je vais essayer de mettre le module et worksheet ensemble
Said