XL 2013 Mettre en forme des élements d une base de données

[LORDDD]

Bonjour et bonne année 2017 à vous tous.
Je tente de mettre en forme une base de données brutes en tableau facilement lisible

Onglet base vous avez les données brutes a savoir 5 hôtels sur différentes dates avec 2 tarifs
Onglet Récap, je souhaite ranger par hôtel par date un seul type de prix, et ajouter l'info code prix et saison.

Vous trouverez un bout de code VBA dans le projet mais tourne en rond.

Merci de votre aide
Cordialement

 

[Paf]

re,

Aïe aïe aïe, la bourde ....

J'ai tout fait pour que ça écrive directement sur la feuille Recap.... sauf que j'en ai oublié un bout....

Pour bien référencer les écriture à la feuille Recap rajouter un point (.) devant chaque Cells.

C'est plus propre que le Select.

With Worksheets("Recap")
For Each clé In dico.keys
    T1 = Split(clé, "|")
    T2 = Split(dico(clé), "|")
    'Lig = CLng(Right(T1(0), 1)) * 3
   Lig = dico2(T1(0)) * 3
    Col = T1(1) - Dini + 3
    .Cells(Lig, 1) = T1(0)
    .Cells(2, Col) = T1(1)
    .Cells(Lig, Col).Resize(UBound(T2, 1) + 1, 1) = Application.Transpose(T2)
Next

A+

 

[LORDDD]

Ok apres test et divers modifs d'adaptation tout fonctionne a merveille