Discussion :

[Anto579]

bonjour,,

Je souhaiterai résumer les productions des différentes feuilles tel que "POT_S" par date qui se situe en L1C1 sur la feuille "résumé et Par produit

je suis donc parti avec une macro comme ci dessous. Qui se déroulait plutot bien, par contre en arrivant sur le produit "coupelle" de la feuille "COUP"
en voulant entre la ligne 17 à 22.
La macro m'écrit 3fois la meme chose une fois sur 2..... En supprimant la limite mise en "a" je remarque que ma boucle ne se termine jamais....

Pouvez-vous corriger ma macro??? La macro ci dessous à pour but de copier les données en "POT_S" et "COUP" pour les coller dans les tableaux atitrés au chaque en feuille "résumé"

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Max = 3
Do While Sheets("POT_S").Cells(Max, 1) <> ""
Max = Max + 1
Loop
 
For a = 4 To 12
For i = 2 To Max
'production soupe
Boucle:
If Sheets("résumé").Cells(a, 2) = "" Then
    If Sheets("POT_S").Cells(i, 2) = Sheets("résumé").Cells(1, 6) Then
    Sheets("résumé").Cells(a, 2) = Sheets("POT_S").Cells(i, 2)
    Sheets("résumé").Cells(a, 3) = Sheets("POT_S").Cells(i, 3)
    Sheets("résumé").Cells(a, 4) = Sheets("POT_S").Cells(i, 4)
    Sheets("résumé").Cells(a, 5) = Sheets("POT_S").Cells(i, 5)
    Sheets("résumé").Cells(a, 6) = Sheets("POT_S").Cells(i, 6)
    Sheets("résumé").Cells(a, 7) = Sheets("POT_S").Cells(i, 7)
    Sheets("résumé").Cells(a, 8) = Sheets("POT_S").Cells(i, 8)
    Sheets("résumé").Cells(a, 9) = Sheets("POT_S").Cells(i, 9)
    Sheets("résumé").Cells(a, 10) = Sheets("POT_S").Cells(i, 10)
    Sheets("résumé").Cells(a, 11) = Sheets("POT_S").Cells(i, 13)
    Sheets("résumé").Cells(a, 12) = Sheets("POT_S").Cells(i, 16)
    Sheets("résumé").Cells(a, 13) = Sheets("POT_S").Cells(i, 19)
    Sheets("résumé").Cells(a, 14) = Sheets("POT_S").Cells(i, 11)
    Sheets("résumé").Cells(a, 15) = Sheets("POT_S").Cells(i, 12)
    Sheets("résumé").Cells(a, 16) = Sheets("POT_S").Cells(i, 14)
    Sheets("résumé").Cells(a, 17) = Sheets("POT_S").Cells(i, 15)
    Sheets("résumé").Cells(a, 18) = Sheets("POT_S").Cells(i, 17)
    Sheets("résumé").Cells(a, 19) = Sheets("POT_S").Cells(i, 18)
    End If
 
Else:
a = a + 1
GoTo Boucle
End If
Next i
Next a
 
'production coupelle
Max = 3
Do While Sheets("POT_S").Cells(Max, 1) <> ""
Max = Max + 1
Loop
 
For a = 17 To 22
For i = 2 To Max
 
Boucle2:
If Sheets("résumé").Cells(a, 2) = "" Then
    If Sheets("coup").Cells(i, 2) = Sheets("résumé").Cells(1, 6) Then
    Sheets("résumé").Cells(a, 2) = Sheets("coup").Cells(i, 2)
    Sheets("résumé").Cells(a, 3) = Sheets("coup").Cells(i, 3)
    Sheets("résumé").Cells(a, 4) = Sheets("coup").Cells(i, 4)
    Sheets("résumé").Cells(a, 5) = Sheets("coup").Cells(i, 5)
    Sheets("résumé").Cells(a, 6) = Sheets("coup").Cells(i, 6)
    Sheets("résumé").Cells(a, 7) = Sheets("coup").Cells(i, 7)
    Sheets("résumé").Cells(a, 8) = Sheets("coup").Cells(i, 8)
    Sheets("résumé").Cells(a, 9) = Sheets("coup").Cells(i, 9)
    Sheets("résumé").Cells(a, 10) = Sheets("coup").Cells(i, 10)
    Sheets("résumé").Cells(a, 11) = Sheets("coup").Cells(i, 13)
    Sheets("résumé").Cells(a, 12) = Sheets("coup").Cells(i, 16)
    Sheets("résumé").Cells(a, 13) = Sheets("coup").Cells(i, 19)
    Sheets("résumé").Cells(a, 14) = Sheets("coup").Cells(i, 11)
    Sheets("résumé").Cells(a, 15) = Sheets("coup").Cells(i, 12)
    Sheets("résumé").Cells(a, 16) = Sheets("coup").Cells(i, 14)
    Sheets("résumé").Cells(a, 17) = Sheets("coup").Cells(i, 15)
    Sheets("résumé").Cells(a, 18) = Sheets("coup").Cells(i, 17)
    Sheets("résumé").Cells(a, 19) = Sheets("coup").Cells(i, 18)
    End If
 
Else:
a = a + 1
GoTo Boucle2
End If
Next i
Next a
 
End Sub