"Déimbriquer" des données

Re : "Déimbriquer" des données

bonjour et bienvenue,

VanVeen à dit:

...donc je suis un peu dans le flou.

Cliquez pour agrandir...

Pour tout dire tu ne dois pas être le seul...
[thread=32841]charte-du-forum-lire-avant-de-poster[/thread], ça me parait un bon début
A+
kjin

Re : "Déimbriquer" des données

Je n'ai pas été assez clair peut-être?

Re : "Déimbriquer" des données

Au cas où: Je me demandais s'il existait une fonction ou alors un code qui implémenterait une boucle FOR afin de classer mon tableau en 4 tableaux. merci

Re : "Déimbriquer" des données

J'ai fait des recherches sur le forum et sur google et je sèche. je n'arrive pas à avoir un problème similaire au mien.

Re : "Déimbriquer" des données

Bonjour,

VanVeen à dit:

Au cas où: Je me demandais s'il existait une fonction ou alors un code qui implémenterait une boucle FOR afin de classer mon tableau en 4 tableaux. merci

Cliquez pour agrandir...

Si tu as lu la charte, tu auras compris qu'il n'est pas possible d'apporter une réponse à ton problème sans un fichier exemple correspondant !
A+
kjin

Re : "Déimbriquer" des données

kjin à dit:

Bonjour,

Si tu as lu la charte, tu auras compris qu'il n'est pas possible d'apporter une réponse à ton problème sans un fichier exemple correspondant !
A+
kjin

Cliquez pour agrandir...

voilà j'envoie une extrait de mon fichier.

merci d'avance 🙂

Re : "Déimbriquer" des données

Bonjour VanVeen, Bonjour kjin,

1ère série :


à recopier vers le bas et la droite

2ème série :


etc...

Re : "Déimbriquer" des données

Alors voilà je reviens sur ce problème.
J'ai fait une macro sur les 4 premières lignes et j'ai bouclé sur le tableau.

mais j'ai le message d'erreur suivant : "erreur d'éxecution '1004': la méthode 'range' de l'objet '_global' a échoué"

voici le code source de la macro.
:

Sub classement()
'
' classement Macro
' Macro enregistrée le 1/09/2010 par Belanger
Dim i As Integer
For i = 1 To 4 Step 4 'ici j'ai mis jusque 4 pour tester
i = 1
Range("Ai:Ci").Select
Application.CutCopyMode = False
Selection.Copy
Range("Di").Select
ActiveSheet.Paste
Range("Ai+1:Ci+1").Select
Application.CutCopyMode = False
Selection.Copy
Range("Gi").Select
ActiveSheet.Paste
Range("Ai+2:Ci+2").Select
Application.CutCopyMode = False
Selection.Copy
Range("Ji").Select
ActiveSheet.Paste
Range("Ai+3:Ci+3").Select
Application.CutCopyMode = False
Selection.Copy
Range("M1").Select
ActiveSheet.Paste
Next i
End Sub


quand j'ouvre le debeugueur, il me trouve un problème à la ligne :
"Range("Di").Select"

je vois sur les forum que c'est un message récurrent mais je ne trouve pas de solution.

merci d'avance 🙂