Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Solution
Re

@chaelie2015
Voici pour l'ordre
VB: 
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
Trier par date Trier par votes
Bonsoir @chaelie2015
Un premier essai
Code: 
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
 
Vote positif 0 Vote négatif
Bonsoir JM
Merci pour la réponse, comme premier test ça fonctionne , mais il reste l'ordre .
ci joint le fichier.
a+
 

Pièces jointes

Vote positif 0 Vote négatif
Re

@chaelie2015
Voici pour l'ordre
VB: 
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
 
Vote positif 0 Vote négatif
Solution
chaelie2015 à dit:
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)>​

Cliquez pour agrandir...
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"
VB: 
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
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Staple1600 à dit:
PS: Il y avait un 3T 2022 dans le fichier exemple du message#1
Feuille RP, cellule C5
Cliquez pour agrandir...
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 ☣️
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
Microsoft 365 Actualiser formules matricielles
Réponses
3
Affichages
100
Standpi
S
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
693
TooFatBoy
B
  • Question Question
XL 2019 Conserver les formules qui sont enregistrées dans des cellules
Réponses
8
Affichages
328
Phil69970
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
376
Phil69970
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
350
spike29
S
  • Question Question
XL 2021 Déclaration de variables à partir d'une liste de noms
Réponses
8
Affichages
381
PMG
  • Résolu(e)
Microsoft 365 👉 Listes déroulantes dépendantes d'une seule colonne
Réponses
1
Affichages
188
3xceln4ute
  • Résolu(e)
Microsoft 365 Si contient telle liste de mots, colorer en bleu, sinon autre liste en vert, autre en violet..., etc.
2
Réponses
17
Affichages
444
anthoYS
B
  • Résolu(e)
XL 2013 Regrouper des listes de noms et prénoms
Réponses
7
Affichages
655
Birobi
B
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
270
fenec
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
267
job75
J
  • Résolu(e)
XL 2021 Aide code VBA - à partir de deux listes, créer une base de donnée
2
Réponses
22
Affichages
1 K
merinos-BernardEtang
F
  • Question Question
XL 2016 tableaux xl
Réponses
12
Affichages
242
TooFatBoy
Y
  • Résolu(e)
XL 2016 4 Messages dans des formules différentes à imbriquer dans une seule formule SI.est vide.ET.ET
Réponses
6
Affichages
117
YGU1
Y
E
  • Résolu(e)
Autres Doublon dans ComboBox et Trie
2 3
Réponses
35
Affichages
2 K
ChTi160
B
  • Question Question
Mise à jour d’un tableau
Réponses
8
Affichages
333
belhoucine dine
B
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
694
AtTheOne
J
  • Question Question
XL 2016 Bon de commande depuis un liste.
Réponses
14
Affichages
410
Dranreb
N
  • Question Question
Microsoft 365 Choix d'ouverture d'une feuille
Réponses
6
Affichages
170
mapomme
M
  • Résolu(e)
Microsoft 365 Chargement table vba dans onglet
Réponses
8
Affichages
276
Mongo
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…