(RESOLU par ST007) Rassembler plusieur onglet dans une seule onglet selon l'ordre

S

st007

XLDnaute Barbatruc

• 14 Décembre 2015

• #2

Re : Rassembler plusieur onglet dans une seule onglet selon l'ordre chrono

Bonjour,

la méthode de copier toutes les lignes des 4 onglet pour laquelle la colonne U est renseigné
coller tout à la suite dans l'onglet 5
puis trier en fonction de la colonne U
est-elle envisageable ?

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 14 Décembre 2015

• #3

Re : Rassembler plusieur onglet dans une seule onglet selon l'ordre chrono

Bonjour stoo7
Merci pour ce éclaircissement
SALUTATIONS

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 14 Décembre 2015

• #4

Re : Rassembler plusieur onglet dans une seule onglet selon l'ordre chrono

Dag,

Voor de copy
dans un module standard et activé depuis la feuille "Niveau5"

Code:

Sub consolide_ongletsNomOnglet2()
   Sheets("Niveau5").[A2].CurrentRegion.Offset(1, 0).Clear
   For Each s In Array("Niveau1", "Niveau2", "Niveau3", "Niveau4")
      Nlig = Sheets(s).[U65000].End(xlUp).Row - 1
      Ncol = Sheets(s).[A2].CurrentRegion.Columns.Count
      [U65000].End(xlUp).Offset(1, Ncol).Resize(Nlig, 1).Value = Sheets(s).Name
      [U65000].End(xlUp).Offset(1, -20).Resize(Nlig, Ncol).Value = _
      Sheets(s).[A3].Resize(Nlig, Ncol).Value
   Next s
End Sub

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 14 Décembre 2015

• #5

Re : Rassembler plusieur onglet dans une seule onglet selon l'ordre chrono

Re
encore une fois merci ,mais les Numéro dans la feuille Niveau5 ne sont ordonnées dans la colonne U
A+

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 14 Décembre 2015

• #6

Re : Rassembler plusieur onglet dans une seule onglet selon l'ordre chrono

re,

Dans ce fichier, l'onglet "Niveau5" actif, exécuter la macro "consolide_ongletsNomOnglet2"

Bonus en colonne AY, le nom de l'onglet d'où provient la ligne

Fonctionne comme vous le souhaitiez ?

 

Pièces jointes

• CHARLIES RASSEMBLER LES TABLEAUX DANS UN SEUL.xlsm

  228.9 KB · Affichages: 36
• CHARLIES RASSEMBLER LES TABLEAUX DANS UN SEUL.xlsm

  228.9 KB · Affichages: 42

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 15 Décembre 2015

• #7

Re : Rassembler plusieur onglet dans une seule onglet selon l'ordre chrono

Bonjour st007
super....merci c'est exactement ce que je cherchais
Mon souci est résolut
Salutations

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 15 Décembre 2015

• #8

Re : (RESOLU par ST007) Rassembler plusieur onglet dans une seule onglet selon l'ord

Re
juste une petite remarque ( Question) : pourquoi il y a de décalage dans la colonne AY (cellule en plus a la fin) ??
MERCI

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 15 Décembre 2015

• #9

Re : (RESOLU par ST007) Rassembler plusieur onglet dans une seule onglet selon l'ord

Il y avait un cheveux sous ma souris .....

Dans la macro, corrigez
Nlig = Sheets(s).[U65000].End(xlUp).Row - 2 (moins deux car une ligne vide, et une ligne d'en-tête)
de plus,
Sheets("Niveau5").[A2].CurrentRegion.Offset(1, 0).Clear
supprime les données de la feuille "Niveau5" A3:AD du nombre de lignes remplies en colonne U

le nom des feuilles étant en colonne AY, cette colonne ne s'efface pas.

le currentregion considère la dernière colonne remplie en ligne 2 donc AD
vous pouvez selon votre vrai fichier
- placer un espace en AE2:AY2

 

Vote positif 0 Vote négatif