spliter une colonne en plusieurs ?

Bonjour,

J'ai une feuille excel avec une seule colonne. On me demande de splitter dans une nouvelle feuille en 4 colonnes : Les 4 première lignes de l'ancienne feuilles vers la première ligne de la nouvelle feuille, les 4 ligne suivante vers la 2eme ligne, et ainsi de suite.

J'envisage de faire une petite appli en java avec jexcel. Mais il y a peu être moyen de faire cella en deux coups de cuillère à pot avec une macro dans excel 2003 ? (Je n'ai jamais touché aux macro excel, word ou à vba.)

merci pour vos lumières.

Soir Bon,à adapter http://cjoint.com/?dyu75k4m0x

Bonsoir
les données de base se trouvent dans la colonne A de la feuille 1, seront transposées dans le feuille 2 du même classeur. voir exemple ci-joint

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub test() Dim temp() Dim i As Integer, j As Integer j = 1 Do Until IsEmpty(Cells(j, 1)) ReDim temp(1 To 2, 0 To 3) For i = 0 To 3 temp(1, i) = Cells(j, 1) j = j + 1 Next Feuil2.Range("A65536").End(xlUp)(2).Resize(1, 4) = temp Erase temp Loop Feuil2.Select End Sub

---

Bonne soirée à tout le monde

Abed_H :king:

Citation:

---

Envoyé par kiki29

Soir Bon,à adapter http://cjoint.com/?dyu75k4m0x

---

Ça semble correspondre aux besoins.

Merci beaucoup.

Mais comment puis-je modifier cette macro pour qu'elle agisse sur la "feuille active" (L'onglet sélectionné) ?

Salut, une version "modifiée" , la feuille sélectionnée avant le lancement de la macro doit être celle contenant les données à transposer, voir sur http://cjoint.com/?dzb4RkCAVX

Citation:

---

Envoyé par kiki29

Salut, une version "modifiée" , la feuille sélectionnée avant le lancement de la macro doit être celle contenant les données à transposer, voir sur http://cjoint.com/?dzb4RkCAVX

---

Génial !

Mais j'ai encore une requête : Comment faire pour que la nouvelle feuille s'appelle par exemple "new truc" si l'ancienne s'appelait "truc" ?

Salut, dans la procédure
sous

Code:

---

Worksheets.Add

---

ajoute

Code:

---

1 2	ActiveSheet.Name = "New_" & sNom

---

Mille mercis.

Et j'abuse, mais comment faire pour que la nouvelle feuille soit placée après la feuille active ?

Re,à placer vers la fin de la procédure

Code:

---

Sheets("New_" & sNom).Move After:=Sheets(sNom)

---

Au final cela donnera qqch comme http://cjoint.com/?dzjIZjJTik

Un tout tout grand merci.