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

XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique

Créer une discussion

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
V

vazvaz

XLDnaute Nouveau
Bonjour,

N'y connaissant pas grand chose aux macros, je viens solliciter votre aide. pour transformer en boucle une macro créer avec l'enregistreur automatique d'excel. ci-dessous le code:
Sub pointage_print()
'
' pointage_print Macro
'

'
Range("U1").Select
ActiveCell.FormulaR1C1 = "1"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "2"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "3"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "4"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "5"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "6"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "7"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "8"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "9"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "10"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "11"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "12"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "13"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "14"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "15"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "16"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "17"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "18"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "19"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "20"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "21"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "22"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "23"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "24"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "25"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "26"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "27"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "28"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "29"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "30"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "31"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "32"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "33"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Range("U1").Select
ActiveCell.FormulaR1C1 = "34"
Range("U2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ChDir "C:\Users\talbi.othmane\Documents\Pointage"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\talbi.othmane\Documents\Pointage\Pointage_2025_macro.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWindow.SmallScroll Down:=-42
Sheets("Données").Select
ActiveWindow.SmallScroll Down:=-3
Rows("17:17").Select
Selection.Delete Shift:=xlUp
Range("C15:C16").Select
Selection.AutoFill Destination:=Range("C15:C36")
Range("C15:C36").Select
Range("D34").Select
ActiveWindow.SmallScroll Down:=-15
Range("D25").Select
ActiveWindow.SmallScroll Down:=-12
ActiveWorkbook.Save
Sheets("Février").Select
ActiveWindow.SmallScroll Down:=-30
End Sub

Merci d'avance de votre aide
 
Trier par date Trier par votes
Bonjour @vazvaz

Utilise les balises pour mettre ton code car c'est indigeste comme ceci


Tu veux imprimer 34 fois ton fichier (ou une partie) 🤔
J'ai pas vu ton fichier mais à priori près de 200 lignes de codes pour imprimer c'est un peu beaucoup 🤔

Donc mets ton fichier (anonymise le si tu as des données sensibles) et explique en clair ce que tu veux faire
Exemple :
Quand j'ai ceci je veux faire cela et ou tu veux avoir le résultat
Imprimer telle ou telle zone
Effacer ceci si j'ai ça ou ça
etc.....
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour Vazvaz, et bienvenu sur XLD,
Une première approche avec :
VB: 
Sub pointage_print()
Dim X As Integer
For X = 1 To 34
    Range("U1") = X
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
Next X
ChDir "C:\Users\talbi.othmane\Documents\Pointage"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\talbi.othmane\Documents\Pointage\Pointage_2025_macro.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Sheets("Données").Select
Rows("17:17").Delete Shift:=xlUp
Range("C15:C16").AutoFill Destination:=Range("C15:C36")
ActiveWorkbook.Save
Sheets("Février").Select
End Sub
A tester pour voir 🙂
 
Vote positif 0 Vote négatif
Merci, le résultat est satisfaisant.
 
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

H
  • Question Question
XL 2013 Erreur VBA 1004 Impression zone d'impression tableau
Réponses
13
Affichages
405
Helios77
H
D
  • Question Question
XL 2013 VBA pour une impression recto verso - petit cote
Réponses
4
Affichages
1 K
david54520
D
  • Question Question
Microsoft 365 Exporter en PDF avec une mise en page automatique via un bouton
Réponses
8
Affichages
640
patricktoulon
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
913
mouchtre
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
1 K
Vermithor
V
B
  • Résolu(e)
XL 2016 Modifier ou créer une macro imprimer une sélection de zones
Réponses
5
Affichages
673
berru76
B
H
  • Question Question
XL 2016 Macro excel 2010 vs 2016
Réponses
11
Affichages
739
hutch57
H
F
  • Résolu(e)
XL 2019 Amélioration du code avec une boucle
Réponses
4
Affichages
901
Fanrs
F
B
  • Résolu(e)
XL 2016 macro avec boucle
2
Réponses
16
Affichages
2 K
benbella1991
B
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
483
tactic6
  • Question Question
Microsoft 365 Cherche une personne pouvant m'aider à transformer des codes VBA pour Google Sheet
Réponses
6
Affichages
885
bruderez
B
  • Résolu(e)
XL 2010 Imprimer en plusieurs PDF l’onglet Excel actif à chaque saut de page
2 3
Réponses
30
Affichages
4 K
jeanmi
H
  • Question Question
XL 2016 Mettre des titres avec une mise en forme spécifique
Réponses
1
Affichages
438
vgendron
D
  • Résolu(e)
Microsoft 365 Boucle Do until
2
Réponses
16
Affichages
2 K
danpom302
D
M
  • Question Question
Microsoft 365 Génération image en lien hypertexte lié à une variable via une boucle
Réponses
0
Affichages
875
Maad84
M
J
  • Question Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
3 K
jui42
J
S
  • Question Question
Microsoft 365 Impression de code barre
Réponses
1
Affichages
1 K
sam1980
S
M
  • Question Question
XL 2016 Renvoyer une valeur de cellule dans une macro
Réponses
6
Affichages
1 K
patricktoulon
C
  • Question Question
XL 2016 pièce jointe avec envoi mail VBA
Réponses
2
Affichages
2 K
CYRIL CAMPAS
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…