Copier 100 onglets sur un seul ?

JCGL

XLDnaute Barbatruc

• 16 Décembre 2011

• #2

Re : Copier 100 onglets sur un seul ?

Bonjour à tous,

Es si tu déposais l'exemple d'un onglet ?

A + à tous

 

Vote positif 0 Vote négatif

K

kartouf

Guest

• 16 Décembre 2011

• #3

Re : Copier 100 onglets sur un seul ?

voici le fichier,
le but est de mettre toutes les infos des trois onglets (sous la trame jaune) sur le premier.
Attention ce fichier est un exemple, le vrai fichier comporte beaucoup plus d'onglets.
Merci

 

Pièces jointes

• exemple.xls

  36 KB · Affichages: 114
• exemple.xls

  36 KB · Affichages: 129
• exemple.xls

  36 KB · Affichages: 136

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 16 Décembre 2011

• #4

Re : Copier 100 onglets sur un seul ?

bonjour kartouf ,JCGL🙂🙂🙂🙂🙂🙂
je pense que tu as pas bien cherche sur le forum c'est vraiment "beaba"
je profite pour saluer mon voisin JCGL🙂🙂🙂🙂🙂🙂
qui as du sortir les skis aujourd'hui😀😀😀😀
gros bisous JCGL🙂🙂🙂
a + leti

 

Dernière édition: 16 Décembre 2011

Vote positif 0 Vote négatif

K

kartouf

Guest

• 16 Décembre 2011

• #5

Re : Copier 100 onglets sur un seul ?

Bien evidement que j'ai cherché sur le forum, certains sujets sont proches du mien, mais pas identique, du coup je pose ma question.
bise également 😉

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 16 Décembre 2011

• #6

Re : Copier 100 onglets sur un seul ?

Bonjour à tous,

Peux-tu essayer en associant ce code à un bouton :

Option Explicit

Sub Regroupement()
Dim X%

For X = 1 To Sheets.Count
If Sheets(X).Name <> "Global" Then
Sheets(X).Range("A3:F" & Range("A65536").End(xlUp).Row + 1).Copy Sheets("Global").Range("A" & (Range("A65536").End(xlUp).Row) + 1)
End If
Next X
End Sub

Cliquez pour agrandir...

A + à tous

Edition : Salut Titia... Pas de ski aujourd'hui... J'avais école.. Mais demain si la tempête annoncée ne gène pas trop. Plein de bisous.

 

Dernière édition: 16 Décembre 2011

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Décembre 2011

• #7

Re : Copier 100 onglets sur un seul ?

Bonsoir à tous, JCGL 😉 , leti 😉


Une autre façon de faire
(qui doit effectivement trainer dans des fils de discussion ou j'ai jadis pondu le même genre de code...)

Code:

Sub a()
Dim s As Worksheet, p As Range, dl&, j&
j = 1
With Sheets("global")
    For Each s In Worksheets
        If Not s.Name Like "global" Then
        Set p = s.Range("A3:F" & s.[A65536].End(xlUp).Row)
        dl = .[A65536].End(xlUp).Row + j
        Cells(dl, "A").Resize(p.Rows.Count, 6).Value = p.Value
        Set p = Nothing
        j = j + 1
        End If
    Next s
    .Range("A2:A10000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub

PS:
avantage: plus rapide que d’utiliser le clipboard
désavantage: on perds le format (mais normalement une base de données devrai être "raw format", mais ceci est une autre histoire)

 

Dernière édition: 16 Décembre 2011

Vote positif 0 Vote négatif

K

kartouf

Guest

• 23 Mars 2012

• #8

Re : Copier 100 onglets sur un seul ?

Bonjour,
Je reviens vers car j'aimerai abuser de votre gentillesse et de votre savoir faire ...
Bonjour à tous,

Mais je m'aperçois que ce code ne prend pas en compte le fait que si une ligne est vide alors on passe à l'onglet suivant...
J'aimerai si possible copier toutes les données même celle qui se trouve après une ligne vide.

Dans mon fichier il y a l'onglet "global" qui est censé recevoir toutes les données des onglets 01, 03, 04.
mais quand on applique le code, vous voyez que la ligne 8 de l'onglet 03 n'est pas prise en compte idem pour la ligne 7 de l'onglet 04.
Mais étrangement la ligne 7 de l'onglet 01 est bien copier malgré les espace qui la précède.

Merci pour votre aide.

 

Pièces jointes

• help.xls

  71 KB · Affichages: 40
• help.xls

  71 KB · Affichages: 43
• help.xls

  71 KB · Affichages: 45

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 23 Mars 2012

• #9

Re : Copier 100 onglets sur un seul ?

Bonjour à tous,

Utilise le code de l'ami Stapple (#7), il avait tout prévu.

A + à tous

 

Vote positif 0 Vote négatif