XL 2016 trie de date sur plusieurs feuilles

jean marc1234 · 24 Juin 2018

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 · 24 Juin 2018

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

VB:

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

jean marc1234 · 24 Juin 2018

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

Staple1600 · 24 Juin 2018

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 )

VB:

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 · 24 Juin 2018

Staple1600 à dit:
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

VB:

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 · 24 Juin 2018

Staple1600 à dit:
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 )

VB:

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 · 24 Juin 2018

Re

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

Staple1600 · 24 Juin 2018

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 · 24 Juin 2018

Staple1600 à dit:
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 · 24 Juin 2018

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 · 24 Juin 2018

Staple1600 à dit:
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 · 24 Juin 2018

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 · 24 Juin 2018

Staple1600 à dit:
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 · 24 Juin 2018

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 · 24 Juin 2018

Staple1600 à dit:
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..

XL 2016 trie de date sur plusieurs feuilles

jean marc1234

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

jean marc1234

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

jean marc1234

XLDnaute Occasionnel

jean marc1234

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

jean marc1234

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

jean marc1234

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

jean marc1234

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

jean marc1234

XLDnaute Occasionnel

Pièces jointes

Discussions similaires