XL 2013 Exit sub si cellule active est a1

Usine à gaz · 11 Décembre 2017

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 · 11 Décembre 2017

Bonjour Arthour.

VB:

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

Usine à gaz · 11 Décembre 2017

Bonjour thebenoit59,

Merci pour ce retour surper rapide
Je teste et je reviens

Usine à gaz · 11 Décembre 2017

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 :

Code:

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 · 11 Décembre 2017

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

Usine à gaz · 11 Décembre 2017

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

XL 2013 Exit sub si cellule active est a1

Usine à gaz

XLDnaute Barbatruc

thebenoit59

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

thebenoit59

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

Discussions similaires