XL 2013 (RESOLU) copier 4 listes dans une seule liste

[chaelie2015]

Bonsoir Forum
Je souhaite copier les 4 liste de 4 feuilles dans la feuille finale sans doublon et dans l'ordre.
Merci.

<Bon rétablissement à Gérard (alias Job75)>​

 

[Staple1600]

Bonsoir @chaelie2015
Un premier essai

Sub test()
Dim f As Worksheet
For Each f In Worksheets
If Len(f.Name) = 2 Then
Set r = f.Columns("C:C").SpecialCells(xlCellTypeConstants, 2)
Set rr = r.Offset(1).Resize(r.Rows.Count - 1)
rr.Copy Sheets("Finale").Cells(Rows.Count, 1).End(3)(2)
End If
Next
Sheets("Finale").Columns("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

Il reste le tri à faire

 

[chaelie2015]

Bonsoir @chaelie2015
Un premier essai

Sub test()
Dim f As Worksheet
For Each f In Worksheets
If Len(f.Name) = 2 Then
Set r = f.Columns("C:C").SpecialCells(xlCellTypeConstants, 2)
Set rr = r.Offset(1).Resize(r.Rows.Count - 1)
rr.Copy Sheets("Finale").Cells(Rows.Count, 1).End(3)(2)
End If
Next
Sheets("Finale").Columns("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

Il reste le tri à faire

Bonsoir JM
Merci pour la réponse, comme premier test ça fonctionne , mais il reste l'ordre .
ci joint le fichier.
a+

 

[Staple1600]

Re

@chaelie2015
Voici pour l'ordre

Sub test_B()
Dim f As Worksheet, dl&
For Each f In Worksheets
If Len(f.Name) = 2 Then
Set r = f.Columns("C:C").SpecialCells(xlCellTypeConstants, 2)
Set rr = r.Offset(1).Resize(r.Rows.Count - 1)
rr.Copy Sheets("Finale").Cells(Rows.Count, 1).End(3)(2)
End If
Next
With Sheets("Finale")
    .Columns("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
    .[B1] = "TRI"
    dl = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("B2:B" & dl).FormulaR1C1 = "=DATEVALUE(CHOOSE(LEFT(RC[-1])*1,""1/1/"",""1/4/"",""1/7/"",""1/10/"")&RIGHT(RC[-1],4))"
    .Range("A1:B" & dl).Sort key1:=.Range("B2"), Order1:=xlAscending, Header:=xlYes
    .Range("B:B").Clear
End With
End Sub

 

[Jacky67]

Bonsoir Forum
Je souhaite copier les 4 liste de 4 feuilles dans la feuille finale sans doublon et dans l'ordre.
Merci.

<Bon rétablissement à Gérard (alias Job75)>​

Bonjour,
Hello JM
Il n'y a pas de "3T 2022" dans l'exemple donné

Une autre version, mise à jour à la sélection de la feuille "finale"
Code à placer dans la feuille "finale"

Private Sub Worksheet_Activate()
    Dim Sh As Worksheet, Derlg&
    Range("a2:a" & Rows.Count).Clear
         For Each Sh In Sheets(Array("BP", "RP", "DGD", "RD"))
               Sh.UsedRange.Offset(1).Copy Cells(Rows.Count, 1).End(3)(2)
        Next
        Columns("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
       [a1].Sort Columns(1), xlAscending, Header:=xlYes
End Sub

 

[Staple1600]

Bonsoir @Jacky67

Net, concis.
J'achète ! (comme dirait le gars de la télé)


NB: T'es sûr que le tri fonctionne bien tel quel ?
(C'est pour cela que j'étais passé en mode "bouzin" )

PS: Il y avait un 3T 2022 dans le fichier exemple du message#1
Feuille RP, cellule C5

 

[Jacky67]

PS: Il y avait un 3T 2022 dans le fichier exemple du message#1
Feuille RP, cellule C5

RE..,
Ah, je n'avais pas vu qu'il avait filtrer
Alors dans mon code il faudra déboulonner avec un "ShowAllData"
Quant au tri, l'origine du code est de Job75 que j'ai dans ma boite à idées et je ne me permets pas d'en douter
Je trouve d'ailleurs que sur les nouvelles versions, le tri est une usine à gaz

 

[Staple1600]

Re

@Jacky67
Chez moi, tel quel, le tri ne se fait pas
D'où les circonvolutions dans le code du message#4

Liste finale

1T 2020

1T 2021

1T 2022

1T 2023

1T 2024

2T 2019

2T 2020

2T 2022

3T 2022

4T 2022

4T 2023

 

[Jacky67]

Re

@Jacky67
Chez moi, tel quel, le tri ne se fait pas
D'où les circonvolutions dans le code du message#4

Liste finale

1T 2020

1T 2021

1T 2022

1T 2023

1T 2024

2T 2019

2T 2020

2T 2022

3T 2022

4T 2022

4T 2023

Re..
Ben...C'est bien ce tri que veut obtenir le demandeur, non ?
Ou alors je n'ai pas compris

 

[Staple1600]

Re

@Jacky67
Voila le tri que j'obtiens
(Grâce à l'ajout de ma colonne B temporaire)
Un tri chronologique donc

Liste finale

2T 2019

1T 2020

2T 2020

1T 2021

1T 2022

2T 2022

3T 2022

4T 2022

1T 2023

4T 2023

1T 2024

 

[TooFatBoy]

Bonjour,

Re..
Ben...C'est bien ce tri que veut obtenir le demandeur, non ?
Ou alors je n'ai pas compris

Vous êtes un roi et votre code est d'une, sir, concision absolue, taillé au rasoir !

 

[Staple1600]

Bonsoir @TooFatBoy

Et quid du tri?
(voir mon précédent message)

PS: les jeux mots avec ou sans prépuce sont interdits les veilles du week-end prolongé

 

[Jacky67]

Bonjour,


Vous êtes un roi et votre code est d'une, sir, concision absolue, taillé au rasoir !

Re..
N'en jeté pas, oh ! gentilhomme, le tri sur les dates de notre ami JM est tout aussi méritoire, n'est-il pas ?
"Taillé au rasoir" aïïïe ça doit faire mal...

 

[Staple1600]

@Jacky67
Tu me rassures, sans un subterfuge (quel qu'il soit), on ne peut trier directement de manière chronologique.

Maintenant, j'attends la version all-inclusive dans l'array.

 

[Jacky67]

Maintenant, j'attends la version all-inclusive dans l'array.

Bah!!
Il y a bien
For Each Sh In ThisWorkbook.Worksheets
If Sh.CodeName <> "Feuil5" Then
Mais surtout pas
For Each f In Worksheets
If Len(f.Name) = 2 Then
Qui élimine la feuille "DGD"