Bonjour,

J'ai un petit soucis avec une macro

Dans ma feuille 1 j'ai des données qu'il faut copier dans la feuille 2


La feuille 1 se présente comme ça :

aaaaaaaaa
bbbb
(ligne vide)
aaaaaaaaa
bbbb
(ligne vide)
etc....


Et la feuille 2 (c'est une facture) :

les données doivent être copié en commançant à la ligne 15 jusqu'à la ligne 59 (car dans les premières lignes il y a le logo de ma boite etc...)
et en dessous une autre facture, donc on commencera à la ligne 74
et ainsi de suite


Concernant la feuille 2, j'ai réussi à limiter la zone de copie
Donc il copie correctement les données dans chaque factures


Mais le soucis, c'est les données de la feuille 1
Il reprends toujours les mêmes donnés

Donc dans la deuxième facture il y a les données de la ligne 1 à 45, et non de la ligne 46 à 90


Voilà ce que j'ai fait :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Sub test()
Application.ScreenUpdating = False
Dim i As Long, ii As Long
For i = 1 To Worksheets(1).Range("A65536").Row Step 46
For ii = 15 To Worksheets(2).Range("A65536").Row Step 59
Worksheets(2).Rows(ii) = Worksheets(1).Rows(i).Value
Worksheets(2).Rows(ii + 1) = Worksheets(1).Rows(i + 1).Value
Worksheets(2).Rows(ii + 2) = Worksheets(1).Rows(i + 2).Value
Worksheets(2).Rows(ii + 3) = Worksheets(1).Rows(i + 3).Value
Worksheets(2).Rows(ii + 4) = Worksheets(1).Rows(i + 4).Value
Worksheets(2).Rows(ii + 5) = Worksheets(1).Rows(i + 5).Value
Worksheets(2).Rows(ii + 6) = Worksheets(1).Rows(i + 6).Value
Worksheets(2).Rows(ii + 7) = Worksheets(1).Rows(i + 7).Value
Worksheets(2).Rows(ii + 8) = Worksheets(1).Rows(i + 8).Value
Worksheets(2).Rows(ii + 9) = Worksheets(1).Rows(i + 9).Value
Worksheets(2).Rows(ii + 10) = Worksheets(1).Rows(i + 10).Value
Worksheets(2).Rows(ii + 11) = Worksheets(1).Rows(i + 11).Value
Worksheets(2).Rows(ii + 12) = Worksheets(1).Rows(i + 12).Value
Worksheets(2).Rows(ii + 13) = Worksheets(1).Rows(i + 13).Value
Worksheets(2).Rows(ii + 14) = Worksheets(1).Rows(i + 14).Value
Worksheets(2).Rows(ii + 15) = Worksheets(1).Rows(i + 15).Value
Worksheets(2).Rows(ii + 16) = Worksheets(1).Rows(i + 16).Value
Worksheets(2).Rows(ii + 17) = Worksheets(1).Rows(i + 17).Value
Worksheets(2).Rows(ii + 18) = Worksheets(1).Rows(i + 18).Value
Worksheets(2).Rows(ii + 19) = Worksheets(1).Rows(i + 19).Value
Worksheets(2).Rows(ii + 20) = Worksheets(1).Rows(i + 20).Value
Worksheets(2).Rows(ii + 21) = Worksheets(1).Rows(i + 21).Value
Worksheets(2).Rows(ii + 22) = Worksheets(1).Rows(i + 22).Value
Worksheets(2).Rows(ii + 23) = Worksheets(1).Rows(i + 23).Value
Worksheets(2).Rows(ii + 24) = Worksheets(1).Rows(i + 24).Value
Worksheets(2).Rows(ii + 25) = Worksheets(1).Rows(i + 25).Value
Worksheets(2).Rows(ii + 26) = Worksheets(1).Rows(i + 26).Value
Worksheets(2).Rows(ii + 27) = Worksheets(1).Rows(i + 27).Value
Worksheets(2).Rows(ii + 28) = Worksheets(1).Rows(i + 28).Value
Worksheets(2).Rows(ii + 29) = Worksheets(1).Rows(i + 29).Value
Worksheets(2).Rows(ii + 30) = Worksheets(1).Rows(i + 30).Value
Worksheets(2).Rows(ii + 31) = Worksheets(1).Rows(i + 31).Value
Worksheets(2).Rows(ii + 32) = Worksheets(1).Rows(i + 32).Value
Worksheets(2).Rows(ii + 33) = Worksheets(1).Rows(i + 33).Value
Worksheets(2).Rows(ii + 34) = Worksheets(1).Rows(i + 34).Value
Worksheets(2).Rows(ii + 35) = Worksheets(1).Rows(i + 35).Value
Worksheets(2).Rows(ii + 36) = Worksheets(1).Rows(i + 36).Value
Worksheets(2).Rows(ii + 37) = Worksheets(1).Rows(i + 37).Value
Worksheets(2).Rows(ii + 38) = Worksheets(1).Rows(i + 38).Value
Worksheets(2).Rows(ii + 39) = Worksheets(1).Rows(i + 39).Value
Worksheets(2).Rows(ii + 40) = Worksheets(1).Rows(i + 40).Value
Worksheets(2).Rows(ii + 41) = Worksheets(1).Rows(i + 41).Value
Worksheets(2).Rows(ii + 42) = Worksheets(1).Rows(i + 42).Value
Worksheets(2).Rows(ii + 43) = Worksheets(1).Rows(i + 43).Value
Worksheets(2).Rows(ii + 44) = Worksheets(1).Rows(i + 44).Value
Next ii
Next i
Application.ScreenUpdating = True
End Sub

Merci par avance !!