Réorganisation des données
Bonjour à tous
Je cherche un moyen dans Excel pour réorganiser automatiquement les données d'un tableau (feuille "depart" dans le fichier joint) sous un autre format (feuille "arrivée" dans le fichier joint).
l'idée est de partir de ce format :
AGENT 19/10/2015 20/10/2015 21/10/2015
00664 201 202 203
00924 202 202 202
et d'arriver à un format comme celui ci :
00664 19/10/2015 201
00664 20/10/2015 202
00664 21/10/2015 203
00924 19/10/2015 202
00924 20/10/2015 202
00924 21/10/2015 202
Existe t-il un moyen de le faire dans Excel sans avoir à ressaisir ?
Je vous remercie par avance
un bout de code
Sub recopier()
ligne = 1
For i = 2 To Sheets("depart").Range("B1").End(xlToRight).Column
For j = 2 To Sheets("depart").Range("A2").End(xlDown).Row
With Sheets("arrivée")
.Cells(ligne, 1) = Sheets("depart").Cells(j, 1)
.Cells(ligne, 2) = Sheets("depart").Cells(1, i)
.Cells(ligne, 3) = Sheets("depart").Cells(j, i)
End With
ligne = ligne + 1
Next j
Next i
End Subun bout de code
Sub recopier()
ligne = 1
For i = 2 To Sheets("depart").Range("B1").End(xlToRight).Column
For j = 2 To Sheets("depart").Range("A2").End(xlDown).Row
With Sheets("arrivée")
.Cells(ligne, 1) = Sheets("depart").Cells(j, 1)
.Cells(ligne, 2) = Sheets("depart").Cells(1, i)
.Cells(ligne, 3) = Sheets("depart").Cells(j, i)
End With
ligne = ligne + 1
Next j
Next i
End SubBonjour
ci joint une proposition
Feuille départ :
tout sélectionner puis Ctrl- pour tout supprimer
coller les données dans la feuille départ*
lancer la macro avec Ctr Maj T
A vérifier
Cordialement
FINDRH
Super
merci pour votre aide !
Parfait
A ta dispo si ça coinçait ultérieurement
merci de clore le sujet en le validant
Cordialement
FINDRH