Aide sur une boucle
Bonjour à tous,
Je viens fréquemment sur le forum pour résoudre mes problèmes lié à Excel.
Aujourd'hui j'ai peur de ne pas avoir trouvé ma réponse.
J'ai un tableau comprenant deux parties : je souhaiterais copier les 7 premières cases en ligne normalement mais espacées de 36 lignes à chaque fois et les 36 cases suivantes en transposé.
J'ai donc essayé de le faire à la main mais il y a 230 lignes, c'est donc très, très long. J'ai essayé avec une formule mais je n'ai pas trouvé. J'essaye donc avec une macro mais je suis novice...
Je voulais donc savoir si il existait une boucle pour m'éviter d'avoir a recopié 230 fois, cela:
Sheets("Data").Select
Range("A26:G26").Select
Selection.Copy
Sheets("Feuil5").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Data").Select
Range("H25:AQ26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil5").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Data").Select
Range("A27:G27").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil5").Select
Range("A38").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Data").Select
Range("H25:AQ25").Select
Range("H25:AQ25,H27:AQ27").Select
Range("H27").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil5").Select
Range("H38").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Data").Select
Range("A28:G28").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil5").Select
Range("A74").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Data").Select
Range("H25:AQ25").Select
Range("H25:AQ25,H28:AQ28").Select
Range("H28").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil5").Select
Range("H74").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Data").Select
Range("A30:G30").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil5").Select
Range("A146").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Data").Select
Range("H25:AQ25,H30:AQ30").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil5").Select
Range("H146").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
A chaque fois la selection se décale de un mais le coller de 36. Et pour la deuxième partieune des lignes reste fixe.
Merci d'avance pour votre aide.
Antoine
Bonjour,
Un petit fichier peux-être à nous faire parvenir, avec des explications?
Cordialement.
Le sujet n'est pas passionant mais l'intéret serait de mettre les mois qui sont actuellement en lignes en 1 colonne avec chaque valeur sur une nouvelle ligne. Ce serait pour l'exploiter en TCD après. J'ai mis sur la feuille 2 l'exemple telle que j'aimerais que ce soit et sur la feuille 1, ce sont les premières lignes du tableau tel qu'il est actuellement.
Encore merci.
Antoine