Discussion :

[madagascarbest]

Pouvez vous me donner le code VBA pour Copier 10 fois tous les lignes sur excel svp?. Merci

[Thautheme]

Bonjour Madagascarbest, bonjour le forum,

Question très évasive... Copier toute les lignes depuis où, vers où ?... Peut-être 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
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim I As Byte 'déclare la variable I (Incrément)
Dim DL As Long 'déclare la variable DL (Dernière Ligne)
Dim PLV As Long 'déclare la variable PLV (Première Ligne Vide)
 
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
For I = 1 To 10 'boucle sur 10 fois
    PLV = O.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1 'définit la première ligne vide de la colonne A de l'onglet O
    O.Rows("1:" & DL).Copy O.Cells(PLV, "A") 'copie les lignes 1 à DL et les colle dans la cellule ligne PLV colonne A
Next I 'prochaine fois de la boucle
End Sub

[droggo]

Bonjour,

Pouvez vous me donner le code VBA pour Copier 10 fois tous les lignes sur excel svp?. Merci

C'est une punition, genre vous me copierez 10 fois ... ?