Nom d'une zone

Le
Gilbert
Bonjour,

J'ai dans une feuille plusieurs groupes de cellules nommées.
Lorsque je double-clique sur une de ces zones, j'exécute une procédure.
Comment dans cette procédure puis-je récupérer le nom de la zone sur
laquelle j'ai double-cliqué?
J'ai essayé Target.name mais ça me renvoie une erreur

Merci d'avance
--
Cordialement,

Gilbert
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5183011
Bonjour,


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each n In ActiveWorkbook.Names
If Not Intersect(Range(n.Name), Target) Is Nothing Then
MsgBox n.Name
End If
Next n
End Sub

http://cjoint.com/?dnkBPaAcKN

JB
http://boisgontierjacques.free.fr/


On 13 mar, 09:27, "Gilbert"
Bonjour,

J'ai dans une feuille plusieurs groupes de cellules nommées.
Lorsque je double-clique sur une de ces zones, j'exécute une procédure .
Comment dans cette procédure puis-je récupérer le nom de la zone sur
laquelle j'ai double-cliqué?
J'ai essayé Target.name mais ça me renvoie une erreur

Merci d'avance
--
Cordialement,

Gilbert


Gilbert
Le #5182991
Impeccable

Merci

--
Cordialement,

Gilbert


"JB" news:
Bonjour,


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each n In ActiveWorkbook.Names
If Not Intersect(Range(n.Name), Target) Is Nothing Then
MsgBox n.Name
End If
Next n
End Sub

http://cjoint.com/?dnkBPaAcKN

JB
http://boisgontierjacques.free.fr/


On 13 mar, 09:27, "Gilbert"
Bonjour,

J'ai dans une feuille plusieurs groupes de cellules nommées.
Lorsque je double-clique sur une de ces zones, j'exécute une procédure.
Comment dans cette procédure puis-je récupérer le nom de la zone sur
laquelle j'ai double-cliqué?
J'ai essayé Target.name mais ça me renvoie une erreur

Merci d'avance
--
Cordialement,

Gilbert


PMO
Le #5182941
Bonjour,

Un piste avec le code évenementiel suivant


'***************************
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)
Dim N As Name
Dim A$
Dim R As Range
For Each N In ActiveWorkbook.Names
A$ = N.RefersTo
If Left(A$, 1) = "=" And InStr(1, A$, "!") Then
A$ = Mid(A$, InStrRev(A$, "!") + 1)
Set R = Application.Intersect(Range(A$), Target)
If Not R Is Nothing Then
MsgBox N.Name 'pour visualiser le nom
'--- à adapter ---
''If N.Name = "zaza" Then Call ma_procédure
'-----------------
End If
End If
Next N
Cancel = True 'pour déselectionner le doubleclick
End Sub
'***************************

Cordialement.

--
PMO
Patrick Morange
Publicité
Poster une réponse
Anonyme