XL 2016 Ventiler données selon mois

[patoq]

Bonjour le forum,

Dans le cadre d'une gestion des prévisions, je doit ventiler une base de données par article par différents mois.
Dans le fichier joint, j'ai colorié les cases en jaune ou je dois obtenir des résultats ( ventes mois par mois / code article).

J'y arrive déja dans mon fichier d'origine avec des formules mais sur 20000 lignes cela devient relativement long.
J'ai regarder le module Gigogne de Dranreb mais je n'ai pas les compétences requises pour l'adapter ( si adaptable).
La ligne Ventes2018 remplie serait un plus, mais juste les lignes colorées en jaune me comblerait.

Merci de votre aide.
Patrice

 

[eriiic]

supprimé
Il apparait que j'étais légèrement hors sujet

 

[ChTi160]

Bonjour Patoq
Bonjour le Fil (Eriiiic) , Le Forum
Après lecture du dernier post de Eriiiic
Je ne sais plus si j'ai compris la demande Lol
Une approche de ce que j'ai cru comprendre Lol
la procédure se déclenche lors de l'activation de la Feuille "Feuil1"
on pourrait y mettre un bouton .
Bonne journée
Amicaement
jean marie

 

[gosselien]

Bonjour,

et si tu faisais le tcd avec ces données ci, tu les copies en valeurs et puis tu viens intercaler tes autres données; ou alors tu montres ici comment sont présentées les autres données entre les lignes jaunes..
Il y a peut être une autre manière de faire... Je ne dis pas que je saurais le faire mais d'autres ici pourraient

P.

 

[eriiic]

Bonjour,

Après lecture du dernier post de Eriiiic
Je ne sais plus si j'ai compris la demande Lol

tu m'étonnes
Ca fait 2 fois ces derniers jours que je me trouve à répondre dans un mauvais topic.
C'était pour voir si tout le monde suivait ;-)
eric

 

[patoq]

Bonsoir tout le monde,

Tout d'abord merci tout le monde pour votre aide, j'apprécie énormément.
Je joint mon fichier final , je n'arrive pas à adapter le code de Jean Marie sur ce fichier
Je cherche à remplir les cellules jaunes ( ventes) par macro, la procédure de Jean Marie fonctionne nickel sur l'ancien exemple, malheureusement mes compétences VBA m"empêche d'adapter moi même ce code sur ce fichier.
Le code article est en colonne H et l' année en colonne J.

Merci d'avance pour votre aide
Amicalement
Patrice

 

[ChTi160]

Re
Effectivement ................
il serait bon de mettre un fichier exemple qui soit au plus près de la réalité , ça évite ce genre de désagrément .
Une autre approche Donc (y aura t'il d'autres adaptations nécessaires lol).
Bonne nuit
Amicalement
jean marie

 

[patoq]

Bonjour le forum, bonjour Jean Marie,
Encore désolé pour ne pas avoir mis le bon fichier dès le début.
Ta procédure marche super bien, et non il n'y aura pas besoin d'autres adaptations

Merci encore infiniment pour ton aide
Cordialement
Patrice

 

[patoq]

Re,

Je regarde les résultats et quelques incohérences.....
Ex : le code 90018 en janvier 2017, je devrais avoir 27742 et dans le tableau je vois 55484 ( le double)
Pareil pour le 90122, janvier 2016 le tableau indique 123536 alors que la vrai valeur est 33248

Cordialement
Patrice

 

[gosselien]

Bonjour,

Juste 2 remarques: tu as 2 x le code 90003 dans ton onglet Analyse

Je n'ai pas tout testé, mais un tri de la feuille BDD sur code-année-mois donne des résultats diffrents que si pas triés

P.

 

[patoq]

Bonjour Gosselien,

Je sais j'ai essayé en le corrigeant , les résultats ne concordent pas cependant.

Cordialement

 

[gosselien]

Bonjour Gosselien,

Je sais j'ai essayé en le corrigeant , les résultats ne concordent pas cependant.

Cordialement

Oui bien sur mais ça peut perturber , surtout le tri qui aurait pu avoir été faits; tout comme si on filtre les ligne de BDD (pour essai) , ça ne donne pas les résultats au complet
Juste bon à savoir

 

[gosselien]

Re bonjour,

une autre manière de faire avec dictionnaire , calcul manuel et sommeprod

P.

 

[ChTi160]

Bonjour patoq
Bonjour le Fil (gosselien),le Forum
Voilà ce que j'ai modifié (ajour de S_BD=0 )

=vb]
If Tab_Resultat(1, Col) = Mois Then
         Ws_Cible.Cells(3 + LL, Col) = Ws_Cible.Cells(3 + LL, Col) + S_BD 'On additionne les Valeurs dans la cellule Cible
                S_BD = 0 'Ici on vide la variable
           GoTo suite
End If

En espérant avoir résolu le problème lol
PS : gosselien très beau travail !
Bonne fin de Journée
Amicalement
jean marie

 

[patoq]

Bonjour Jean Marie, Gosselien, le forum

Merci à vous, c'est parfait
Bon Week end
Cordialement
Patrice