Problème macro répétitive
Bonjour tout le monde,
Je bloque depuis peu sur une macro que j'aimerais réalisé. Etant débutant en macro, j'ai un peu bricolé avec tout ce que j'ai pu trouver pour faire quelquechose mais le résultat n'est pas correct.
J'explique mon problème:
Je souhaite d'un classeur A (CEB_final) copier plusieurs cellules à un classer B (Essai_opt_1)
puis du fichier B copier d'autres cellules vers des cellules du classeur B.
jusque là pas de problème sauf que quand je boucle pour réitérer cette opération sur plusieurs lignes Excel ne m'affiche le copier collé que pour la premiere et dernier ligne.
Si quelqu'un pouvait m'aider ce serait super sympa
Ci-dessous mon code:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Sub
Dim i As Long
Dim DerniereLigne As Long
DerniereLigne = Range("B65536").End(xlUp).Row
For i = 6 To DerniereLigne
'Selection des données Input pour ligne 1
Windows("CEB_final.xlsx").Activate
Sheets("IRWST").Range("K:P" & DerniereLigne).Select
Selection.Copy
Windows("ESSAI_opt_1.xlsm").Activate
Range("E:J" & DerniereLigne).Select
Next iActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=-6
End Sub |