Création dynamique d'un tableau en fonction d'une liste

**pierre24** · 12/03/2014, 11h43

Bonjour,

il y a quelques temps, j'avais sollicité le forum pour m'aider à créer un algo assez prise de tête concernant un calcul d'abondement d'un plan d'épargne entreprise (PEE). Je rappelle sommairement le principe : en fonction d'un versement mensuel sur ce PEE, un abondement est calculé en fonction de plusieurs tranches (onglet Tableau des tranches)

Aujourd'hui mon problème est autre.

J'aimerais que ce tableau soit automatiquement crée en fonction d'un nombre de salarié répertorié dans une liste (feuil1 du fichier ci-joint). Autrement dit, en fonction de la mise à jour de cette liste, le nombre de ligne du tableau se met à jour automatiquement.

Je n'ai jamais construit des tableaux de cette manière. Je ne sais comment m'y prendre. De plus, pour un salarié, 5 lignes correspondent et il me faudrait garder les totaux automatiquement en bas de tableau.

A votre dispo pour des précisions supplémentaires si besoin.

Par avance merci du coup de pouce !
PS : fichier joint

**pierre24** · 13/03/2014, 14h40

**pierre24** · 14/03/2014, 14h54

Bonjour,

j'ai réussi à faire quelques trucs avec le code suivant :

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
 
Sub CommandButton1_Click()
 
Dim FL, FL1 As Worksheet, Cell, Cell1 As Range, Plage, Plage1 As Range
Dim nom, prenom As String
Dim colonne, ligne, ligne1, Montant, Prime As Integer
 
ligne = 1
ligne1 = 2
colonne = 1
Set FL = Worksheets("Feuil1")
 
    With FL
 
        Set Plage = .Range("A22:A439")
 
        For Each Cell In Plage
 
        'récupération nom prénom montant et prime de la liste
        nom = Cell(ligne, colonne).Value
        prenom = Cell(ligne, colonne + 1).Value
        Montant = Cell(ligne, colonne + 2).Value
        Prime = Cell(ligne, colonne + 3).Value
 
        'test pour savoir si on est en fin de liste ou pas
        If nom <> "" Then
            'Copie de la mise en forme tableau
            .Range("A3:O7").Copy Sheets("Feuil2").Cells(ligne1, colonne)
            'Copie du nom et prénom
            Sheets("Feuil2").Cells(ligne1, colonne).Value = nom & " " & prenom
            'copie montant
            Sheets("Feuil2").Cells(ligne1, colonne + 2).Value = Montant
            'copie Prime
            Sheets("Feuil2").Cells(ligne1 + 1, colonne + 2).Value = Prime
        Else
            'copie ligne TOTAUX
            .Range("A9:O13").Copy Sheets("Feuil2").Cells(ligne1, colonne)
            Exit Sub
        End If
 
        'incrémentation de 5 pour copier en dessous
        ligne1 = ligne1 + 5
 
        Next
 
    End With
 
End Sub

Mon tableau se crée donc automatiquement sur la Feuil2 à partir de la liste présente sur Feuil1.

Là ou sa va se corser maintenant, c'est qu'il faut faire les totaux en bas ! Et la j'ai besoin de votre aide !

**pierre24** · 14/03/2014, 15h18

Concernant les totaux, on peut dans le modèle faire les totaux des versements répartis et ceux des 13iemes mois.

Par contre, et là est le problème, comment faire pour les autres cellules totales ?

**pierre24** · 14/03/2014, 15h55

Bon j'ai trouvé une solution mais ça fait de la LIGNE comment on dit !!!!

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
 
 
Sub CommandButton1_Click()
 
Dim FL As Worksheet, Cell As Range, Plage As Range
Dim nom, prenom As String
Dim i, colonne, ligne, ligne1, Montant, Prime As Integer
Dim total_abondement, vrst_cumules As Integer
 
 
total_abondement = 0#
vrst_cumules = 0#
vrst_01 = 0#
vrst_02 = 0#
vrst_03 = 0#
vrst_04 = 0#
vrst_05 = 0#
vrst_06 = 0#
vrst_07 = 0#
vrst_08 = 0#
vrst_09 = 0#
vrst_10 = 0#
vrst_11 = 0#
vrst_12 = 0#
 
ligne = 1
ligne1 = 2
colonne = 1
Set FL = Worksheets("Feuil1")
 
    With FL
 
        Set Plage = .Range("A22:A439")
 
        For Each Cell In Plage
 
        'récupération nom prénom montant et prime de la liste
        nom = Cell(ligne, colonne).Value
        prenom = Cell(ligne, colonne + 1).Value
        Montant = Cell(ligne, colonne + 2).Value
        Prime = Cell(ligne, colonne + 3).Value
 
        'test pour savoir si on est en fin de liste ou pas
        If nom <> "" Then
            'Copie de la mise en forme tableau
            .Range("A3:O7").Copy Sheets("Feuil2").Cells(ligne1, colonne)
            'Copie du nom et prénom
            Sheets("Feuil2").Cells(ligne1, colonne).Value = nom & " " & prenom
            'copie montant
            Sheets("Feuil2").Cells(ligne1, colonne + 2).Value = Montant
            'copie Prime
            Sheets("Feuil2").Cells(ligne1 + 1, colonne + 2).Value = Prime
 
            '/********************CUMULS***********************/
 
            'cumul total abondement
            total_abondement = total_abondement + Sheets("Feuil2").Cells(ligne1 + 2, colonne + 2).Value
 
            'cumul versements cumulés
            vrst_cumules = vrst_cumules + Sheets("Feuil2").Cells(ligne1 + 3, colonne + 2).Value
 
            'cumul vrst Janvier etc
            vrst_01 = vrst_01 + Sheets("Feuil2").Cells(ligne1, colonne + 3).Value
            vrst_02 = vrst_02 + Sheets("Feuil2").Cells(ligne1, colonne + 4).Value
            vrst_03 = vrst_03 + Sheets("Feuil2").Cells(ligne1, colonne + 5).Value
            vrst_04 = vrst_04 + Sheets("Feuil2").Cells(ligne1, colonne + 6).Value
            vrst_05 = vrst_05 + Sheets("Feuil2").Cells(ligne1, colonne + 7).Value
            vrst_06 = vrst_06 + Sheets("Feuil2").Cells(ligne1, colonne + 8).Value
            vrst_07 = vrst_07 + Sheets("Feuil2").Cells(ligne1, colonne + 9).Value
            vrst_08 = vrst_08 + Sheets("Feuil2").Cells(ligne1, colonne + 10).Value
            vrst_09 = vrst_09 + Sheets("Feuil2").Cells(ligne1, colonne + 11).Value
            vrst_10 = vrst_10 + Sheets("Feuil2").Cells(ligne1, colonne + 12).Value
            vrst_11 = vrst_11 + Sheets("Feuil2").Cells(ligne1, colonne + 13).Value
            vrst_12 = vrst_12 + Sheets("Feuil2").Cells(ligne1, colonne + 14).Value
        Else
            'copie ligne TOTAUX
            .Range("A9:O13").Copy Sheets("Feuil2").Cells(ligne1, colonne)
            'total abondement
            Sheets("Feuil2").Cells(ligne1 + 2, colonne + 2).Value = total_abondement
            'total abondement
            Sheets("Feuil2").Cells(ligne1 + 3, colonne + 2).Value = vrst_cumules
            'cumul versement Janvier etc
            Sheets("Feuil2").Cells(ligne1, colonne + 3).Value = vrst_01
            Sheets("Feuil2").Cells(ligne1, colonne + 4).Value = vrst_02
            Sheets("Feuil2").Cells(ligne1, colonne + 5).Value = vrst_03
            Sheets("Feuil2").Cells(ligne1, colonne + 6).Value = vrst_04
            Sheets("Feuil2").Cells(ligne1, colonne + 7).Value = vrst_05
            Sheets("Feuil2").Cells(ligne1, colonne + 8).Value = vrst_06
            Sheets("Feuil2").Cells(ligne1, colonne + 9).Value = vrst_07
            Sheets("Feuil2").Cells(ligne1, colonne + 10).Value = vrst_08
            Sheets("Feuil2").Cells(ligne1, colonne + 11).Value = vrst_09
            Sheets("Feuil2").Cells(ligne1, colonne + 12).Value = vrst_10
            Sheets("Feuil2").Cells(ligne1, colonne + 13).Value = vrst_11
            Sheets("Feuil2").Cells(ligne1, colonne + 14).Value = vrst_12
 
 
            Exit Sub
        End If
 
        'incrémentation de 5 pour copier en dessous
        ligne1 = ligne1 + 5
 
        Next
 
    End With
 
End Sub

L'idée a été pour chaque cellule de la section TOTAUX, de créer un cumul dans la boucle... Comme cela, j'arrive en fin de tableaux, à faire ce que je veux...

Merci à tous ceux qui m'ont pas aidé

LOL

A plus

**pierre24** · 14/03/2014, 16h20

Voici le code final et le fichier : cela pourra peut être inspirer quelques interessés, même si je pense qu'on peut simplifier le code...

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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
Sub CommandButton1_Click()
 
Dim FL As Worksheet, Cell As Range, Plage As Range
Dim nom, prenom As String
Dim i, colonne, ligne, ligne1, Montant, Prime As Integer
Dim total_abondement, vrst_cumules As Integer
 
 
total_abondement = 0#
vrst_cumules = 0#
vrst_01 = 0#
vrst_02 = 0#
vrst_03 = 0#
vrst_04 = 0#
vrst_05 = 0#
vrst_06 = 0#
vrst_07 = 0#
vrst_08 = 0#
vrst_09 = 0#
vrst_10 = 0#
vrst_11 = 0#
vrst_12 = 0#
 
abdt_01 = 0#
abdt_02 = 0#
abdt_03 = 0#
abdt_04 = 0#
abdt_05 = 0#
abdt_06 = 0#
abdt_07 = 0#
abdt_08 = 0#
abdt_09 = 0#
abdt_10 = 0#
abdt_11 = 0#
abdt_12 = 0#
 
vrstCumul_01 = 0#
vrstCumul_02 = 0#
vrstCumul_03 = 0#
vrstCumul_04 = 0#
vrstCumul_05 = 0#
vrstCumul_06 = 0#
vrstCumul_07 = 0#
vrstCumul_08 = 0#
vrstCumul_09 = 0#
vrstCumul_10 = 0#
vrstCumul_11 = 0#
vrstCumul_12 = 0#
 
abdtCumul_01 = 0#
abdtCumul_02 = 0#
abdtCumul_03 = 0#
abdtCumul_04 = 0#
abdtCumul_05 = 0#
abdtCumul_06 = 0#
abdtCumul_07 = 0#
abdtCumul_08 = 0#
abdtCumul_09 = 0#
abdtCumul_10 = 0#
abdtCumul_11 = 0#
abdtCumul_12 = 0#
 
 
ligne = 1
ligne1 = 2
colonne = 1
Set FL = Worksheets("Feuil1")
 
    With FL
 
        Set Plage = .Range("A22:A439")
 
        For Each Cell In Plage
 
        'récupération nom prénom montant et prime de la liste
        nom = Cell(ligne, colonne).Value
        prenom = Cell(ligne, colonne + 1).Value
        Montant = Cell(ligne, colonne + 2).Value
        Prime = Cell(ligne, colonne + 3).Value
 
        'test pour savoir si on est en fin de liste ou pas
        If nom <> "" Then
            'Copie de la mise en forme tableau
            .Range("A3:O7").Copy Sheets("Feuil2").Cells(ligne1, colonne)
            'Copie du nom et prénom
            Sheets("Feuil2").Cells(ligne1, colonne).Value = nom & " " & prenom
            'copie montant
            Sheets("Feuil2").Cells(ligne1, colonne + 2).Value = Montant
            'copie Prime
            Sheets("Feuil2").Cells(ligne1 + 1, colonne + 2).Value = Prime
 
            '/********************CUMULS***********************/
 
            'cumul total abondement
            total_abondement = total_abondement + Sheets("Feuil2").Cells(ligne1 + 2, colonne + 2).Value
 
            'cumul versements cumulés
            vrst_cumules = vrst_cumules + Sheets("Feuil2").Cells(ligne1 + 3, colonne + 2).Value
 
            'cumul vrst Janvier etc
            vrst_01 = vrst_01 + Sheets("Feuil2").Cells(ligne1, colonne + 3).Value
            vrst_02 = vrst_02 + Sheets("Feuil2").Cells(ligne1, colonne + 4).Value
            vrst_03 = vrst_03 + Sheets("Feuil2").Cells(ligne1, colonne + 5).Value
            vrst_04 = vrst_04 + Sheets("Feuil2").Cells(ligne1, colonne + 6).Value
            vrst_05 = vrst_05 + Sheets("Feuil2").Cells(ligne1, colonne + 7).Value
            vrst_06 = vrst_06 + Sheets("Feuil2").Cells(ligne1, colonne + 8).Value
            vrst_07 = vrst_07 + Sheets("Feuil2").Cells(ligne1, colonne + 9).Value
            vrst_08 = vrst_08 + Sheets("Feuil2").Cells(ligne1, colonne + 10).Value
            vrst_09 = vrst_09 + Sheets("Feuil2").Cells(ligne1, colonne + 11).Value
            vrst_10 = vrst_10 + Sheets("Feuil2").Cells(ligne1, colonne + 12).Value
            vrst_11 = vrst_11 + Sheets("Feuil2").Cells(ligne1, colonne + 13).Value
            vrst_12 = vrst_12 + Sheets("Feuil2").Cells(ligne1, colonne + 14).Value
 
            'cumul abdt
            abdt_01 = abdt_01 + Sheets("Feuil2").Cells(ligne1 + 2, colonne + 3).Value
            abdt_02 = abdt_02 + Sheets("Feuil2").Cells(ligne1 + 2, colonne + 4).Value
            abdt_03 = abdt_03 + Sheets("Feuil2").Cells(ligne1 + 2, colonne + 5).Value
            abdt_04 = abdt_04 + Sheets("Feuil2").Cells(ligne1 + 2, colonne + 6).Value
            abdt_05 = abdt_05 + Sheets("Feuil2").Cells(ligne1 + 2, colonne + 7).Value
            abdt_06 = abdt_06 + Sheets("Feuil2").Cells(ligne1 + 2, colonne + 8).Value
            abdt_07 = abdt_07 + Sheets("Feuil2").Cells(ligne1 + 2, colonne + 9).Value
            abdt_08 = abdt_08 + Sheets("Feuil2").Cells(ligne1 + 2, colonne + 10).Value
            abdt_09 = abdt_09 + Sheets("Feuil2").Cells(ligne1 + 2, colonne + 11).Value
            abdt_10 = abdt_10 + Sheets("Feuil2").Cells(ligne1 + 2, colonne + 12).Value
            abdt_11 = abdt_11 + Sheets("Feuil2").Cells(ligne1 + 2, colonne + 13).Value
            abdt_12 = abdt_12 + Sheets("Feuil2").Cells(ligne1 + 2, colonne + 14).Value
 
            'cumul vrst cumulés
            vrstCumul_01 = vrstCumul_01 + Sheets("Feuil2").Cells(ligne1 + 3, colonne + 3).Value
            vrstCumul_02 = vrstCumul_02 + Sheets("Feuil2").Cells(ligne1 + 3, colonne + 4).Value
            vrstCumul_03 = vrstCumul_03 + Sheets("Feuil2").Cells(ligne1 + 3, colonne + 5).Value
            vrstCumul_04 = vrstCumul_04 + Sheets("Feuil2").Cells(ligne1 + 3, colonne + 6).Value
            vrstCumul_05 = vrstCumul_05 + Sheets("Feuil2").Cells(ligne1 + 3, colonne + 7).Value
            vrstCumul_06 = vrstCumul_06 + Sheets("Feuil2").Cells(ligne1 + 3, colonne + 8).Value
            vrstCumul_07 = vrstCumul_07 + Sheets("Feuil2").Cells(ligne1 + 3, colonne + 9).Value
            vrstCumul_08 = vrstCumul_08 + Sheets("Feuil2").Cells(ligne1 + 3, colonne + 10).Value
            vrstCumul_09 = vrstCumul_09 + Sheets("Feuil2").Cells(ligne1 + 3, colonne + 11).Value
            vrstCumul_10 = vrstCumul_10 + Sheets("Feuil2").Cells(ligne1 + 3, colonne + 12).Value
            vrstCumul_11 = vrstCumul_11 + Sheets("Feuil2").Cells(ligne1 + 3, colonne + 13).Value
            vrstCumul_12 = vrstCumul_12 + Sheets("Feuil2").Cells(ligne1 + 3, colonne + 14).Value
 
 
            'cumul abdt cumulés
            abdtCumul_01 = abdtCumul_01 + Sheets("Feuil2").Cells(ligne1 + 4, colonne + 3).Value
            abdtCumul_02 = abdtCumul_02 + Sheets("Feuil2").Cells(ligne1 + 4, colonne + 4).Value
            abdtCumul_03 = abdtCumul_03 + Sheets("Feuil2").Cells(ligne1 + 4, colonne + 5).Value
            abdtCumul_04 = abdtCumul_04 + Sheets("Feuil2").Cells(ligne1 + 4, colonne + 6).Value
            abdtCumul_05 = abdtCumul_05 + Sheets("Feuil2").Cells(ligne1 + 4, colonne + 7).Value
            abdtCumul_06 = abdtCumul_06 + Sheets("Feuil2").Cells(ligne1 + 4, colonne + 8).Value
            abdtCumul_07 = abdtCumul_07 + Sheets("Feuil2").Cells(ligne1 + 4, colonne + 9).Value
            abdtCumul_08 = abdtCumul_08 + Sheets("Feuil2").Cells(ligne1 + 4, colonne + 10).Value
            abdtCumul_09 = abdtCumul_09 + Sheets("Feuil2").Cells(ligne1 + 4, colonne + 11).Value
            abdtCumul_10 = abdtCumul_10 + Sheets("Feuil2").Cells(ligne1 + 4, colonne + 12).Value
            abdtCumul_11 = abdtCumul_11 + Sheets("Feuil2").Cells(ligne1 + 4, colonne + 13).Value
            abdtCumul_12 = abdtCumul_12 + Sheets("Feuil2").Cells(ligne1 + 4, colonne + 14).Value
 
 
 
        Else
            'copie ligne TOTAUX
            .Range("A9:O13").Copy Sheets("Feuil2").Cells(ligne1, colonne)
            'total abondement
            Sheets("Feuil2").Cells(ligne1 + 2, colonne + 2).Value = total_abondement
            'total abondement
            Sheets("Feuil2").Cells(ligne1 + 3, colonne + 2).Value = vrst_cumules
            'cumul versement Janvier etc
            Sheets("Feuil2").Cells(ligne1, colonne + 3).Value = vrst_01
            Sheets("Feuil2").Cells(ligne1, colonne + 4).Value = vrst_02
            Sheets("Feuil2").Cells(ligne1, colonne + 5).Value = vrst_03
            Sheets("Feuil2").Cells(ligne1, colonne + 6).Value = vrst_04
            Sheets("Feuil2").Cells(ligne1, colonne + 7).Value = vrst_05
            Sheets("Feuil2").Cells(ligne1, colonne + 8).Value = vrst_06
            Sheets("Feuil2").Cells(ligne1, colonne + 9).Value = vrst_07
            Sheets("Feuil2").Cells(ligne1, colonne + 10).Value = vrst_08
            Sheets("Feuil2").Cells(ligne1, colonne + 11).Value = vrst_09
            Sheets("Feuil2").Cells(ligne1, colonne + 12).Value = vrst_10
            Sheets("Feuil2").Cells(ligne1, colonne + 13).Value = vrst_11
            Sheets("Feuil2").Cells(ligne1, colonne + 14).Value = vrst_12
 
            'cumul abdt
            Sheets("Feuil2").Cells(ligne1 + 2, colonne + 3).Value = abdt_01
            Sheets("Feuil2").Cells(ligne1 + 2, colonne + 4).Value = abdt_02
            Sheets("Feuil2").Cells(ligne1 + 2, colonne + 5).Value = abdt_03
            Sheets("Feuil2").Cells(ligne1 + 2, colonne + 6).Value = abdt_04
            Sheets("Feuil2").Cells(ligne1 + 2, colonne + 7).Value = abdt_05
            Sheets("Feuil2").Cells(ligne1 + 2, colonne + 8).Value = abdt_06
            Sheets("Feuil2").Cells(ligne1 + 2, colonne + 9).Value = abdt_07
            Sheets("Feuil2").Cells(ligne1 + 2, colonne + 10).Value = abdt_08
            Sheets("Feuil2").Cells(ligne1 + 2, colonne + 11).Value = abdt_09
            Sheets("Feuil2").Cells(ligne1 + 2, colonne + 12).Value = abdt_10
            Sheets("Feuil2").Cells(ligne1 + 2, colonne + 13).Value = abdt_11
            Sheets("Feuil2").Cells(ligne1 + 2, colonne + 14).Value = abdt_12
 
             'cumul vrst cumulés
            Sheets("Feuil2").Cells(ligne1 + 3, colonne + 3).Value = vrstCumul_01
            Sheets("Feuil2").Cells(ligne1 + 3, colonne + 4).Value = vrstCumul_02
            Sheets("Feuil2").Cells(ligne1 + 3, colonne + 5).Value = vrstCumul_03
            Sheets("Feuil2").Cells(ligne1 + 3, colonne + 6).Value = vrstCumul_04
            Sheets("Feuil2").Cells(ligne1 + 3, colonne + 7).Value = vrstCumul_05
            Sheets("Feuil2").Cells(ligne1 + 3, colonne + 8).Value = vrstCumul_06
            Sheets("Feuil2").Cells(ligne1 + 3, colonne + 9).Value = vrstCumul_07
            Sheets("Feuil2").Cells(ligne1 + 3, colonne + 10).Value = vrstCumul_08
            Sheets("Feuil2").Cells(ligne1 + 3, colonne + 11).Value = vrstCumul_09
            Sheets("Feuil2").Cells(ligne1 + 3, colonne + 12).Value = vrstCumul_10
            Sheets("Feuil2").Cells(ligne1 + 3, colonne + 13).Value = vrstCumul_11
            Sheets("Feuil2").Cells(ligne1 + 3, colonne + 14).Value = vrstCumul_12
 
             'cumul abdt cumulés
            Sheets("Feuil2").Cells(ligne1 + 4, colonne + 3).Value = abdtCumul_01
            Sheets("Feuil2").Cells(ligne1 + 4, colonne + 4).Value = abdtCumul_02
            Sheets("Feuil2").Cells(ligne1 + 4, colonne + 5).Value = abdtCumul_03
            Sheets("Feuil2").Cells(ligne1 + 4, colonne + 6).Value = abdtCumul_04
            Sheets("Feuil2").Cells(ligne1 + 4, colonne + 7).Value = abdtCumul_05
            Sheets("Feuil2").Cells(ligne1 + 4, colonne + 8).Value = abdtCumul_06
            Sheets("Feuil2").Cells(ligne1 + 4, colonne + 9).Value = abdtCumul_07
            Sheets("Feuil2").Cells(ligne1 + 4, colonne + 10).Value = abdtCumul_08
            Sheets("Feuil2").Cells(ligne1 + 4, colonne + 11).Value = abdtCumul_09
            Sheets("Feuil2").Cells(ligne1 + 4, colonne + 12).Value = abdtCumul_10
            Sheets("Feuil2").Cells(ligne1 + 4, colonne + 13).Value = abdtCumul_11
            Sheets("Feuil2").Cells(ligne1 + 4, colonne + 14).Value = abdtCumul_12
            Exit Sub
        End If
 
        'incrémentation de 5 pour copier en dessous
        ligne1 = ligne1 + 5
 
        Next
 
    End With
 
End Sub

Création dynamique d'un tableau en fonction d'une liste

Excel

Discussions similaires

Partager

Partager