Re bonjour le forum
Décidément ce n'est pas mon jour (je crois que ce n'est jamais)!!!
Comme indiqué dans le titre je voudrais incorporer le code 2 dans code 1
Le code 1 affiche ligne 3 en double click cellule A2
Le code 2 affiche et masque tous les onglets en double click cellule F2
Encore merci de vous éventuels retours
Code1
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Union(Range("A2"), Range("F2"))) Is Nothing Then
If Target.Column = 1 Then Rows(3).Hidden = Not Rows(3).Hidden
End If
End Sub
Code 2
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$A$2" Then Exit Sub
Cancel = True
For Each Sh In Sheets
If Sh.Visible <> xlSheetVisible Then Affiche: Exit Sub
Next
MasqueSauf "Charges " & Year(Date) 'nom adaptable
Range("A1").Select
End Sub
Sub MasqueSauf(nom$)
Dim Sh As Object
On Error Resume Next
If IsError(Sheets(nom)) Then MsgBox "Créez la feuille '" & nom & "' !", 48: Affiche: Exit Sub
For Each Sh In Sheets
If Sh.Name <> nom Then Sh.Visible = xlSheetHidden
Next
End Sub
Sub Affiche()
Dim Sh As Object
Application.ScreenUpdating = False
For Each Sh In Sheets
Sh.Visible = xlSheetVisible
Next
Application.ScreenUpdating = True
End Sub