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

LORDDD · 4 Janvier 2017

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 · 5 Janvier 2017

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.

VB:

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 · 27 Janvier 2017

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

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

LORDDD

XLDnaute Occasionnel

Pièces jointes

Paf

XLDnaute Barbatruc

LORDDD

XLDnaute Occasionnel

Discussions similaires