beforedouble click pour classeur entier

bonjour,

J'ai un classeur avec 14 feuilles.
Lorsque l'on double clic sur la cellule A1 un usf s'ouvre.
Je voudrais éviter de le copier sur chaque feuille. Comment faire qu'il soit valable pour les 14 feuilles.
Dans thisworkbook avec for each....

Merci

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   If Not Application.Intersect(Target, Range("A1")) Is Nothing Then   TabAbsences.Show   End If   End Sub

---

Bonjour,

il y a une procédure évènementielle dédiée dans le module ThisWorkbook

Code:

---

1 2 3 4 5 6

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("A1")) Is Nothing Then TabAbsences.Show Cancel = True End If End Sub

---

Merci
J'ai ajouté une 15e feuille et sur celle-là je ne veux pas que la procédure fonctionne.
comment l'exclure dans ta procédure ?

Code:

---

1 2 3 4 5 6

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("A1")) Is Nothing Then TabAbsences.Show Cancel = True End If End Sub

---

J'ai pensé à ceci mais est ce correct ?

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Sh.Name <> "TabAbsences" And Sh.Name <> "Divers" Then If Not Application.Intersect(Target, Range("A1")) Is Nothing Then TabAbsences.Show Cancel = True End If End If End Sub

---

Correct