Discussion :

[wyzer]

Bonjour,

Je suis en train de faire une macro qui effectuerait cette tache :

* en sachant que dans la feuille 1 (et 2) se trouvent les en-têtes suivantes :

QUANTITE | MONTANT | EVENEMENT | RAYON | DATE VALIDITE

1) copier la première ligne de la feuille 1

2) coller cette ligne dans la feuille 2 x fois

x fois = valeur inscrite dans la cellule de la colonne "QUANTITE"


Voilà ce que j'ai commencé à faire :

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
 
Sub copier_coller_x_fois()
Application.ScreenUpdating = False
Dim i As Integer
Dim comp As Integer
comp = 1
For i = 2 To 627
Sheets(1).Activate
Rows(i).Copy
Sheets(2).Activate
Cells(comp + 1, 1).Select
ActiveSheet.Paste
comp = comp + 1
Next i
Application.ScreenUpdating = True
End Sub

Le soucis, c'est qu'il me manque le code qui va permettre de lire la valeur inscrite dans la cellule, et ainsi répéter tant de fois le collage

Merci par avance pour votre aide !!

[jfontaine]

Bonjour,

Pour lire la valeur d'une cellule

ici A1

Code :

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

Range("A1").value

En mettant dans une boucle

Code :

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

1
2
3
4
For i=2 to Range("A1").value
'Coller
 
Next i

[wyzer]

Bonjour,

Merci !!

Voici la macro fonctionnelle :

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
Sub z_Copier_coller_xfois_une_ligne()
' la Feuil1 comporte les lignes à copier, et la colonne A le nombre de fois du copier coller
' la Feuil2 est la feuille de travail
Application.ScreenUpdating = False
Dim sh1 As Worksheet, sh2 As Worksheet
Dim lig As Long, cellule As Variant
Set sh1 = Worksheets("Feuil1")
Set sh2 = Worksheets("Feuil2")
For Each cellule In Range("A2:A65536")
If cellule.Value > 0 Then
For i = 1 To cellule.Value
lig = sh2.[A65536].End(xlUp).Row + 1
sh2.Rows(lig) = cellule.EntireRow.Value
Next i
End If
Next cellule
Application.ScreenUpdating = True
sh2.Select
MsgBox "Traitement fini"
End Sub