Macro entre deux dates

Question

Bonjour,
          Je vous prie de bien m'aider sur un sujet concernant ma base de donnee sous excell 2003, mon souci est comment exporter les donnees de ma base selon le critere suivant : j'ai un champ date et je veux extraire mes donnees entre deux dates debut et fin dans une autre feuille afin de les exploiter.
           Cordialement.

Le Pingou · Answer

Bonjour,
Et où vous exportez les données ?

Utilisateur anonyme · Answer

Bonjour,
         Merci pour votre reponse, exporter dans une autre feuille du meme classeur.
          Cordialement.

Le Pingou · Answer

Bonjour,
Utiliser le l’outil filtrer (sur Excel 2003 :  Données / Filtre et clic Filtre automatique) que vous appliquez à la colonne date (clic sur le bouton et choisir  Personnalisé…)et ensuite copier la plage résultante et la coller sur la feuille de votre choix.

Utilisateur anonyme · Answer

Bonjour,
          Merci pour votre aide que vous m'avez donne, je sais ce truc mais je veux si possible utiliser une macro pour faciliter mon travail car j'ai besoin de ce travail chaque mois.
           Cordialement.

Le Pingou · Answer

Bonjour,
D'accord, alors voici un exemple : https://www.cjoint.com/?dkly4ro4Jo

Utilisateur anonyme · Answer

Bonjour,
           Je vous remercie infinement, c'est bien ce que je cherche. Je vais exploiter votre exemple sur ma base et apres je vous informe sur la suite. Merci bien
            Cordialement.
   
   N.B: Comment lors d'une extraire de donnee il me donne la somme totale de trois colonnes se trouvant dans ma base. Merci bien et Abientôt.

Utilisateur anonyme · Answer

Bonjour,
          Je vous transmets ce lien de ma base :
 http://www.cijoint.fr/cjlink.php?file=cj201003/cijkyveKd4.xls

           Cordialement.

Le Pingou · Answer

Bonjour,
Votre classeur contient 12 colonnes, c’est plus que les 3 dont vous parlez et de plus il ya 3 colonnes de dates. De quoi y perdre son latin pour réaliser une addition.

Utilisateur anonyme · Answer

bonjour,
 Merci pour votre reponse, je voudrai si possible faire le total de chaque colonne (P.T, Comm et P.Net) selon la macro "extraire" càd par dates (date debut et date fin) dans une autre feuille.
J'espere que mon explication est bien claire pour cette fois .
Cordialement

Le Pingou · Answer

Bonjour,
Note: je n'ai pas trouvé la colonne [P.Net] dans votre exemple.
Ajouter ces  lignes de code à la fin de la procédure juste avant le [End Sub]
dl = Sheets("Extrait").Cells((Columns(1).Cells.Count), 1).End(xlUp).Row + 1
 With Sheets("Extrait")
    .Range(.Cells(dl, 10), .Cells(dl, 12)).FormulaR1C1 = "=SUM(R[-" & dl - 2 & "]C[-1]:R[-1]C[-1])"
    .Range(.Cells(dl, 10), .Cells(dl, 12)).NumberFormat = "#,##0.00"
 End With

Utilisateur anonyme · Answer

Bonjour,
Merci JPP pour votre aide et d'importance à ce sujet.
Je m'excuse c'est pas P.Net c'est bien ça 3 colonnes (PT, Com et M. Regler), mais j'ai ajouté ce que vous m'avez dit à la fin de end sub il me donne ce message "seuls des commentaires peuvent apparaittre apres END SUB,End Function ou End Property" probleme sur la ligne "dl = Sheets("Extrait").Cells((Columns(1).Cells.Count), 1).End(xlUp).Row + 1".
merci bien de m'expliquer ces ligne de progammation car je suis novice dans ce domaine.
Cordialement.

Le Pingou · Answer

Bonjour,
Bizarre se message.
Par contre j'ai mentionné ceci :
Ajouter ces lignes de code à la fin de la procédure juste avant le [End Sub], et non pas après !
Merci de contrôler et de corriger si nécessaire!

Utilisateur anonyme · Answer

Salut JPP
 Apres l'ajout de votre programme au 1er à la fin de End Sub il me donne ce message à l'execution :
"seuls des commentaires peuvent apparaittre apres END SUB,End Function ou End Property".
Merci pour votre aide.

Le Pingou · Answer

Bonjour,
Vous relisez ceci :
Ajouter ces lignes de code à la fin de la procédure juste avant le [End Sub] 

Juste avant le [End Sub] ne veut pas dire après 

...

Utilisateur anonyme · Answer

Bonjour, 
OK merci bien
Cordialement

Utilisateur anonyme · Answer

Bonjour,
       Mais il me donne la somme de la colonne I,J et K or moi je veux les sommes des colonnes J, K et L.
Je m'excuse pour le derangement.      
Cordialement

Le Pingou · Answer

Bonjour,
Dans se cas ce n’est pas le même fichier (nombre colonne différent) que celui mis à disposition.
Vous devez corriger dans le code (10 et 12  par 11 et 13) dans les 2 lignes après With Sheets
.Range(.Cells(dl, 10), .Cells(dl, 12)). …….

Utilisateur anonyme · Answer

Bonjour,
Merci boucoup pour votre aide, il y a seulement un petit truc c'est que la somme de la colonne ne se fait pas dans la meme colonne il y a un decalage.
Cordialement.

Le Pingou · Answer

Bonjour,
Mettre votre fichier sur https://www.cjoint.com/

Utilisateur anonyme · Answer

Bonjour,
Merci bien
Voilà le lien de ma base, j aimerai bien que vous l'utilisez votre modification directement comme ça il n'aura pas de probleme. A cet occasion je vous remercie infinement pour vos efforts que vous venez me donner.
https://www.cjoint.com/?dnhhIU0AKc
Cordialement.

Utilisateur anonyme · Answer

Bonjour,
Je vous donne les criteres: pour extraire la date c'est la colonne Effet, et la somme sur les 3 colonnes (PT,Com et M.regler).
Alors l'exportation des donnees se font dans une autre feuille du meme classeur.
Esperant que j'ai bien explique mon sujet.
Je vous remercie bcp.
N.B : Est ce que cette meme base qui etait sous Excel peut se transformer en access, car j'ai utiliser l'assistant access pour importer cette base mais à la fin je n'arrive pas? Comment faire?
Cordialement

Le Pingou · Answer

Bonjour,
Merci de mettre le fichier qui contient la procédure qui ne fonctionne pas.
Je veux voir se que vous avez fait dans le but de comprendre se qui se passe.

Le Pingou · Answer

Bonjour,
Voici pour Access ; https://www.cjoint.com/?dnp3rMXny5

Utilisateur anonyme · Answer

Bonjour JPP,
Comment allez vous? Merci bien pour votre aide.
L'apres midi je vais travailler sur ce fichier et je vous repond.
Cordialement.   Abientot.

Utilisateur anonyme · Answer

Bonjour JPP,
Je suis tres heureux pour votre aide et je vous remercie infinement.
A propos de ma base, voilà j'ai appliqué ce que vous m'avez transmis mais j'ai un probleme à l'execution de la macro. Permettez moi de vous envoyer le message d'erreur affiche sur mon fichier.
Vous trouvez ci-joint mon fichier: https://www.cjoint.com/?dqhWf18vRe

Message d'erreur '9':
L'indice n'appartient pas a la selection

Sheets("Data").Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Data").Range( _
        "crit"), CopyToRange:=Sheets("Extrait").Range("A1"), Unique:=False

Cordialement.

Le Pingou · Answer

Bonjour,
Eh bien oui le message d’erreur est évident car la feuille qui contient les données à traiter se nomme [Production 2010] et non [Data]. 
Dans la procédure, il vous suffit de le remplacer par [Production 2010].
Par la même occasion sur la feuille [Production 2010] vous devez remplacer  le nom du critère (dates) par (Journee)  en cellule V1 :W1.

Utilisateur anonyme · Answer

Bonjour,
Merci pour votre collaboration, tout va bien sauf la somme sur les 3 colonnes (PT,Com et M.regler) ne sont pas operationnelles.
- la somme de la colonne J me donne SOMME(I1:J9) et meme sur les 2 colonnes
Je vous transmets mon fichier pour voir mon soucis. https://www.cjoint.com/?driCxtKWpw
Merci bien et Abientot.
Cordialement.

Le Pingou · Answer

Bonjour,
Les totaux sont corrects il s'agit bien de la somme de l'extrait des colonnes [J:L].
Ou bien vous désirez autre chose en plus de l'extrait selon date ?

Utilisateur anonyme · Answer

Bonjour, 
Si vous voyez mon fichier dans "la feuille Extrait" sur la colonne J vous trouvez SOMME(I1:I9) = 321 927.00 donc il fait le somme de la colonne I et pas J, ains que pour les colonnes K et L.
Merci bien pour votre aide.
Cordialement.

Utilisateur anonyme · Answer

Bonjour,
Permettez-moi de vous citer mon soucis : je voudrais la somme pour chaque colonne J, K ainsi que L. Tandis que cette somme fait sur la feuille Extrait est bien =SOMME(I1:I9), et moi je veux la somme de (J1:J9) sur la meme colonne J et idem pour K et L. Vous pouvez voir mon fichier que je vous ai envoye.
Esperant que j'ai bien pose mon souci.
Merci d'avance.
Cordialement.

Le Pingou · Answer

Bonjour,
Dans la procédure [Sub ExtraitProd()] le code pour la somme doit-être comme suit :
"=SUM(R[-" & dl - 2 & "]C[0]:R[-1]C[0])"

Utilisateur anonyme · Answer

Bonsoir,
Je vous  remercie infinement, c'est OK
Est ce que je peux vous poser un autre probleme?
Cordialement

Le Pingou · Answer

Bonjour,
Un essai ne coûte rien ...

Utilisateur anonyme · Answer

Bonjour,
Je vous remercie pour votre rapidité de compréhension.
J'ai un classeur de + feuilles dont l'un nommee Registre et les autres feuilles (pv1, pv2, pv3 ...) et je voudrai à la fin du mois reporter les donnees des feuilles vers la feuille Registre comme indiquer dans mon fichier ci joint https://www.cjoint.com/?dsiiRkmQhd 
 en utilisant une macro qui me facilite cette tache dans chaque feuille traitee comme ça je peux reporter les donnees de cette feuille à la fin vers la feuille Registre (pv1), apres on cree une 2 feuille (pv2) on saisie les donnees et à la fin on execute la macro pour reporter les donnees vers la feuille Registre et ainsi de suite ...
Esperant que j'ai bien explique mon soucis.
J'aimerai bien avoir votre email si possible, pour moi c'est : topabdou1@hotmail.com
RAVI DE VOUS CONNAITRE.
Cordialement

Le Pingou · Answer

Bonjour,
Dans le but de vous donner ma réponse, j'ai besoin de précisions :

1.- Dans feuille [Registre] la cellule de référence pour chaque colonne (exemple: la cellule A9 = D4 des [pv.]

2.-Que faites vous avec les feuilles [pv1, pv2, etc.] ?

3.- Dans la feuille [Registre] on insère tous les mois ou 1 feuille pour chaque mois ?

4.- Les cases à cocher sont à compléter car il manque la cellule liée (voir Format de contrôle) !

En marge, désolé, mon adresse courriel n'est pas disponible sur le forum, par contre un message privé est possible via le profil.

abdou_Guend · Answer

Bonjour JP,

Merci pour votre réponse.

1.- Dans feuille [Registre] la cellule de référence pour chaque colonne (exemple: la cellule A9 = D4 des [pv.]  OK

2.-les feuilles [pv1, pv2, etc.] seront enregistrées et éditées après archivées.

3.- Dans la feuille [Registre] on insère des feuilles se trouvant dans le classeur pour chaque mois  et on l'enregistre, pour le mois prochain on ouvre un nouveau classeur ...
4.- Les cases à cocher dans feuille registre sont à compléter, il suffit de cocher.

Cordialement

N.B : voilà mon nouveau identifiant

Le Pingou · Answer

Bonjour,
Désolé, topabdou69 n'étant pas abdou_Guend  et de plus j'ai cette indication
Cet utilisateur n'est pas membre de CommentCaMarche.net !
Donc pas de réponse.

Macro entre deux dates

37 réponses

Votre réponse

Discussions similaires

Newsletters