Sos formule vba

[abalagha]

Bonjour monsieur je compte sur votre savoir faire et votre compétences pour me résoudre se problème
salutations

 

[gimli]

Re : Sos formule vba

met ceci dans le code de ton bouton si tu souhaite réinitialiser toutes ces pages :

Sheets("lundi").Cells.Delete xlShiftUp
Sheets("Mardi").Cells.Delete xlShiftUp
Sheets("Mercredi").Cells.Delete xlShiftUp
Sheets("jeudi matin").Cells.Delete xlShiftUp
Sheets("jeudi soir").Cells.Delete xlShiftUp
Sheets("vendredi").Cells.Delete xlShiftUp
Sheets("samedi").Cells.Delete xlShiftUp
Sheets("dimanche").Cells.Delete xlShiftUp



Gimli

 

[abalagha]

Re : Sos formule vba

Merci pour votre réponse mais monsieur je ne souhaite pas réinitialiser toute la page mais je voulais que l'entête des tableaux reste .en plus il y'a une petite remarque il y'a une seule feuille a savoir jeudi mais il y'a 2 cas jeudi matin et jeudi soir

 

[ROGER2327]

Re : Sos formule vba

Bonjour abalagha, gimli

Essayez ce code pour le bouton R A Z :

[COLOR="DarkSlateGray"][B]Private Sub CommandButton1_Click()
   For i = 0 To 6
      Sheets(Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche")(i)).Range("A14:K38").ClearContents
   Next i
End Sub[/B][/COLOR]

ROGER2327
#3550

Lundi 9 Merdre 137 (Vidange, V)
7 Prairial An CCXVIII
2010-W21-3T10:13:11Z