Discussion :

[jika]

bonjour
je voudrais faire une macro pour recopier une ligne sur plusieurs lignes mais en utilisant la boucle for
pourriez vous m aider?
thanx

[ludooo]

salut Jika

Si la feuille sur laquelle tu travailles est "Feuil1" :

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
 
Sub recopierLignes()
 
Dim i As Integer
Dim wbMonClasseur As Workbook
 
Set wbMonClasseur = ThisWorkbook
k = 7 'le numero de ta ligne a répéter
nbLignes = 5    'le nb de répétitions souhaité de ta ligne
 
With wbMonClasseur.Sheets("Feuil1")
    .Rows(k).Copy
    For i = 1 To nbLignes
        .Paste Destination:=.Cells(i + k, 1)
    Next i
End With
 
End Sub

Il existe aussi une fonction pour vider le contenu du presse-papiers mais je l'ai pas en tête la.