Creer un total par semaine avec des données qui varient

[Guiguietouria]

Bonjour à tous,

alors tout d'abord desolé pour le titre mais je vous avoue que definir mon probleme dans un seul titre est un peu delicat, vous allez comprendre.

Le fichier que je vous joint comprends deux onglets : Original et Test. Ce sont deux onglets quasi identiques mais sur sur le mot "qasi" que j'ai besoin de votre aide.

En realité le vrai fichier (trop lourd pour que je vous l'envoie) comprend une cinquantaine d'onglets, mais les deux onglets que je vous envoie sont en realité des recapitulatifs de tous les autres onglets.

Dans l'onglet "original", le tableau est issue d'une macro qui affiche par jour tout les vehicules qui sont livrés par agence.
L'idée serait de creer une nouvelle macro, qui vient derriere la premiere, trier par semaine et par région le nombre de véhicules.
J'ai donc mis dans l'onglet "Test", un rendu de ce que j'aimerai obtenir.


Attention, ma demande contient neanmoins une contrainte qui je pense va nous poser plusieurs probleme /
Etant donné que c'est un fichier qui sert de recapitulatif sur 1 mois, et donc par semaine, la premiere semaine d'un mois ne comporte pas toujours 5 jours et la derniere non plus... Je sais pas trop si en terme de VBA cela soit une contrainte mais il me semblais important de le souligner.

Voila j'espere que vous comprendrez ma demande et si vous avez besoin d'informations ou si vous avez des questions n'hesitez pas..

Cordialement,

 

[JBARBE]

Re : Creer un total par semaine avec des données qui varient

Bonsoir à tous,

En cliquant sur le bouton GO !

Il est important de créer un onglet identique à l'original ici "Résultats"! (de fait changer dans la macro "Insere_Total" changer "Sheets("Resultats").Select" par le nouveau nom de l'onglet crée)

D'autre part, les lignes des régions ne doivent pas changer sous peine d'erreur !

En ce qui concerne les semaines, la macro en tient compte !

bonne soirée

 

[Victor21]

Re : Creer un total par semaine avec des données qui varient

Bonsoir, Guiguietouria, jbarbe.

Concernant les totaux horizontaux par région, Données, sous-total le fait tout seul, même avec ces satanées cellules fusionnées.

 

[gosselien]

Re : Creer un total par semaine avec des données qui varient

Bonjour,

une autre version

P.

 

[Victor21]

Re : Creer un total par semaine avec des données qui varient

Bonsoir, gosselien.

copie2, pas copie3

 

[gosselien]

Re : Creer un total par semaine avec des données qui varient

Bonsoir, gosselien.

copie2, pas copie3

oui bien vu et je râle aussi depuis longtemps contre ces cellules fusionnées

 

[Guiguietouria]

Re : Creer un total par semaine avec des données qui varient

Bonjour à tous !

Tout d'abord merci à vous pour vos réponses,

JBARBE, ta macro correspond bien à mes attentes, idem pour Grosselien.

Je vous remercie à tous les deux de m'avoir aidé !

Cordialement,

 

[gosselien]

Re : Creer un total par semaine avec des données qui varient

Bonjour à tous !

Tout d'abord merci à vous pour vos réponses,

JBARBE, ta macro correspond bien à mes attentes, idem pour Grosselien.

Je vous remercie à tous les deux de m'avoir aidé !

Cordialement,

Il y a mieux , j'en suis sur mais je n'ai pas le temps; je vais (pour le plaisir) à l'occasion tenter de faire d'une autre manière

bon week end

 

[Guiguietouria]

Re : Creer un total par semaine avec des données qui varient

Bonjour à tous,

j'ai un petit soucis avec la macro de Gosselien...

Enfait j'ai inserer deux nouveaux onglets ce qui entraine un petit probleme au niveau de la formule "Array" mais je ne sais pas ou...


Besoin d'aide svp !

Cordialement,

 

[gosselien]

Re : Creer un total par semaine avec des données qui varient

Bonjour,

personne ne peut deviner où tu as insérer et ce que ça contient, comme toujours, tu devrais mettre un exemple complet ici

P.

 

[Guiguietouria]

Re : Creer un total par semaine avec des données qui varient

Autant pour moi,

voici le fichier exemple

Cdt

 

[gosselien]

Re : Creer un total par semaine avec des données qui varient

Bonjout,

tout d'abord, il faudrait être clair sur les termes que tu emploies:
- tu dis avoir ajouté 2 onglets, hors, j'ai juste un onglet "original"
- j'avais mis des n° de semaine en haut des dates pour justement séparer par semaine , il ne sont plus là...
- j'avais enlever les fusions de cellulles et tu les remets
- le nom de la feuille est à adapter dans le code VBA
- la ligne des dates était en 4e position et je ne teste pas sa présence, donc soit tu mets tes dates en 4e, soit tu changes le code
"Lastcol = Range("XFD4").End(xlToLeft).Column" par "XFD3" ou en tous cas la ligne des dates
Le code est complet (et imparfait) à 90% , tu peux aussi chercher un peu, notamment pour les sous-totaux (qui n'est pas du vba, mais une facilité dans le menu "données" depuis des années