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)>​

 

[TooFatBoy]

@TooFatBoy
Je me posais juste la question (rapport au Bonjour que je t'adressais dans ce douzième message)
C'est pas grave.

Oui, j'avais vu. Même à cette heure un pneu tardive j'arrive encore à ouvrir les mirettes.
Je te vois, je te lis, et parfois je te comprends, camarade.

 

[Jacky67]

Re
non, il faut trier par année en premier lieu après par trimestre

3T 2020

4T 2022

1T 2023

2T 2023

3T 2023

4T 2023

RE..
Ceci n'était pas précisé dans la demande ni démontré dans l'exemple donnée...

RE
mais ça n'a pas fonctionné si je rajoute une feuille

RE...
Aller, une dernière avant de rejoindre Morphée
Fonctionne avec feuille rajoutée vide
Un mixte JM & Jacky
Bonne nuit à tous

 

[Staple1600]

[aparté]

Spoiler

@TooFatBoy
Comme disait les Qui
"See Me, Feel Me, Touch Me, Heal Me"
J'en suis point là mais j'eusse cru que vous m'auriez claqué la bise suite à mes salutations à votre endroit.

(Une vielle habitude qui me vient de l'XLD d'avant, d'avant Xenforo, où les vieux de la vieille se saluaient mutuellement)

[/aparté]

@chaelie2015
suggestion en finissant de passer
Tu pourrais mettre tout sur une seule feuille (en ajoutant une colonne)
Et ainsi avec un TCD, tu pourrais
- ne pas avoir de doublons (ou plutôt ne pas les afficher)
- splitter en N feuilles ta base
(le tout sans VBA)

@Jacky67
Je regarderai ta nouvelle PJ demain
Moi aussi je rejoins Morphée incessamment sous peu

 

[TooFatBoy]

J'en suis point là mais j'eusse cru que vous m'auriez claqué la bise suite à mes salutations à votre endroit.

N'était-ce pas de ta part une réponse à mon "bonjour" précédent (voir #11) ?
En tous les cas la logique le voudrait.

J'essaye de ne rien claquer, pas même les portes, et j'essaye également de ne plus faire de bise depuis que j'ai chopé la COVID.

 

[Staple1600]

Bonjour @chaelie2015 ,@Jacky67 ,@TooFatBoy , le fil


Pour les curieux et les 365ièmes
(à tester sur une copie du fichier exemple, sans feuille surnuméraire)
1) Effacer le contenu de la feuille Finale avant de tester

Sub Merci_O_365()
Dim x As Worksheet, k&, st_R$, dl&, F As Worksheet: Set F = Sheets("Finale")
k = 1
For Each x In Worksheets
    If x.Name <> "Finale" Then
    st_R = st_R & x.Name & "!" & x.Range("C2", x.Cells(Rows.Count, "C").End(3)).Address & ","
    End If
Next
formule = Mid(st_R, 1, Len(st_R) - 1)
F.[A2].Formula2 = "=VSTACK(" & formule & ")"
dl = F.Cells(Rows.Count, 1).End(3).Row
F.Range("B2:B" & dl).FormulaR1C1 = "=DATE(RIGHT(RC[-1],4),CHOOSE(LEFT(RC[-1])*1,1,4,7,10),1)"
F.Range("C2").Formula2 = "=SORT(UNIQUE(B2:B" & dl & "))"
With F.Range("D2:D" & F.Cells(Rows.Count, "C").End(3).Row)
    .Formula2 = "=CEILING(MONTH(C2)/3,1)&""T ""&YEAR(C2)"
    .Font.Bold = True
    .Interior.Color = vbYellow
    .Borders.Value = 1
End With
End Sub

NB: j'ai laissé les colonnes supplémentaires pour voir les formules
(que je découvre grâce à ce fil
Merci @chaelie2015 et 365)

NB: Ceci n'est pas une solution mais un complément pour ceux qui passeront dans fil
(et qui tournent sous O365)

 

[job75]

Bonjour le fil, le forum,

Voyez le fichier joint et cette macro qui utilise la commande Consolider et trie comme demandé :

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
If Not IsNumeric(CStr([BP!D2])) Then [BP!D2] = 0 'au moins une donnée à consolider
With [A2]
    .Consolidate Array("BP!R2C3:R100C4", "RP!R2C3:R100C4", "DGD!R2C3:R100C4", "RD!R2C3:R100C4"), LeftColumn:=True 'commande Consolider
    With .CurrentRegion.Resize(, 2)
        .Columns(2).Insert xlToRight 'insère une colonne auxiliaire
        .Columns(2) = "=RIGHT(RC[-1],4)&LEFT(RC[-1],2)" 'la formule permute les nombres
        .Sort .Columns(2), xlAscending, Header:=xlYes 'tri sur la colonne auxiliaire
        .Columns(2).Delete xlToLeft 'supprime la colonne auxiliaire
    End With
End With
End Sub

A+