Discussion :

[IngridF]

Hello

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 :

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

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 ?
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)

[Invité]

Bonjour,

Code :

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

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

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

???

[IngridF]

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

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

Merci encore