Bonjour ,débutant en VBA je me suis lancé et preparé un tableau qui doit me donner un nombre de cuisinier suivant les recettes au planning (planning qui change toute les semaines ).
Voici le code qui ne fonctionne pas ,si vous pouvez me guider :


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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
Sub chargementplanning()
'
'chargementplanningmacro
'
Dim i As Long
i = 2
j = 2
Sheets("ordo").Select
Application.ScreenUpdating = False
'exporte le 1er jour de la semaine
While Cells(i, 1) = Range("a2")
'copie "code article"
Cells(i, 2).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("planning").Select
Cells(j, 2).Select
ActiveSheet.Paste
 
Sheets("ordo").Select
'copie"cuisinier"
Cells(i, 3).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("planning").Select
Cells(j, 3).Select
activesheets.Paste
 i = i + 1
 j = j + 1
 
Wend
 
'exporte le 2eme jour de la semaine
Sheets("ordo").Select
j = 16
While Cells(i, 1) = Range("a2")
'copie "code article"
Cells(i, 2).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("planning").Select
Cells(j, 2).Select
activesheets.Paste
 
Sheets("ordo").Select
'copie "cuisinier"
Cells(i, 3).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("planning").Select
Cells(j, 3).Select
activesheets.Paste
i = i + 1
j = j + 1
 
Wend
 
'exporte le 3eme jour de la semaine
Sheets("ordo").Select
j = 30
While Cells(i, 1) = Range("a2")
'copie "code article"
Cells(i, 2).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("planning").Select
Cells(j, 2).Select
activesheets.Paste
 
Sheets("ordo").Select
'copie "cuisinier"
Cells(i, 3).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("planning").Select
Cells(j, 3).Select
activesheets.Paste
i = i + 1
j = j + 1
 
Wend
 
'exporte le 4eme jour de la semaine
Sheets("ordo").Select
j = 44
While Cells(i, 1) = Range("a2")
'copie "code article"
Cells(i, 2).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("planning").Select
Cells(j, 2).Select
activesheets.Paste
 
Sheets("ordo").Select
'copie "cuisinier"
Cells(i, 3).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("planning").Select
Cells(j, 3).Select
activesheets.Paste
i = i + 1
j = j + 1
 
Wend
 
'exporte le 5eme jour de la semaine
Sheets("ordo").Select
j = 58
While Cells(i, 1) = Range("a2")
'copie "code article"
Cells(i, 2).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("planning").Select
Cells(j, 2).Select
activesheets.Paste
 
Sheets("ordo").Select
'copie "cuisinier"
Cells(i, 3).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("planning").Select
Cells(j, 3).Select
activesheets.Paste
i = i + 1
j = j + 1
 
Wend
End sub
Bon dimanche et d'avance merci !!