simplifier du code vba

[pascal21]

Private Sub Label34_Click() 'bouton horloge efface le contenu des feuilles
'et lance l'usfcalendar pour changer de mois


 
Unload Me
usfinfo.Show 0
usfinfo.Repaint
Workbooks("pointages1.xls").Sheets(1).Activate
Range("c4:d38").Value = ""
Workbooks("pointages1.xls").Sheets(1).Range("f4:k38").Value = ""
Workbooks("pointages1.xls").Sheets(2).Range("c4:d38").Value = ""
Workbooks("pointages1.xls").Sheets(2).Range("f4:k38").Value = ""
Workbooks("pointages1.xls").Sheets(3).Range("c4:d38").Value = ""
Workbooks("pointages1.xls").Sheets(3).Range("f4:k38").Value = ""
Workbooks("pointages1.xls").Sheets(4).Range("c4:d38").Value = ""
Workbooks("pointages1.xls").Sheets(4).Range("f4:k38").Value = ""
Workbooks("pointages1.xls").Sheets(5).Range("c4:d38").Value = ""
Workbooks("pointages1.xls").Sheets(5).Range("f4:k38").Value = ""
Workbooks("pointages1.xls").Sheets(6).Range("c4:d38").Value = ""
Workbooks("pointages1.xls").Sheets(6).Range("f4:k38").Value = ""
Workbooks("pointages1.xls").Sheets(7).Range("c4:d38").Value = ""
Workbooks("pointages1.xls").Sheets(7).Range("f4:k38").Value = ""
Workbooks("pointages1.xls").Sheets(8).Range("c4:d38").Value = ""
Workbooks("pointages1.xls").Sheets(8).Range("f4:k38").Value = ""
Workbooks("pointages1.xls").Sheets(9).Range("c4:d38").Value = ""
Workbooks("pointages1.xls").Sheets(9).Range("f4:k38").Value = ""
Workbooks("pointages1.xls").Sheets(10).Range("c4:d38").Value = ""
Workbooks("pointages1.xls").Sheets(10).Range("f4:k38").Value = ""

Workbooks("pointages2.xls").Sheets(1).Range("c4:d38").Value = ""
Workbooks("pointages2.xls").Sheets(1).Range("f4:k38").Value = ""
Workbooks("pointages2.xls").Sheets(2).Range("c4:d38").Value = ""
Workbooks("pointages2.xls").Sheets(2).Range("f4:k38").Value = ""
Workbooks("pointages2.xls").Sheets(3).Range("c4:d38").Value = ""
Workbooks("pointages2.xls").Sheets(3).Range("f4:k38").Value = ""
Workbooks("pointages2.xls").Sheets(4).Range("c4:d38").Value = ""
Workbooks("pointages2.xls").Sheets(4).Range("f4:k38").Value = ""
Workbooks("pointages2.xls").Sheets(5).Range("c4:d38").Value = ""
Workbooks("pointages2.xls").Sheets(5).Range("f4:k38").Value = ""
Workbooks("pointages2.xls").Sheets(6).Range("c4:d38").Value = ""
Workbooks("pointages2.xls").Sheets(6).Range("f4:k38").Value = ""
Workbooks("pointages2.xls").Sheets(7).Range("c4:d38").Value = ""
Workbooks("pointages2.xls").Sheets(7).Range("f4:k38").Value = ""
Workbooks("pointages2.xls").Sheets(8).Range("c4:d38").Value = ""
Workbooks("pointages2.xls").Sheets(8).Range("f4:k38").Value = ""
Workbooks("pointages2.xls").Sheets(9).Range("c4:d38").Value = ""
Workbooks("pointages2.xls").Sheets(9).Range("f4:k38").Value = ""
Workbooks("pointages2.xls").Sheets(10).Range("c4:d38").Value = ""
Workbooks("pointages2.xls").Sheets(10).Range("f4:k38").Value = ""
Range("b4").Select
Unload usfinfo
usfcalendar.Show

bonjour à tous
ce code présent dans un usf et qui fonctionne bien dans l'état aurait bien besoin d'une cure d'amaigrissement, pouvez-vous m'aider SVP
je pense qu'il faut passer par des boucles mais je ne suis pas fort dans ce domaine
merci

 

[Compte Supprimé 979]

Re : simplifier du code vba

Salut Pascal21,

A tester 😉

  Unload Me
  usfinfo.Show 0
  usfinfo.Repaint
  For I = 1 To 2
    With Workbooks("pointages" & I & ".xls")
      For Nb = 1 To 10
        .Sheets(Nb).Range("c4:d38,f4:k38").ClearContents
      Next Nb
    End With
  Next I
  Range("b4").Select
  Unload usfinfo
  usfcalendar.Show

A+

 

[pascal21]

Re : simplifier du code vba

bonjour bruno et merci c'est tout à fait ça
tu avais juste oublié de déclarer les variables
j'ai rectifié tout seul comme un grand
bon week!!!!

 

[Compte Supprimé 979]

Re : simplifier du code vba

Re,

tu avais juste oublié de déclarer les variables

Oui je sais 😱 mais comme certains sur ce forum n'utilisent pas les déclarations
je me suis dis que peut-ête toi aussi 😉

Mais ça fait plaisir de voir que tu code "correctement"

A+