conversion-fragmentation colonne de données

[Rossi]

Bonjour,

Je souhaiterais si possible convertir ou recopier une colonne de 4000 données en 50 colonnes juxtaposées de 80 données.

Par avance, merci.

 

[Jeannot45]

Bonjour,

Devant un tel flux de données à travailler et un tel flou dans la question, pourrais-tu mettre un petit bout de fichier

Jeannot

 

[porcinet82]

Salut Rossi,

Voir solution en PJ.

[file name=Rossi.zip size=2447]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Rossi.zip[/file]

@+

Edition: Salut Jeannot. Désolé de donner une reponse comme ca, mais c'est le problème de serveur

Message édité par: porcinet82, à: 20/01/2006 15:06

 

[graton18]

Bonjour

integre ce qui suit dans une macro:

'*****************************************
For j = 2 To 51
For k = 1 To 80
Cells(k, j).Value = Cells(k + 80 * (j - 2), 1).Value
Next
Next

'Supprimer la colonne A
Columns('A:A').Select
Selection.Delete Shift:=xlToLeft
'*******************************************

s'il y a plus de 4000 cellules , il faudra adapter
bon courage

 

[Rossi]

Merci infiniment pour vos trois réponses,
J ai réalisé la proposition de Porcinet, cela a très bien marché.

Nb; sans vouloir abuser…, j’aurais aussi la même chose à faire, mais là chacune des 50 colonnes serait subdivisée en 3 colonnes
(la n°1 seraient les 66 premières valeurs, la n°2 les 10 suivantes et la n°3 les 5 dernières) x50
-et éventuellement pouvoir moduler ces groupes
Fichier en attaché.

Message édité par: rossi, à: 20/01/2006 20:27

 

[Rossi]

fichier oublié, [file name=Lymphoma.zip size=50488]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Lymphoma.zip[/file]

 

[porcinet82]

Salut Rossi,

Reponse en PJ.

[file name=reponse.zip size=2639]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/reponse.zip[/file]

@+

 

[Rossi]

Très bien, j'ai juste modifié Range('A1:A14')par Range('A1:A10')pour avoir la seconde subdivision par 10.
Merci encore pour cette contribution (pour la recherche médicale).