Remis a zéro
Bonjour,
Je débute sur VBA, j'essaie de faire une remise a zéro de plusieur feuille excel et je suis actuellement bloqué.
Voici la formule VBA
Sub Macro1()
Sheets("LUNDI").Range ("B3:Q3,B7,B9,B10:Q12,B13:B15"), .ClearContents
Sheets("MARDI").Range("B3:Q3,B7,B9,B10:Q12,B13:B15").ClearContents
Sheets("MERCREDI").Range("B3:Q3,B7,B9,B10:Q12,B13:B15").ClearContents
Sheets("JEUDI").Range("B3:Q3,B7,B9,B10:Q12,B13:B15").ClearContents
Sheets("VENDREDI").Range("B3:Q3,B7,B9,B10:Q12,B13:B15").ClearContents
Sheets("SAMEDI").Range("B3:Q3,B7,B9,B10:Q12,B13:B15").ClearContents
End Sub
Mais dés que je l'éxecute j'ai le message suivant:
"Erreur compilation: Réference incorrect ou non qualifié".
Merci de votre aide.
Bonjour,
corrige juste votre ligne 1 du code en enlevant la virgule:
Sheets("LUNDI").Range ("B3:Q3,B7,B9,B10:Q12,B13:B15").ClearContentsCordialement
Merci de votre aide.
cordialement.