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.

 

[jean marc1234]

Bonsoir le fil, le forum

jean marc1234
Désolé pour l'erreur de copier/coller qui a fait que cela fonctionnait chez moi pas chez toi.

Pour ce qui du tri par date, tu as essayé une fois la concaténation effectuée de trier en laissant tourner l'enregistreur de macros?

Sinon as-tu envisagé l'emploi d'un TCD ?

re,
les TCD ou j'ai essayer, par contre laisser tourner l'enregistreur de macros lors de la concaténation , je vois pas trop la.
Et pas de soucis pour le copier coller. cela permet de bien regarder le détail des codes.

 

[Staple1600]

Re

J'ai pas écris lors mais aprés

tu as essayé une fois la concaténation effectuée de trier en laissant tourner l'enregistreur de macros?

 

[jean marc1234]

Re

J'ai pas écris lors mais aprés

re,
autant pour moi.
Je vient d'essayer mais encore pire la.

 

[Staple1600]

Re,

@jean marc1234
Pourtant cela fonctionne, non ?
Lance la macro generer_testII sur un classeur vierge formaté comme indiqué dans le message#42
Puis lance la seconde macro

Sub generer_test_II()
Dim ArrWks, ws As Worksheet, ligne As Long
ArrWks = _
Array("ales", "arles", "bagnols", "calvisson", "grau du roi", "montpellier", "nimes", "uzes")
Application.ScreenUpdating = False
For Each ws In Sheets(ArrWks)
ws.Cells.ClearContents
With ws.Range("A3:A" & Int((Rnd * 30) + 5))
.Formula = "=(TODAY()+(ROW()*" & ws.Index & "))"
.NumberFormatLocal = "jj/mm/aaaa"
.Offset(, 1).Resize(, 10).Formula = "=" & ws.Index & "&CHAR(64+COLUMN())&ROW()"
End With
Next
End Sub

Sub consolider_Et_Trier()
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:" & .Rows.Count).ClearContents
      For Each ws In Sheets(ArrWks)
      ws.AutoFilterMode = False
          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
    With .Range("A5").CurrentRegion
    .Sort .Cells(5, 1), xlAscending, Header:=xlYes
    End With
  End With
End Sub

 

[jean marc1234]

Re,

@jean marc1234
Pourtant cela fonctionne, non ?
Lance la macro generer_testII sur un classeur vierge formaté comme indiqué dans le message#42
Puis lance la seconde macro

Sub generer_test_II()
Dim ArrWks, ws As Worksheet, ligne As Long
ArrWks = _
Array("ales", "arles", "bagnols", "calvisson", "grau du roi", "montpellier", "nimes", "uzes")
Application.ScreenUpdating = False
For Each ws In Sheets(ArrWks)
ws.Cells.ClearContents
With ws.Range("A3:A" & Int((Rnd * 30) + 5))
.Formula = "=(TODAY()+(ROW()*" & ws.Index & "))"
.NumberFormatLocal = "jj/mm/aaaa"
.Offset(, 1).Resize(, 10).Formula = "=" & ws.Index & "&CHAR(64+COLUMN())&ROW()"
End With
Next
End Sub

Sub consolider_Et_Trier()
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:" & .Rows.Count).ClearContents
      For Each ws In Sheets(ArrWks)
      ws.AutoFilterMode = False
          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
    With .Range("A5").CurrentRegion
    .Sort .Cells(5, 1), xlAscending, Header:=xlYes
    End With
  End With
End Sub

re,
bon j'ai bien créé un nouveau classeur, fais les macros dans l'ordre demander et je ne sais pas pourquoi j'ai des lignes dans le bas de la page qui se mettent en surbrillance et qui ne se trie pas.

 

[Staple1600]

Re

Comme précisé, il faut formater le classeur exemple comme décrit dans le message#42
Donc il suffit de respecter le mode opératoire et cela doit fonctionner.

 

[jean marc1234]

Re

Comme précisé, il faut formater le classeur exemple comme décrit dans le message#42
Donc il suffit de respecter le mode opératoire et cela doit fonctionner.

c'est exactement ce que j'ai fait
temps que je suis dans la fasse test sa fonctionne
quand je mets données dans les différentes feuilles sa déconne.
et si je fait la fasse test sa me supprime mes données et cela met les données bidon du test.
Je sais pas si je suis bien clair pour mes explications la. Désolé

 

[Staple1600]

Re,

@jean marc1234
Donc tu as fait ceci sur un classeur vierge ?

Dans un classeur vierge, inseres neuf feuilles et renommes les.
Une feuille nommée consolidation, puis les huit autres avec le noms des villes
Ensuite mets une ligne d'entête en ligne 5 sur le feuille consolidation
(de A5 à K5)

Puis tu as lancé la macro nommée Sub generer_test_II()
(ce qui créée des données de test avec des dates en colonne A)
et enfin tu as lancé la macro nommée Sub consolider_Et_Trier()

C'est ce que tu as strictement et assurément fait ?

 

[jean marc1234]

Re,

@jean marc1234
Donc tu as fait ceci sur un classeur vierge ?

Puis tu as lancé la macro nommée Sub generer_test_II()
(ce qui créée des données de test avec des dates en colonne A)
et enfin tu as lancé la macro nommée Sub consolider_Et_Trier()

C'est ce que tu as strictement et assurément fait ?

ha oui, strictement
et la actuellement comme je disais si je fait la macro test cela m'enlève mes données et remet les données test.
Je me demande si le problème ne vient pas de me données? J'ai revérifier mon format date , l'alignement les pages une à une pour essayer de trouver un bog. Mais je trouve pas.

 

[Staple1600]

Re,

@jean marc1234
Pour le moment, je ne parle que de test sur un fichier vierge au départ
On est bien d'accord que sur le fichier (configuré selon mes indications), la consolidation et le tri se fait bien, non?
C'est tout ce que je veux savoir en cet instant.

NB; La macro genere_test_II comme son nom l’indique ne sert qu'à générer des données bidons.
Par conséquent on ne l’exécute qu'un seule fois!

 

[jean marc1234]

Re,

@jean marc1234
Pour le moment, je ne parle que de test sur un fichier vierge au départ
On est bien d'accord que sur le fichier (configuré selon mes indications), la consolidation et le tri se fait bien, non?
C'est tout ce que je veux savoir en cet instant.

NB; La macro genere_test_II comme sont l’indique ne sert qu'à générer des données bidons.
Par conséquent on ne l’exécute qu'un seule fois!

HA pardons oui sa fonctionne

 

[Staple1600]

Re,

@jean marc1234
Donc tu as la syntaxe VBA de base pour faire ce que tu souhaites.
Il te reste juste à adapter le code selon l'agencement de tes données sur ton fichier réel.

PS: J'ai ajouté quelques infos dans l'édition de mon précédent message

 

[jean marc1234]

Re,

@jean marc1234
Donc tu as la syntaxe VBA de base pour faire ce que tu souhaites.
Il te reste juste à adapter le code selon l'agencement de tes données sur ton fichier réel.

PS: J'ai ajouté quelques infos dans l'édition de mon précédent message

je suis sur mon ordit depuis ce matin donc je vais faire une pose la .Les yeux commencent à piqués.
Je te tiendrais informer de la suite.
Encore merci et une bonne fin de soirée.

 

[jean marc1234]

bonjour staple1600
bon j'ai regarder, essayer, re essayer; j'y arrive pas.
Je suis pas informaticien et je fais ce que je peux.
Merci en tous cas pour ton aide.
Je laisse tomber pour le trie.

 

[Staple1600]

Bonjour le fil, le forum

@jean marc1234
Suggestion du samedi après-midi
Comme ce fil de discussion contient désormais plus de trois pages, tu peux peut-être créer un autre fil en ayant pris le temps de construire un fichier exemple sans données confidentielles et ne contenant que le nécessaire pour traiter ta question
(à savoir neuf feuilles, une trentaine de lignes de données sur les feuilles avec nom de ville)
(Laisse également les différentes adaptations des code VBA que tu auras faites)

PS: Tu dis que tu n'y arrives pas ?
Tu veux dire sur ton fichier réel?
(Parce que dans le message#56, tu disais que cela fonctionnait sur le test que je te proposais)