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!?