Creation de PivotTable difficile

Je me sert d'un script afin de créé un tableau croisé dynamique mais ça ne marche pas et l'erreur ne me dis pas grand chose non plus.

Le script est une adaptation d'un script suggéré par un membre de ce forum, le problème est que son script marche parfaitement sur la feuille d'exemple qu'il m'a envoyé mais lorsque je l'adapte à ma feuille ça ne marche pas indépendemment du fait que je n'ai pas adapté son script de création du PivotTable, j'ai juste ajouté le code nécessaire pour que la plage employée par le PivotTable ne concerne que la section voulue
je fais une boucle qui cherche le charactère "*" dans une colone, si il n'y est pas la boucle arrête et assigne la ligne finale à une variable ("derligne"), cette modification en soit marche très bien puisque je l'ai testé sans la création du pivot table, je lui demande de sélectionner la ligne derligne et il le fait.

Donc, j'inclus ici une feuille excel se raprochant énormément de la feuille sur laquelle je travaille, mais seulement la section des heures s'y retrouve.

Sur le bouton PivotCreate est assigné le script correspondant.

Quelqu'un peut me dire en quoi le script ne fonctionne pas?
Me diriger vers une solution?

merci

Tu as beaucoup de cellules fusionnées
de ce fait, le TCD ne va pas fonctionner
Essaie d'abord d'organiser tes données dans ta feuille "data" de telle sorte que dans chaque colonne il doit être un entête et des données
Ensuite voyons comment adapter, tu as changé certains noms du TCD

en plus, vu ta configuration, cette ligne te donnera la dernière ligne donnée

Code:

---

DerniereLigne = Range("A2").End(xlDown).Row

---

maintenant, suis-je plus clair?

Code:

---

DerniereLigne = Range("A2").End(xlDown).Row

---

ne sera pas bon au final pour moi puisque la section à fournir au TCD est une partie d'une feuille, il y a d'autre trucs en dessous.

Remarque, si tu exclus toutes les lignes de creation du pivot table et remplace par plage.select tu auras l'ensemble des lignes requise (et colonnes) sélectionné, le script marche bien en ce sens.

Mais pour les cellules fusionnées je ne savais pas, donc je dois formatter sans fusion?

Donc, je refais ma mise-en-forme sur le fichier test et vois ce que ça donne, merci :)

quand même, puisque je suis curieux, existe-t'il une façons de faire le tout avec des cellules fusionnées (genre plage=sélection complexe de la première colonne de chaque fusion et non des autres et faire la pivottable avec...)?

voici ou j'en suis:

j'ai refais ma mise-en-forme afin de n'avoir aucune fusion.

Le problème reste, l'erreur est:
The PivotTable field name is not valid. To create a PivotTable report, you must use data that is organized as a list with labeled columns. If you are changing the name of a PivotTable field, you must type a new name for the field

J'ai été changer dans le code les noms référencé et maintenant tout devrait correspondre, le problème n'était donc pas le nom en soit ou la référence... je crois...

voir l'attachement qui contient ma progression, plus facile à suivre j'imagine :)

Voilà mon aide, ci-joint fichier (finalisé)

Code:

---

DerniereLigne = Range("A2").End(xlDown).Row

---

partira jusqu'à la dernière date de la colonne A (s'il n'y a pas de cellules vides à l'intérieur)

ne prends pas en considération les commentaire encore en dessous

Encore une précision, les entête de colonnes doivent avoir des noms différents, (regardes mon essai dernier)