Copier des cellules sur trois lignes
ZazoU
-
ZazoU -
ZazoU -
Bonjour,
je souhaiterias copier la cellule A1 en B1, B2 et B3; la cellule A2 en B4, B5, B6 et ainsi de suite jusqu'à A500 en B1498, B1499, B1500 ?
Avez vous une idée pour automatiser cela ?
Merci
je souhaiterias copier la cellule A1 en B1, B2 et B3; la cellule A2 en B4, B5, B6 et ainsi de suite jusqu'à A500 en B1498, B1499, B1500 ?
Avez vous une idée pour automatiser cela ?
Merci
Configuration: Windows Vista Firefox 3.0.13
2 réponses
-
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
-
Merci,
entre temps j'ai trouvé sans faire de macro !
j'attaque à rentrer mes données en A4 B4 = A4 mais B5 = INDEX(A:A;(ALS(SOM(B2:B4)/3=B4;B4+4;B4+3)))
ensuite je fait glisser la formule et miracle !!!
En tout cas merci pikaju ! et merci Excel !
