Initialisation de l'application et suppression de toutes les données

Bonjour à tous,

J' ai un message d'erreur de coup je n'arrive pas à initialisér l'application quant je clique sur le bouton initialisation de l'application et suppression de toutes les données dans la feuille "système"

Merci d'avance pour vos propositions des solution.

Veuillez trouver ci-joint l'exemple.

excel

Microsoft 365

Bonsoir vbahich, le forum,

Tu boucles sur les feuilles 1 à 12 alors que ton classeur ne contient que 5 feuilles...

Je suppose que tu veux effacer les données des feuilles de janvier à décembre ?

Ces 12 feuilles sont-elles bien présentes dans ton véritable classeur ?

Cordialement,

Bonjour Xorsankukai +4 feuilles masquées ; mais effectivement j'ai pas trop compris les 12 mois de la boucle.

Re,

Salut Xmenpl,

Bonjour Xorsankukai +4 feuilles masquées

Argh!!!! Je n'avais pas remarqué les feuilles masquées,

Si le but est d'effacer les données de chaque tableau de chaque feuille de janvier à décembre....

.......à tester...

Sub RAZ()
 Dim TBsh, sh As Worksheet

  Application.ScreenUpdating = False

  If MsgBox("ATTENTION !!!" & Chr(10) & Chr(10) & "Vous allez initialiser votre suivi de compte !" & Chr(10) & "Voulez-vous continuez ?", vbYesNo, "Remise à Zéro du suivi de compte !") = vbYes Then
   For Each sh In ThisWorkbook.Worksheets
    Select Case sh.Name
     Case "janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre"
      If WsExist(sh.Name) Then
       If Not sh.ListObjects(1).DataBodyRange Is Nothing Then sh.ListObjects(1).DataBodyRange.Delete
      End If
    End Select
   Next sh
  End If
End Sub

Function WsExist(Nom$) As Boolean
   On Error Resume Next
   WsExist = Worksheets(Nom).Index
End Function

Cordialement,

Bonjour,

c'est bon, merci beaucoup et je vous souhaite une bonne journée.