Macro pour double click dans feuille excel

[Tophe2]

Bonjour le forum,

J'ai une macro (ci dessous qui fonctionne) et j'aimerai pouvoir ajouter 1 autre possibilité de double click dans la cellule D10 avec une macro et éventuellement par la suite (si possible ajouter d'autres possibilités) j'ai essayé quelques solutions mais sans succès.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

If Target.Address = "$D$6" Then AfficheTousOnglets

ActiveSheet.[A3].Select
End Sub

Merci pour votre aide
Bonne Journée
Christophe

 

[mapomme]

Bonsoir Tophe2,

Un code du genre:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

  Select Case Target.Address(0, 0)
  Case "D6"
    AfficheTousOnglets
  Case "D10"
    AfficheQuandD10
  Case "A99"
    AfficheQuandA99
  End Select

  ActiveSheet.[A3].Select
End Sub

edit: Bonjour DoubleZero

 

[DoubleZero]

Bonjour, Tophe2, le Forum,

Un exemple... à adapter.

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Excel.Range, Cancel As Boolean)
    Cancel = 0
    If c.Address = "$D$6" Then
        Select Case c.Value
        Case "a": MsgBox "Bonjour !": ActiveSheet.[A3].Select
        Case "b": MsgBox "Au revoir !": ActiveSheet.[A4].Select
        End Select
    End If
End Sub

A bientôt

P. S. : Bonjour, mapomme

 

[Tophe2]

Bonjour mapomme et DoubleZero,

Merci

Bonne Journée
Christophe.