XL 2016 trie de date sur plusieurs feuilles

[jean marc1234]

bonjour tout le monde,
je sollicite une nouvelle fois de l'aide. Mon problème est le suivant.
J'ai un classeur Excel comprenant plusieurs feuille avec des entêtes de tableaux identiques.
chaque tableaux possèdes un champs date.
Je regroupe tous ces tableaux dans une feuille "concaténation"
lors de cette opération la colonne date est triée par nom de feuille et nom par date comme je le souhaiterais.
De ce fait je ne peux effectuer de regroupement de date.
J'ai 5 classeurs identiques que je voudrais regrouper pour analyser les donner.
Je joint mon classeur pour les personnes qui voudrait bien jeter un œil.
Merci d'avance.

 

[Staple1600]

Bonjour le fil, le forum

@jean marc 1234
Un petit trou de mémoire passager?

5 – La possibilité de joindre des fichiers est donnée sur ce forum. Ne pas hésiter à utiliser cette fonction, tout en veillant que les données soient bidons et donc qu’aucune donnée confidentielle, nominative ne soit dans le fichier.

Un fichier anonymisé et allégé aurait tout autant fait l'affaire...

EDITION: Petit suggestion au passage
Tu peux simplifier cette macro comme ceci

Sub effacedonnees()
Worksheets("consolidation").Rows("6:1000000").Clear
End Sub

 

[jean marc1234]

bonjour staple1600,
certainement pour le trou de mémoire, mais la il est costaud parce que je bloque complètement.

 

[Staple1600]

Re

@jean marc1234
Donc tu laisses à disposition sur un forum public ton fichier non anonymisé ?!
(Quid de la RGPD?)
https://www.cnil.fr/sites/default/files/atoms/files/bpi-cnil-guide-rgpd-tpe-pme.pdf

En attendant que mon thé infuse, une autre suggestion
(bien que tu sembles avoir zappé la première... cf la macro de mon premier message )

Sub consolider_B()
Dim ArrWks, ws As Worksheet, ligne As Long
ArrWks = _
Array("ales", "arles", "bagnols", "calvisson", "grau du roi", "montpellier", "nimes", "uzes")
Application.ScreenUpdating = False
With Worksheets("consolidation")
    .Rows("6:" & .Cells(Rows.Count, "A").End(xlUp).Row).ClearContents
    For Each ws In Sheets(ArrWks)
        ligne = ws.Cells(Rows.Count, "A").End(xlUp).Row
        ws.Range(ws.Cells(3, "A"), ws.Cells(ligne, "K")).Copy
        .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
Next ws
End With
End Sub

 

[jean marc1234]

Bonjour le fil, le forum

@jean marc 1234
Un petit trou de mémoire passager?


Un fichier anonymisé et allégé aurait tout autant fait l'affaire...

EDITION: Petit suggestion au passage
Tu peux simplifier cette macro comme ceci

Sub effacedonnees()
Worksheets("consolidation").Rows("6:1000000").Clear
End Sub

Re,
merci pour la suggestion, classeur modifié
petite question au passage .
Il y aurait t'il un moyen d'accélérer la consolidation? (très longue)

 

[jean marc1234]

Re

@jean marc1234
Donc tu laisses à disposition sur un forum public ton fichier non anonymisé ?!
(Quid de la RGPD?)
https://www.cnil.fr/sites/default/files/atoms/files/bpi-cnil-guide-rgpd-tpe-pme.pdf

En attendant que mon thé infuse, une autre suggestion
(bien que tu sembles avoir zappé la première... cf la macro de mon premier message )

Sub consolider_B()
Dim ArrWks, ws As Worksheet, ligne As Long
ArrWks = _
Array("ales", "arles", "bagnols", "calvisson", "grau du roi", "montpellier", "nimes", "uzes")
Application.ScreenUpdating = False
With Worksheets("consolidation")
    .Rows("6:" & .Cells(Rows.Count, "A").End(xlUp).Row).ClearContents
    For Each ws In Sheets(ArrWks)
        ligne = ws.Cells(Rows.Count, "A").End(xlUp).Row
        ws.Range(ws.Cells(3, "A"), ws.Cells(ligne, "K").End(xlUp)).Copy
        .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
Next ws
End With
End Sub

re,
désolé j'étais plonger dans la rubrique téléchargement
merci msieur.

 

[Staple1600]

Re

Tu as essayé la seconde macro?
Celle du message#4

 

[Staple1600]

Re

@jean marc1234
Sauf erreur de ma part, le fichier est identique au premier, non ?
Tu es sur de l'avoir changé ?

Espérons pour toi qu'un de tes concurrents dans ta région ne soit pas membre d'XLD et connecté sur le forum en ce beau dimanche d'été

EDITION: Ah je vois que le fichier a disparu
OK
Mais je ne sais toujours pas ton avis sur ma dernière macro

 

[jean marc1234]

Re

Tu as essayé la seconde macro?
Celle du message#4

Re,
je le fait en ce moment même. Sa m'indique" impossible d'exécuter la macro.
Alors que les macros sont bien activées.
Je chercher le pourquoi.

 

[Staple1600]

Re

Moi j'ai testé sur ton fichier exemple et je n'ai pas eu d'erreur
(test fait avec Excel 2003)
Les noms des feuilles doivent être strictement identiques à ceux que j'ai inscrit dans ma macro.
(même orthographe, pas d'espace dans le nom)

 

[jean marc1234]

Re

@jean marc1234
Sauf erreur de ma part, le fichier est identique au premier, non ?
Tu es sur de l'avoir changé ?

Espérons pour toi qu'un de tes concurrents dans ta région ne soit pas membre d'XLD et connecté sur le forum en ce beau dimanche d'été

EDITION: Ah je vois que le fichier a disparu
OK
Mais je ne sais toujours pas ton avis sur ma dernière macro

Il ne pourrait rien faire avec ce fichier. Je mélange différentes données avant d'envoyer quand même.
Des noms sont indiqués, pour que les personnes qui m'aide comprennes mieux.
Tu as vu la réponse concernant la deuxième macros?

 

[Staple1600]

Re

Je viens de retester
Pas d'erreur chez moi.

Prends le temps d'anonymiser ton fichier (et de l'alléger aussi)
Tu as juste cette colonne à modifier: site apporteur d'affaire
(tu mets AGENCE1 et tu recopies vers le bas)

 

[jean marc1234]

Re

Je viens de retester
Pas d'erreur chez moi.

Prends le temps d'anonymiser ton fichier (et de l'alléger aussi)
Tu as juste cette colonne à modifier: site apporteur d'affaire
(tu mets AGENCE1 et tu recopies vers le bas)

Re,
désolé je comprend pas la.
J'essaye de trouver pourquoi le code bloque chez moi.

 

[Staple1600]

Re,

C'est juste un conseil pour facilement anonymiser ton fichier
(rien à avoir avec ma dernière macro)

Pour celle-ci, les noms des feuilles sont bien identiques à ce qu'on lit dans ma macro ?
ArrWks = _
Array("ales", "arles", "bagnols", "calvisson", "grau du roi", "montpellier", "nimes", "uzes")

Quel est exactement le message d'erreur ?

PS: Pour tester, il faut juste exécuter ma seule macro
(et ne pas lancer avant la macro effacedonnees présente dans ton fichier)

 

[jean marc1234]

Re,

C'est juste un conseil pour facilement anonymiser ton fichier
(rien à avoir avec ma dernière macro)

Pour celle-ci, les noms des feuilles sont bien identiques à ce qu'on lit dans ma macro ?
ArrWks = _
Array("ales", "arles", "bagnols", "calvisson", "grau du roi", "montpellier", "nimes", "uzes")

Quel est exactement le message d'erreur ?

PS: Pour tester, il faut juste exécuter ma seule macro
(et ne pas lancer avant la macro effacedonnees présente dans ton fichier)

Re,
alors quand j'ouvre mon classeur
en premier j'ai "capture 1"
et ensuite
"capture 2"
et oui les noms sont bien identiques. rien modifié de ce coté la..