XL 2013 Exit sub si cellule active est a1

[Usine à gaz]

Bonjour à toutes et à tous,

Nouveau jour = nouvelle évolution et nouveau souci que je ne peux pas résoudre LOL
Je me tourne encore une fois vers vous.

Voici mon problème
J'ai besoin de faire un code qui traduise ceci :

Si la cellule A1 de la feuille "CopieAppels" est active (donc sélectionnée)
exit sub

Je n'arrive pas à traduire en vba malgré mes recherches.
N'ayant rien réussi de bon, je me permet de ne pas joindre de fichier.

Avec mes remerciements,
Je vous souhaite une belle journée,
Amicalement,
Lionel,

 

[thebenoit59]

Bonjour Arthour.

If ActiveCell.Address = "$A$1" Then Exit Sub

 

[Usine à gaz]

Bonjour thebenoit59,

Merci pour ce retour surper rapide
Je teste et je reviens

 

[Usine à gaz]

Re

Si je mets ton code tel quel, ça marche super.

Mais je voudrais mettre un petit message et voilà le code que j'ai mis en incluant le tien :

If ActivellCell.Address = "$A$1" Then
    MsgBox ("Vous n'avez pas sélectionné la ligne à réintégrer !" & nbcel)
    Exit Sub
    End If

ça beugue sur la 1ère ligne : If ActivellCell.Address = "$A$1" Then

Je continue à chercher ......

 

[thebenoit59]

Une erreur de frappe dans ma précédente réponse, corrigée.

 

[Usine à gaz]

LOL, suis ti-je bête
J'aurais du la voir ......
Un grand merci à toi, c'est tout bon
Amicalement,
Lionel,