lancer macro si une cellule colonne A est sélectionnée

[pascal21]

If Not Application.Intersect(Target, Range("a2:a15000")) Is Nothing Then
macro1
else 
exit sub

bonjour le forum
tout est dans le titre en fait
je souhaite que la macro1 se lance que si une cellule de la colonne A est sélectionnée
sinon on sort de la macro
je croyais que c'était ce code mais j'ai une erreur
pouvez vous m'aiguiller svp
merci

 

[phlaurent55]

Bonjour Pascal,

Pour répondre à ta question, la procédure doit se trouver dans:

WorkSheet-Selection-Change

À+
Philippe

 

[pascal21]

ha oui c'est pour ça
je l'ai inclus dans une macro pour un bouton en fait
alors dans ce cas que faut-il mettre pour que ça fonctionne sur le clic d'un bouton?

 

[pascal21]

voila le code en entier sur le bouton

Private Sub CommandButton2_Click() 'bouton supprimer les plages horaires en cliquant sur le nom de l'enfant
Application.ScreenUpdating = False
                               'déclencher macro si cellule colonne A est active
With Sheets("planing semaine")
ActiveCell.FormulaR1C1 = ""

Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(0, 26)).Select
Selection.FormulaR1C1 = ""
    copie 'macro
    Sheets("planing semaine").Select
    Application.ScreenUpdating = True
   
    End With
End Sub

 

[phlaurent55]

Re,

en testant si la cellule active se trouve bien en colonne A

If ActiveCell.Column = 1 Then
................
................

End If

à+
Philippe

 

[pascal21]

ok merci ca fonctionne
mais je l'avais essayé ce code là et çà ne marchait pas
sans doute une erreur de syntaxe
bonne soirée