Renvoi de données textes à travers divers feuillets

Bonjour à tous,

J'espère que vous pourrez m'aider sur le problème suivant (j'ai parcouru les sujets antérieurs mais je ne crois pas avoir trouvé la même question) :

Voilà, je travaille sur plusieurs dossiers, et je dois noter le temps passé sur chaque dossier, quotidiennement. Je dois avoir un tableau avec tout ce que j'ai fait, par journée (quel que soit le dossier), mais aussi des tableaux récapitulatifs de tout ce que j'ai fait, par dossier.

Plus concrètement, voici un exemple :

Feuillet 1 : je rentre chronologiquement, ligne par ligne, ce que je fais, du style

06/04/2008 : Dossier SPOTY - réponse au client - 1h

06/04/2008 : Dossier TCHOUK - appel et recherches de bdd - 2h

07/04/2008 : Dossier GROUIK - rangement dossier et archivage - 2,5h

07/04/2008 : Dossier SPOTY - relance fournisseurs - 0,5h

Feuillet 2 SPOTY : dès que j'ai rentré une ligne dans mon feuillet 1 avec la référence SPOTY, mon tableau récapitulatif reprend ces lignes automatiquement

je n'aurais donc pas besoin, à la fin de chaque journée, de copier coller mes tâches faites dans le dossier SPOTY, les 06/04/2008 et 07/04/2008, du feuillet 1 vers le feuillet 2

De même pour le feuillet Dossier TCHOUK et le feuillet dossier GROUIK

voyez-vous ce que je veux dire ? est-ce qu'une telle manip existe....qui ne soit pas trop compliquée pour une novice d'excel comme moi ?

merci beaucoup par avance à ceux qui voudront bien m'aider sur ce problème, ou m'indiquer des renvois utiles vers d'autres sujets où une question analogue a été résolue

Bonjour,

regarde le fichier joint

Une petite explication dans le fichier

Le code :

Sub mise_a_jour()
Dim plg As Range, cel As Range
Application.ScreenUpdating = False
Set plg = Sheets("Base").Range("A1:D" & [A65536].End(xlUp).Row)
plg.Name = "base"
[H1] = [B1]
Application.DisplayAlerts = False
For Each sh In Sheets
    If sh.Name <> "Base" And sh.Name <> "ref" Then sh.Delete
Next sh
Range("B1:B" & [B65536].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Range("H1"), Unique:=True
For Each cel In Range("H2:H" & [H65000].End(xlUp).Row)
    Sheets("ref").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = cel
    Sheets("Base").[H2] = cel
    Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Base").Range( _
                "H1:H2"), CopyToRange:=Range("A1:D1"), Unique:=False
Next cel
Sheets("Base").Select
Range("H1:H" & [H65536].End(xlUp).Row).ClearContents
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

https://www.excel-pratique.com/~files/doc/delina_v1.zip

salut felix !

merci beaucoup pour ta réponse, je vais étudier ça ce soir et me permettre de revenir sur le forum demain si je n'ai pas reussi a mettre en place tes explications

Bonsoir à tous,

Salut felix.

delina, Une appli que j'ai adapté à ton besoin.

çà peut évoluer et rechercher par date (par exemple)

amicalement

Claude.

bonjour forum et delina,

felix, vu ton MP.

avec total heures de la semaine en cours.

https://www.excel-pratique.com/~files/doc/MIi7rbase_delina2.xls

amicalement

Claude.

PS: problème sur formule (heures/semaine) en cours.

re,

Problème résolu

https://www.excel-pratique.com/~files/doc/base_delina4.xls

à tester.

Claude.

génial ! merci beaucoup pour le temps que vous m'avez accordé !

je n'ai pas eu le temps de commencer à m'en servir aujourd'hui (je suis arrivée au bureau ce matin à 8h et je n'ai toujours pas fini ce que j'ai à faire ) mais dès demain je m'y attaque

Bonjour au forum et delina,

Sur cette version, j'ai automatisé la gestion des listes,

et ajouté la récap du mois (çà peut servir)

https://www.excel-pratique.com/~files/doc/pointage_heures.xls

amicalement

Claude.