A voir également:
- Copier des cellules sur trois lignes
- Formule excel pour additionner plusieurs cellules - Guide
- Verrouiller des cellules excel - Guide
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Comment aller à la ligne sur excel - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
5 août 2009 à 10:46
5 août 2009 à 10:46
Salut,
J'ai essayé comme ceci, ça à l'air de fonctionner. Ce qui me gène un peu c'est le "select".....
Dim i As Integer, j As Integer, k As Integer
With Sheets("Feuil1")
k = 1
For i = 1 To 500
.Cells(i, 1).Copy
For j = k To k + 3
.Cells(j, 2).Select
ActiveSheet.Paste
Next j
k = k + 3
Next i
End With
J'ai essayé comme ceci, ça à l'air de fonctionner. Ce qui me gène un peu c'est le "select".....
Dim i As Integer, j As Integer, k As Integer
With Sheets("Feuil1")
k = 1
For i = 1 To 500
.Cells(i, 1).Copy
For j = k To k + 3
.Cells(j, 2).Select
ActiveSheet.Paste
Next j
k = k + 3
Next i
End With
