Problème Double Click Cellule G1

Bonjour le forum

Je voudrais faire 2 Double Click indépendant l'un de l'autre

Le 1er Double Click fonctionne bien cellule A3 => Macro => AfficherMasquerDistanceMoisPrecedent

La macro du 2 ème double Click s'appelle => AfficherMasquerColonneH

Je voudrais le Double click cellule G1

Merci pour vos retours

Cordialement

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  If Target.Count > 1 Then Exit Sub
  If Intersect(Target, [A3]) Is Nothing Then Exit Sub                         
  If Not Target.Comment Is Nothing Then AfficherMasquerDistanceMoisPrecedent     
End Sub

Bonjour, code suivant à essayer :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

If Target.Count = 1 Then
    If Not Intersect(Target, [A3]) Is Nothing Then
        If Not Target.Comment Is Nothing Then AfficherMasquerDistanceMoisPrecedent
    End If
    If Not Intersect(Target, [G1]) Is Nothing Then
        AfficherMasquerColonneH
    End If
End If

End Sub

Bonjour melch

Fonctionne bien mais juste un petit souci

Il faut que je me repositionne sur un autre cellule pour faire le double clic

J'ai déjà eu ça mais c'est loin...

Merci à toi

Re

Excuses moi trouvé

Ajouter

Cancel = True

Bonne fin de journée

Bien cordialement