VBA Nom ambigu - Erreur de compilation

Bonjour tous le monde,

J'ai un soucis, j'ai créé une formule:

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

If Not Intersect(Target, Range("A1")) Is Nothing Then

Sheets("Feuil2").Select

End If

End Sub

Qui a pour but d'ouvrir la feuille 2 lorsque je double clique sur la cellule A1.

Je voudrais faire exactement la meme formule qui me permetrais d'ouvrir la feuille 3 lorsque je double clique sur la cellule A2, Mais le msg d'erreur suivant s'affiche: Erreur de compilation. Nom ambigu détécté.

Ci joint le doc

Des idées ?

Merci Beaucoup !

Bonjour,

Tu ne peux pas utiliser 2 procédures évènementielles Worksheet.BeforeDoubleClick.

Essaie avec :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Sheets("Feuil2").Select
    ElseIf Not Intersect(Target, Range("A2")) Is Nothing Then
        Sheets("Feuil3").Select
    End If
End Sub

A+

Bonjour,

A tester avec macro double-clic dans le ThisWorbook

Ton erreur venait des deux macros double-clic

Amicalement

Pierrot

Bonjour, frangy

Excuses-moi, je n'avait pas vu ta réponse

Amitiés

Pierrot

Au top merci de ta réponse

Bonjour, Felipe

un fichier à tester avec une création de feuilles qui sont affichées sur double-clic

Amicalement

Pierrot