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

détecter les clics effectués dans une plage de données nommée (RÉSOLU)

  • Initiateur de la discussion Initiateur de la discussion modus57
  • 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 !

modus57

XLDnaute Occasionnel
Bonjour à tous.
J’ai trouvé dans un forum une macro qui détecte les clics effectués dans une plage de données nommée. Ne fait rien quand un clic est effectué en dehors de cette plage.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Détecter les clics dans une plage contenant des données
Dim maplage
On Error GoTo erreur ' Pour tenir compte des clics en dehors de la grille
maplage = Range("plage").Name
If Target.CurrentRegion.Name = maplage Then
MsgBox "Clic dans la grille"
End If
erreur:
' On ne fait rien...
End Sub

Après avoir collé ce code dans la feuille çà ne fonctionne pas ?

Qui connait la solution à ce problème.

Merci d’avance pour vos réponse.
 
Re : détecter les clics effectués dans une plage de données nommée

Bonjour à tous,

Pas testé mais n'aurais-tu pas oublié :

Set maplage = Range("plage").Name

A + à tous

Edition : Après test, ceci devrait suffire

VB:
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("Plage")) Is Nothing Then
        MsgBox "Clic dans la grille"
    End If
End Sub

Oups : Salut Papou
Re Oups : Salut PJ
Re, Re Oups : Merci Papou...
(le temps que je comprenne...)​
 
Dernière édition:
Re : détecter les clics effectués dans une plage de données nommée

Bonjour modus57,

Comme ceci ça devrait marcher sans problème :

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Détecter les clics dans une plage contenant des données
Dim maplage
maplage = Range("plage").Address
If Not Intersect(Target, Range(maplage)) Is Nothing Then
MsgBox "Clic dans la grille"
End If
End Sub
"plage" étant à remplacer par le nom de ta plage de cellules.

Et c'est plus simple, pas besoin de gérer les erreurs.

Espérant avoir répondu.

Cordialement.

Edit : bonjour JCGL, et félicitations pour tes 11000
 
Dernière édition:
Re : détecter les clics effectués dans une plage de données nommée

Bonjour modus57

Salut JC 😱 🙂

Je te propose:

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("plage")) Is Nothing Then MsgBox ("clic dans la plage")
End Sub
 
Re : détecter les clics effectués dans une plage de données nommée

Bonsoir JCGL, Papou-net, pierrejean

Merci à vous, çà marche tip-top.

Cordiales salutations.

Question subsidiaire : comment insérer une émoticône dans le texte du message et encadrer le code svp.
 
Re : détecter les clics effectués dans une plage de données nommée

Bonjour à tous,

Aller en mode avancé
Et là tu trouves les boutons :



A + à tous
 

Pièces jointes

  • Capture_1.jpg
    15.8 KB · Affichages: 80
  • Capture_1.jpg
    15.8 KB · Affichages: 84
Re : détecter les clics effectués dans une plage de données nommée

Bonsoir JCGL

Je suis navré d'insister, mais lorsque je clique sur le bouton "Allé en mode avancé", la fenêtre "Répondre à la discussion" s'affiche, mais je ne vois pas les boutons qui figurent sur ta pièce jointe.
 
Re : détecter les clics effectués dans une plage de données nommée

Bonjour à tous,

Clique sur Tableau de Bord tout en haut

Trouve Options générales :



Trouve Options Diverses et Coche



Clique sur Enregistrer

A + à tous
 

Pièces jointes

  • Capture_2.png
    7.9 KB · Affichages: 94
  • Capture_2.png
    7.9 KB · Affichages: 100
  • Capture_1.png
    19 KB · Affichages: 82
  • Capture_1.png
    19 KB · Affichages: 81
- 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

Discussions similaires

  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
655
Réponses
3
Affichages
587
Réponses
7
Affichages
799
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…