Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Worksheet_SelectionChange

  • Initiateur de la discussion Initiateur de la discussion natha
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

N

natha

Guest
Bonjour

Je suis débutant sur les macros excel, en regardant un peu les sujets j'ai trouvé ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range('A1')) Is Nothing Then
MsgBox 'Click on ' & Target.Address
End If
End Sub

J'ai voulu tester mais qd je fais 'play', une fenêtre s'ouvre en me demandant de sélectionner une macro. ...ben pourquoi? 😀
Quand je reviens sur mon tableau et que je clique sur A1, on me dit erreur de compilation.
Je suis optimiste je me dis que ça veut donc dire que mon clic a été détecté mais bon ça m'avance pas bc 🙂

A oui et la 2eme ligne s'affiche en rouge.
Il y a une erreur dans ce petit code?

J'utilise excel 2003

Merci de m'éclairer 🙂
Natha
 
Dernière modification par un modérateur:
Re : Worksheet_SelectionChange

Bonjour natha,
Bonjour
J'ai voulu tester mais qd je fais 'play', une fenêtre s'ouvre en me demandant de sélectionner une macro. ...ben pourquoi? 😀
Par ce qu'il s'agit d'une macro evennementielle : elle se lance dès la selection de la cellule A1 et doit se trouver dans le code de la feuille concernée (click droit sur l'onglet et visualiser le code).
En faisant "play" Excel ne la prend pas en compte dans la liste des macros à jouer.

Quand je reviens sur mon tableau et que je clique sur A1, on me dit erreur de compilation.

Il ya une erreur de ' pour les versions françaises il faut mettre :

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range([COLOR=red][B]"[/B][/COLOR]A1[COLOR=red][B]"[/B][/COLOR])) Is Nothing Then
    MsgBox [COLOR=red][B]"[/B][/COLOR]Click on [COLOR=red][B]"[/B][/COLOR] & Target.Address
End If
End Sub

En espérant avoir répondu à tes attentes,
Cordialement
 
Re : Worksheet_SelectionChange

Yees!
Ca fonctionne
Du cou pje trouve ca un peu con, j'ai crée une macro avec rien dedans juste pour que ca marche 😀

enfin merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
14
Affichages
484
Réponses
32
Affichages
2 K
Réponses
3
Affichages
322
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…