Réorganiser des données

Le
lolo
Bonjour,

Voila j'ai un fichier de statistique que je voudrais organiser
autrement avec une macro mais je ne suis pas un spécialiste
J'ai plusieurs colonne dans la feuille avec mes données 60 par
colonnes (stat2667) que je voudrais réorganiser en ligne (10 données
par ligne).(dans la feuil1)

Je joins le fichier pour que ce soit plus compréhensible :
http://cjoint.com/?lfjqUOtNqI

Merci de votre aide

Lolo
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #20491631
Bonjour,

Toutes les colonnes........
'-----------------------
Sub JJ()
Application.ScreenUpdating = False
Sheets("Feuil1").[b2:k1000].Clear
Dim i As Long, J As Long
For i = 1 To 24
For J = 1 To 60 Step 10
With Sheets("stats2667")
.Range(.Cells(J, i), .Cells(J + 9, i)).Copy
End With
With Sheets("Feuil1")
.Range("b" & .Cells(Rows.Count, "b").End(3).Row + 1).PasteSpecial ,
Transpose:=True
End With
Next
Next
End Sub
'--------------------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200911/cijfDdAljr.xls


--
Salutations
JJ


"lolo"
Bonjour,

Voila j'ai un fichier de statistique que je voudrais organiser
autrement avec une macro mais je ne suis pas un spécialiste...
J'ai plusieurs colonne dans la feuille avec mes données 60 par
colonnes (stat2667) que je voudrais réorganiser en ligne (10 données
par ligne).(dans la feuil1)

Je joins le fichier pour que ce soit plus compréhensible :
http://cjoint.com/?lfjqUOtNqI

Merci de votre aide

Lolo
FFO
Le #20491691
Salut à toi

Résultat dans une feuille nommé "Résultat"

Ma proposition :

If Sheets("Résultat").Range("B2") <> "" Then
Sheets("Résultat").Range("B2", "K" & Sheets("Résultat").Range
("B65535").End(xlUp).Row).Clear
End If
Sheets("stats2667").Activate
For i = 1 To Range("IV1").End(xlToLeft).Column
j = 1
Ligne = Sheets("Résultat").Range("B65535").End(xlUp).Row + 1
k = 0
Do While j < Range("A65535").End(xlUp).Row + 1
Sheets("Résultat").Range(Cells(Ligne, 2 + k).Address).Value = Range
(Cells(j, i).Address).Value
j = j + 1
k = k + 1
If k > 9 Then
k = 0
Ligne = Sheets("Résultat").Range("B65535").End(xlUp).Row + 1
End If
Loop
Next

Sur ce lien ton document avec la macro

Click sur le bouton "GO" onglet "stats2667"

http://www.cijoint.fr/cjlink.php?file=cj200911/cij4qrBTma.xls
lolo
Le #20495551
Bonsoir

Merci à tous, ça fonctionne parfaitement et j'ai gagné un maximum de
temps !
Bonne soirée
Lolo
lolo
Le #20498091
Bonjour

Je voudrais apporter une petite modification

Je voudrais avoir une fenetre qui me demande le nom de la feuille est
le nombre de données à récupérées
c'est à dire nom feuille : stats2667 (peut avoir un autre nom) -
nombre de données à classer : varie de 30 à 60)


Je vous remercie
Lolo
Jacky
Le #20498471
Bonjour,

La feuille qui "peut avoir un autre nom" est toujours existante ?
Le nombre de COLONNE est toujours 24 ?

--
Salutations
JJ


"lolo"
Bonjour

Je voudrais apporter une petite modification

Je voudrais avoir une fenetre qui me demande le nom de la feuille est
le nombre de données à récupérées
c'est à dire nom feuille : stats2667 (peut avoir un autre nom) -
nombre de données à classer : varie de 30 à 60)


Je vous remercie
Lolo
Jacky
Le #20498581
Heu...
Je voulais dire la feuille de destination a toujours le même nom ?
Le nombre de COLONNE est toujours 24 ?

--
Salutations
JJ


"Jacky"
Bonjour,

La feuille qui "peut avoir un autre nom" est toujours existante ?
Le nombre de COLONNE est toujours 24 ?

--
Salutations
JJ


"lolo"
Bonjour

Je voudrais apporter une petite modification

Je voudrais avoir une fenetre qui me demande le nom de la feuille est
le nombre de données à récupérées
c'est à dire nom feuille : stats2667 (peut avoir un autre nom) -
nombre de données à classer : varie de 30 à 60)


Je vous remercie
Lolo



Jacky
Le #20500151
Re..
Ceci peut-être
http://www.cijoint.fr/cjlink.php?file=cj200911/cij8OCUsuD.xls

--
Salutations
JJ


"Jacky"
Bonjour,

La feuille qui "peut avoir un autre nom" est toujours existante ?
Le nombre de COLONNE est toujours 24 ?

--
Salutations
JJ


"lolo"
Bonjour

Je voudrais apporter une petite modification

Je voudrais avoir une fenetre qui me demande le nom de la feuille est
le nombre de données à récupérées
c'est à dire nom feuille : stats2667 (peut avoir un autre nom) -
nombre de données à classer : varie de 30 à 60)


Je vous remercie
Lolo



lolo
Le #20500751
Bonjour

Désolé de ma réponse tardive. La feuille de resultat sera toujours la
même
Le nombre de colone peut varier.
Le nombre compris entre 30 et 60 (31..35..42...) pas forcément
multiple de 10
Le fichier que tu as joint est très bien il faut juste les conditions
suivantes

Avec cette macro je gagne 1 journée de travail !!

Encore merci

Lolo
Jacky
Le #20502241
Re...
Il y a quelque chose que je ne comprends pas
Dans la feuille de "résultat", il y a bien 10 COLONNES dans ton exemple, non
??
Alors dans la feuille 'source' le nombre de LIGNES doit être multiple de 10,
sinon le résultat sera erroné.
Il est entendu que les colonnes dans la feuilles "source" peuvent être
variable
Ou alors je n'ai pas compris....
Donne un exemple de résultat souhaité avec 11 lignes dans la feuille
"source"

;o)
Avec cette macro je gagne 1 journée de travail !!


Désolé de t'avoir fait perdre de l'argent....
Chez nous, "** il faut travailler plus pour gagner plus **"
;o)
--
Salutations
JJ


"lolo"
Bonjour

Désolé de ma réponse tardive. La feuille de resultat sera toujours la
même
Le nombre de colone peut varier.
Le nombre compris entre 30 et 60 (31..35..42...) pas forcément
multiple de 10
Le fichier que tu as joint est très bien il faut juste les conditions
suivantes

Avec cette macro je gagne 1 journée de travail !!

Encore merci

Lolo
lolo
Le #20518871
Salut

Après vérification tu as raison on doit bien pendre un multiple de
10...
Merci encore
Bonne journée

Lolo
Publicité
Poster une réponse
Anonyme