Re : Copier / coller avec incrémentation
Re,
Déjà, le code :
Dim plage As Range
Dim plage2 As Range
Dim i As Integer
Private Sub CommandButton1_Click()
'copie du tableau sur la ligne
Set plage = Sheets("feuil1").Range("A1:E1")
Sheets("feuil2").Select
ActiveSheet.Range("A1").Select
For i = 0 To 2
Sheets("feuil1").Select
plage.Offset(i, 0).Select
Selection.Copy
Sheets("feuil2").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 5).Select
Next
End Sub
Sub CommandButton2_Click()
'copie de la ligne dans le tableau
Dim ligne As Integer
Dim col As Integer
ligne = 4
For col = 1 To 11 Step 5
Range(Cells(1, col), Cells(1, col + 4)).Copy Destination:=Cells(ligne, 1)
ligne = ligne + 1
Next col
End Sub
Voilà ce que je vois, (pièce jointe)