XL 2016 Répéter une macro en boucle

  • Initiateur de la discussion Initiateur de la discussion Al.
  • 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 !

Al.

XLDnaute Nouveau
Bonsoir à tous,
je me connecte et sollicite votre aide après quelques heures carrées ne menant pas à grand chose.
j'ai créer une séquence avec l'enregistreur de macro et je souhaiterais la répéter un grand nombre de fois.
J'ai une mesure électrique qui est relevé toutes les 10 min pendant 365 jours. Les données cette année ne sont pas dans la même forme que les années précédentes et je ne peux pas les comparer. Avec l'enregistreur j'ai créer une boucle pour les 2ières heures et je souhaiterais avec une macro faire le reste.
pourriez-vous m'aider ? Je colle ci-dessous la séquence des 2ières h:
Je vous remercie infiniment par avance de votre soutien

Sub Macro3()
'
' Macro3 Macro
'
'
Range("A3:A26").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("A3").Select
Selection.Copy
Range("A4:A26").Select
ActiveSheet.Paste
Rows("4:8").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C2:G2").Select
Selection.Copy
Range("A3").Select
Application.CutCopyMode = False
Selection.Copy
Range("A4:A8").Select
ActiveSheet.Paste
Range("C2:G2").Select
Application.CutCopyMode = False
Selection.Copy
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D3:H3").Select
Application.CutCopyMode = False
Selection.Copy
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Columns("A:A").Select
Application.CutCopyMode = False
With Selection
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
End With

Selection.UnMerge
Range("A9").Select
Selection.Copy
Range("A4:A26").Select
ActiveSheet.Paste
Rows("10:14").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C2:G2").Select
Selection.Copy
Range("A9").Select
Application.CutCopyMode = False
Selection.Copy
Range("A10:A14").Select
ActiveSheet.Paste
Range("C2:G2").Select
Application.CutCopyMode = False
Selection.Copy
Range("B10").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D9:H9").Select
Application.CutCopyMode = False
Selection.Copy
Range("C10").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Columns("A:A").Select
Application.CutCopyMode = False
With Selection
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
End With

End Sub
 
- 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

Réponses
10
Affichages
467
Réponses
18
Affichages
211
Réponses
2
Affichages
232
Réponses
17
Affichages
900
Retour