Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

simplifier du code vba

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion pascal21
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

pascal21

XLDnaute Barbatruc
Code: 
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
 
Dernière édition:
Trier par date Trier par votes
Re : simplifier du code vba

Salut Pascal21,

A tester 😉
Code: 
  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+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : simplifier du code vba

Re,

tu avais juste oublié de déclarer les variables
Cliquez pour agrandir...
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+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
Fdaga
Réponses
2
Affichages
139
dysorthographie
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
819
thunder23
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
486
Electron24
F
Fdaga
Réponses
0
Affichages
191
Fdaga
F
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
521
Latias
L
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
825
KRUG WOO
K
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
458
CDALE
C
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
  • Question Question
XL 2021 Importer les données Access dans Excel
Réponses
2
Affichages
574
badraaliou4
M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
231
Marie L
M
E
  • Résolu(e)
Microsoft 365 Textbox heure minute vers tableau en décimal
Réponses
4
Affichages
380
eric72
E
N
  • Résolu(e)
Microsoft 365 Calcul de plages horaires
2 3 4
Réponses
49
Affichages
3 K
NONO14
N
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
3 K
Dranreb
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
G
  • Question Question
Microsoft 365 Réduire la taille de la macro ?
Réponses
9
Affichages
1 K
Staple1600
T
  • Question Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
2 K
thivame
T
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
3 K
Banbara
B
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
906
GClaire
G
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
243
vazvaz
V
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
719
florian50470
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…