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

Créer une discussion
Répondre

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
1736847550794.png


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
sylvanu à dit:
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 🙂
Cliquez pour agrandir...
Merci, le résultat est satisfaisant.
 
Vote positif 0 Vote négatif
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
396
Helios77
H
D
  • Question Question
XL 2013 VBA pour une impression recto verso - petit cote
Réponses
4
Affichages
1 K
david54520
D
Mafalda78
  • Question Question
Microsoft 365 Exporter en PDF avec une mise en page automatique via un bouton
Réponses
8
Affichages
640
patricktoulon
patricktoulon
mouchtre
  • 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
908
mouchtre
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
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
672
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
899
Fanrs
F
B
  • Résolu(e)
XL 2016 macro avec boucle
2
Réponses
16
Affichages
2 K
benbella1991
B
tactic6
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
482
tactic6
tactic6
Mr.Adrien
  • Question Question
Microsoft 365 Cherche une personne pouvant m'aider à transformer des codes VBA pour Google Sheet
Réponses
6
Affichages
881
bruderez
B
jeanmi
  • 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
jeanmi
H
  • Question Question
XL 2016 Mettre des titres avec une mise en forme spécifique
Réponses
1
Affichages
438
vgendron
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
874
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
patricktoulon
C
  • Question Question
XL 2016 pièce jointe avec envoi mail VBA
Réponses
2
Affichages
2 K
CYRIL CAMPAS
C
Retour