Fermer les onglets à l'enregistrement
a
Bonjour le forum
Je fais un double Click pour ouvrir et fermer les onglets sauf le 1er (normal). Quelle macro pour aussi faire le double Click et fermer les onglets à l'enregistrement.
Voici les macros
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In ThisWorkbook.Worksheets
Sh.Columns("K:M").Hidden = True
Range("A1").Select
Next Sh
Sheets(1).Select
Columns("K:M").Hidden = False
Application.ScreenUpdating = True
End Sub
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Vue As Integer, I As Integer
If Not Intersect(Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row + 1), Target) Is Nothing Then
Cancel = True
Application.EnableEvents = False
If Target = "" Then
If Not IsError(Application.Match(CSng(Date), Columns("G"), 0)) Then
MsgBox "Une Consultation existe déjà à cette date"
Target.ClearContents
Target.Offset(, 6).ClearContents
Else
Target.Offset(, 6).Value = Date
Target = Application.Proper(Format(Date, "dddd dd mmmm yyyy"))
End If
ElseIf Target.Row = Range("A" & Rows.Count).End(xlUp).Row Then
Target.ClearContents
Target.Offset(, 6).ClearContents
End If
Application.EnableEvents = True
ElseIf Target.Address = "$F$2" Then
Cancel = True
Target.Offset(, 1).EntireColumn.Hidden = Not Target.Offset(, 1).EntireColumn.Hidden
ElseIf Target.Address = "$A$2" Then
Application.ScreenUpdating = False
Cancel = True
Vue = Not Sheets(2).Visible
For I = 2 To Sheets.Count
Sheets(I).Visible = Vue
Next I
End If
Range("A1").Select
Merci pour vos éventuels retours
Cordialement