VBA façon hyperlien - problème de plage

Version imprimable

Hello 8-)

Grande débutante VBA, j'ai trouvé un code sur un forum, puis je l'ai bidouillé pour qu'il colle à mes besoins. Mais bien sûr, quelque chose ne tourne pas rond, et c'est là que j'ai besoin d'aide.
Tout d'abord, voici le code :
Code:

1 2 3 4 5 6 7 8 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Select Case Target.Address Case "$D$6" To "$D$69" Sheets("A").Visible = True Sheets("A").Activate End Select End Sub
Ce code doit déclencher la macro lorsque l'utilisateur double-clique sur une cellule qui se trouve dans la plage spécifiée. Il est alors renvoyé vers l'onglet cité. A première vue c'est très simple.
MAIS :
- la plage ne fonctionne pas. Elle fonctionne seulement si je la découpe en "tranches" d'environ 20 cellules à la fois. Qu'est-ce que je fais mal ?
- je n'arrive pas à spécifier une cellule d'arrivée précise : je voudrais que l'utilisateur arrive précisément en E2.

Est-ce que quelqu'un a une idée svp ? 8O
Ingrid
PS : je ne sais pas comment insérer un tag, mais je travaille sous Office 2010 Pro, Excel 14.0.7192.5000 (32 bits)

Citation:

Envoyé par IngridF

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
 
    If Not Intersect(Target, Range("D6:D69")) Is Nothing Then
       With Sheets("A")
            .Visible = True
            .Activate
            .Range("E2").Activate
       End With
    End If
 
End Sub

Citation:

PS : je ne sais pas comment insérer un tag

???

03/11/2018, 10h36
IngridF

Merci !

Mille merci, Eric, c'est exactement ce dont j'avais besoin !! Je suis en train de le reproduire pour toutes mes plages de valeurs. :mrgreen:

Je vais étudier plus attentivement ce "intersect", que je ne connaissais pas encore.

Merci encore :D