Discussion :

[sonichou]

Bonjour
J'ai besoin d'aide
voilà mon problème,je veux copier une valeur z , x fois sur une ligne
x serais dans une autre cellule.
exemple : je dois lançé 5 production en 1 mois, avec une taille de lot de 20
je veux que dans ma ligne il y a 20 20 20 20 20.

merci beaucoup de votre aide.

[Mr.Mof]

Bonjour,

Je pense que tu cherches à faire quelque chose comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim x, I, z As Integer
 
x = Range("Feuil1!A1") 'récupération de ta valeur x
z = 20
 
For I = 1 To x
 
'Copie de z dans 1 colonnes , x fois
With Feuil2
.Cells(1, I).Value = z
End With
 
Next

Cordialement.

[sonichou]

Bonjour
et merci pour votre réponse cela marche parfaitement.

j'aurais une autre question, j'ai énormément de ligne et j'aimerai éttendre la macro pour toutes mes lignes, et que les cellules copier se copie sur la même lignes que les variable.

je ne sais pas si c'est assez claire.

merci encore

[Mr.Mof]

Qu'est-ce que tu entends par variable? C'est ta valeur à copier?

[sonichou]

je vous envoye un exemple

[Mr.Mof]

J'ai fais quelques test et il faudra peut être que tu adapte le code mais ca ressemble à ce que tu cherches:

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
Public Sub test()
 
Dim x, I, z, A As Integer
Dim L As Integer
 
L = 26 'Nombre de lignes
 
 
For A = 2 To L + 1
 
x = Range("Feuil1!G" & A) 'récupération de ta valeur x
 
For I = 1 To x
 
z = Range("Feuil1!D" & A)
 
'Copie de z dans 1 colonnes , x fois
With Feuil1
.Cells(A, 8 + I).Value = z
End With
 
Next
Next
 
End Sub

[sonichou]

je vais essayer merci beaucoup