Amélioration de fichier

Question

Bonjour, J'apporte des changements sur mon fichier. Cependant je souhaite dans l'onglet Calendrier avoir les jours fériés en fonction de l'année. Dans l'onglet du mois de Janvier j'ai mis un un RAZ pour effacer les données de la colonne C à la F sans touchez au autres. Ya t'il possibilité ou pas que le bouton RAZ efface les données sur les autres mois également . Pour l'onglet de Février je vois que pour le 29 il y a des écritures comme ne pas les voir si l'année n'est bissextile. Dernière chose comment peut t'on passer le fichier excel compatible en google sheet...

ThauThème · Answer

Bonjour Stéphane, bonjour le forum,

Peut-être comme ça :

Private Sub CommandButton1_Click() 'Raz
Dim O As Worksheet

Application.ScreenUpdating = False
If TextBox1.Text <> "1234" Then
    MsgBox "Mot de passe incorrect", 16
    TextBox1 = ""
    Exit Sub
End If
For Each O In Worksheets
    If Not O.Name = "Calendrier Annuel" And Not O.Name = "Jour Fériés" Then
        O.Range("C5:F35").ClearContents
        O.Activate
        O.Range("C5").Select
    End If
Next O
Unload Me
Application.ScreenUpdating = True
End Sub