"Déimbriquer" des données

VanVeen

XLDnaute Nouveau
Bonjour à tous,

Je suis débutant en excel et j'ai un petit soucis au niveau de 4 tableaux de données...qui en fait n'en forment qu'un seul. J'explique : Un programme m'a ressorti 4 graphiques avec un fichier des données excel relatives. Cependant au lieu d'avoir 4 fois ordonnées/abscisses, j'ai une colonne abscisse et une colonne ordonnée pour les quatre données. En d'autre terme mes datas se sont imbriquées comme telles :

1
2
3
4
1
2
3
4
...etc

je voudrais savoir comment procéder pour les séparer. Je ne m'y connais pas en programmation excel donc je suis un peu dans le flou. :confused:

en vous remerciant :)
 

VanVeen

XLDnaute Nouveau
Re : "Déimbriquer" des données

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

voilà j'envoie une extrait de mon fichier.

merci d'avance :)
 

Pièces jointes

  • Classeur1.xls
    16 KB · Affichages: 64
  • Classeur1.xls
    16 KB · Affichages: 65
  • Classeur1.xls
    16 KB · Affichages: 64

VanVeen

XLDnaute Nouveau
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 :)
 

Discussions similaires

Statistiques des forums

Discussions
312 611
Messages
2 090 220
Membres
104 452
dernier inscrit
hamzamounir