Discussion :

[rossemma]

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 :

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

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

[joe.levrai]

Bonjour,

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

Code :

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

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

[rossemma]

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 :

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

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

[rossemma]

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

Code :

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

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

[mercatog]

Correct