XL 2010 VBA transformer ligne en colonne avec rajout d'information

[cseb19]

Bonjour à tous,
j'ai déjà trouvé une partie de ma solution sur ce forum très intéressant mais je n'arrive pas toujours à trouver ma solution. Veuillez trouver plus bas mon exemple
Je pars de donner sous le format suivant :

et je souhaite obtenir ceci :

L'objectif de cette opération est de faire au final un gantt.

je vous remercie par avance

 

[pierrejean]

Bonjour cseb19

on préférerait un fichier exemple (copie de ton fichier avec le contenu de la photo)

 

[cseb19]

Voila, je viens de joindre le fichier

 

[pierrejean]

Re

Vois si cela te convient

 

[cseb19]

Re, merci. C'est exactement ce que je souhaitais. Il ne me reste plus qu'à faire mon gantt.
Cordialement,

 

[cseb19]

Rebonjour,
Je reviens vers vous car j'aurais souhaité apporter des modifications au code mais je me rend compte que je n'arrive pas à l'interpréter. Je souhaiterais obtenir également le résultat 2 que j'ai fait sur le fichier ci-joint
Merci d'avance

 

[pierrejean]

Re

Vois si cela convient

 

[cseb19]

Re,
C'est super, j'étais sur la bonne piste mais je sais pas combien temps j'aurais mis.
Merci beaucoup pour cette aide précieuse, il va falloir que je fasse une formation

 

[cseb19]

re,
Je me permet de vous recontacter car j'ai un résultat étrange. Je vous joins le fichier mais pour mieux vous expliquer sur la donnée d'origine on a :

On voit sur l'exemple 3, une date allant du 01/06/2017 au 10/07/2017 puis du 10/07/2017 au 18/07/2017
Le résultat est de la macro est :

Au final il a remplacé le 10/07/2017 par 07/10/2017. Est ce que vous trouvé une explication. J'ai pensé au format de date mais je n'arrive pas à retoucher au code.

PS ce problème apparait plusieurs fois (voir exemple 1 la date du 01/09 qui passe en 09/01

Cordialement,

 

[pierrejean]

Re

Le problème vient du fait que les dates de la feuille origine sont des Textes
Il convient donc de les reporter en tant que texte et non date
D’où la suppression des Cdate( ) et la mise en format Texte de la feuille résultat

 

[cseb19]

Ok merci, c'est bizarre car marché pour la plupart des cellules c'était bon

 

[cseb19]

Bonjour,
sachant que j'importe dans ms project, je souhaiterais avoir mes données en format date.
J'ai modifié mes données d'origine pour avoir que des dates et j'ai repasser l'ancien code avec les Cdate mais je n'arrive pas à obtenir le bon résultat. Serait il possible d'avoir une fois de plus un coup de main.
Merci d'avance

 

[pierrejean]

Re

Voila
On charge le tableau de résultat avec le Nombre correspondant à la date (Cdbl()) et les colonnes de resultat sont au Format Date

 

[cseb19]

ok merci