Discussion :

[damsmut]

Bonjour à tous,

Voici mon espèce de code qui ne marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    Dim Ok As Boolean
    Ok = False
 
    Set nms = ActiveWorkbook.Names
        If nms("Ma_Plage").RefersToRange.Address = Target.Address Then Ok = True
 
 
    If Ok = True Then
        Nom_Cell = ActiveCell.Name.Name
        MsgBox (Nom_Cell)
    End If
 
 
End Sub

En fait, je souhaite faire un clic n'importe où dans ma feuille... et si mon clic appartient à "Ma_plage"... il doit se passer un truc...
Sachant que "Ma_plage" est défini dans les noms et fait référence à une plage de plusieurs cellules.


Merci

A+
Damsmut

[damsmut]

c'est bon j'ai trouvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    Dim Ok As Boolean
    Ok = False
 
    Set nms = ActiveWorkbook.Names
        If Not Intersect(Target, Range("Ma_Plage")) Is Nothing Then
            Ok = True
        End If
 
    If Ok = True Then
        Nom_Cell = Target.Address
        MsgBox (Nom_Cell)
    End If
 
 
End Sub

Merci moi