Re,
en créant un bouton
ou à rajouter dans le ThisWorkbook Open ( à l'ouverture du classeur Excel)
With Sheets("Base_Sinistre")
Range("M21:N28").NumberFormat = ";;;"
End With
bouton sur la feuille base sinistre "cachepas":
Sub cache()
With Sheets("Base_Sinistre")
Range("M21:N28").NumberFormat = ""
End With
End Sub
sur le ThisWorkBook à rajouter voir le commentaire :
Private Sub Workbook_Open()
On Error Resume Next
Sheets("Base_Sinistre").Range("F8:F12,F16:F17,F22,F23,G22,F19").ClearContents
Sheets("Modèle_Sinistre").Range("C8:D11,F8:F9,E18:E20,E22,E24:E26,E28,E30:E31,E33").ClearContents
Sheets("Modèle_Sinistre").Visible = xlSheetVisible
Sheets("Base_Sinistre").Visible = xlSheetVisible
Sheets("Base_Epave").Visible = xlSheetVisible
Sheets("Modèle_Epave").Visible = xlSheetVisible
'Load UserForm2
'UserForm2.Show
' rajouter ci-dessous ' =========================
With Sheets("Base_Sinistre")
Range("M21:N28").NumberFormat = ";;;"
End With
End Sub
crdlt,
André