Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

LORDDD

XLDnaute Occasionnel
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
 

Pièces jointes

  • Date - H - V1.xlsm
    45.4 KB · Affichages: 51

Paf

XLDnaute Barbatruc
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+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…