macro trie date excel 2003

[LAURA]

Voici mon problème j'importe une petite base de données d'access dans une feuille Excel
avec entre autre un champ date
exemple
- Date
- Numero fiche
- Montant
Date N° F Montant
1/7/2005 1 50
1/7/2005 2 100
1/7/2005 3 250
2/7/2005 4 500
2/7/2005 5 1000


Je voudrais savoir si c'est possible faire une macro pour présenter les données dans une autre feuille par jour en séparant des dates sachant que je ne peux prévoir combien d'enregistrements par jour pour faire le tableau suivant

Date N° F Montant
1/7/2005 1 50
1/7/2005 2 100
1/7/2005 3 250

Total 1/7/2005 400

2/7/2005 4 500
2/7/2005 5 1000


Total 2/7/2005 1500

Merci

Laura

 

[LAURA15]

Bonjour
Pas grave pour le délai c'est deja très sympa de contribuer comme tu le fait a ce forum
J'espère un jour pouvoir le faire aussi mais bon , y du boulot
La base de donnée initiale est sous access et et comme il peut y avoir des rectifs de faites sur les mois précédents j'ai choisie de tranferer a chaque fois toute la table qui n'est pas je pense un monstre
A peu près 200 a 250 maxi par mois répartis par jour sur une feuille mensuelle présenté et formatée a l'avance

Le transfert d' access dans Excel et le dispatchage par macro se fera donc tous les jours après la saisie dans Access des données
Le nouveau transfert ecrasera le précédent
Les données sont quotidiennes et sur 12 mois a la fin de l'année la base est remis a zéro

Bonne journée
Laura

 

[Hervé]

Bonsoir laura

en pièce jointe ton fichier modifié pour tenir compte des mois.

J'ai ajouté les 12 onglets.

le tri ce fait donc par jour et par mois.

j'ai essayé de commenter (un peu) le code.

salut
[file name=tableauv4.zip size=27816]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tableauv4.zip[/file]

 

[LAURA15]

Merci encore Hervé ca fonctionne super
J'ai regardé merci pour les commentaires je decrypte
Ca me permet de me former pour l'instant
j'ai un peu de mal avecc cette partie mais bon j'essaie de comprendre, pas encore bien abitué a offset mais je regarde

Set feuille = Sheets(MonthName(Month(c.Offset(0, 1))))
ancfeuille = MonthName(Month(c.Offset(1, 1))) :unsure:

Mais ca m'a vraiment aidé a comprendre pas mal de choses merci encore

Bonne soirée

Laura

 

[Hervé]

Salut laura

le offset est l'équivalent en formule de decaler.

offset(ligne, colonne)

range('a1').offset(0,1)=a partir de la cellule A1 décale d'une colonne à droite donc b1
range('c4').offset(-1,-1)=decale à partir de c4 une colonne à gauche(le moins), et une ligne au dessus donc B3.


en espérant que ceci t'aide

salut