pointeuse extraire tous les pointages

[olive323]

Bonjour a tous

Je n'arrive pas à extraire correctement les pointages effectués sur les feuilles <> de menu
vers la feuille "RECAP".

Un de vous peut il m'aider?

deja une reponse ici mais ca fonctionne pas

https://www.excel-downloads.com/threads/extraire-toutes-les-donnees-des-feuilles-sauf-une.173279/


Cordialement
Olive323

 

[Paritec]

Re : pointeuse extraire tous les pointages

Bonjour Olive le forum
si tu nous mets un fichier je te le fais autrement, bah bonne chance
a+
papou

 

[olive323]

Re : pointeuse extraire tous les pointages

Bonjour

j'avais pas vu que mon fichier était trop lourd pour passer
Je souhaiterai a partir de la ligne 3 de toutes les feuilles du classeur sauf "menu", extraire les données vers recap sans les formules.

Cordialement

Olive323

 

[Paritec]

Re : pointeuse extraire tous les pointages

Re olive le forum,
je te fais cela dans une heure là je pars
a+
papou

 

[olive323]

Re : pointeuse extraire tous les pointages

ok merci c cool

cordialement

olive323

 

[Modeste]

Re : pointeuse extraire tous les pointages

Bonsoir Olive323, Paritec,

Je suis parti du principe que papou s'est perdu pendant sa ballade d'hier

Un essai en pièce jointe, même si je ne vois pas le lien avec l'autre discussion évoquée (sauf pour la proposition de CBernardT, qui est tout à fait adaptée ... ou alors je n'ai rien compris )
La macro s'exécute à chaque activation de la feuille "recap".

Bref, jette un oeil et dis-nous ...

 

[olive323]

Re : pointeuse extraire tous les pointages

Bonsoir a vous,

Merci pour ce retour, je test et je reviens vers vous

Bonne soirée

olive

 

[Paritec]

Re : pointeuse extraire tous les pointages

Bonjour Modeste bonjour Olive,
non pas perdu,je n'étais pas en ballade, j'étais parti travailler et j'y suis toujours
Pas grave tu as fais le boulot!!
a+
papou

 

[olive323]

Re : pointeuse extraire tous les pointages

Bonjour,

ça fonctionne impec Merci
j'ai essayé d'incorporer un debut et fin pour extraire entre 2 dates mais ca bug?? pourquoi

début = Range("f3")
Fin = Range("g3")
If Fin < Début Then MsgBox "votre date de fin est inférieure à votre date de début": Exit Sub
cordialement

olive

 

[Modeste]

Re : pointeuse extraire tous les pointages

Bonjour,

Sans fichier, ni explications sur la nature du "bug", je ne peux dire qu'une chose: "chez moi, ça fonctionne!"

 

[olive323]

Re : pointeuse extraire tous les pointages

Bbonjour

Dans la feuille recap je souhaite extraire entre 2 dates, mais ca renvoi rien.

Cordialement

olive

 

[Modeste]

Re : pointeuse extraire tous les pointages

Bonjour,

Dans cette ligne

If c.Value >= Début And c.Value <= Fin Then

... comme tu parcours la colonne A, je ne suis pas certain que tu y trouveras une valeur comprise entre tes deux bornes

c.Offset(0, 1).Value

serait plus adapté, me semble-t-il!?