option demarrage d' une macro

[nicroq]

Bonjour, je viens de terminer une petite macro qui tourne très bien, cependant je souhaiterai que lorsque je clique sur le bouton pour lancer la macro, qu'elle ne demarre que si la cellule A1 est selectionnée sinon msgbox " erreur cellule A1 non selectionnée" . Et que la macro ne demarre pas tant que la la cellule A1 n'est pas selectionnée.

En vous remerciant de votre aide

Nico

 

[job75]

Re : option demarrage d' une macro

Bonjour,

En début de macro :

If Intersect(Selection, [A1]) Is Nothing Then Msgbox "blablabla": Exit Sub

ou si l'on préfère :

If ActiveCell.Address <> "$A$1" Then Msgbox "blablabla": Exit Sub

A+

 

[James007]

Re : option demarrage d' une macro

Bonjour,

Bien qu'il y aurait un commentaire à faire sur ta logique ...
Tu peux ajouter le code suivant, en tout début de ta macro :

If ActiveCell.Address <> "$A$1" Then
      MsgBox " Oops, vous n'avez pas sélectionné A1 ..."
      Exit Sub
End If

A +
🙂

Edit : Un Grand Bonjour Amical à Job75 😎

 

[nicroq]

Re : option demarrage d' une macro

merci beaucoup pour votre aide
Ca marche nikel!

Vraiment très utile et efficace votre forum!!!