Discussion :

[Stargate SG1]

Bonjour
après mon précédent post ou je devais transférer des feuilles d un classeur vers un autre, j ai une nouvelle question.

Toutes mes feuilles ainsi transférer contiennent la même info sous le même format (donc un même tableau).

Je voudrais réunir toutes ces infos dans une seule feuille.

Je voudrais donc créer une boucle qui lise le nom de mes feuilles et transfert ce tableau dans un unique tableau.

Merci

[Qwazerty]

SAlut
1)Tu fais une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For x = 2 a ... nombre de feuil

, si tu souhaite supprimer les feuil en meme temps part en sens inverse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For x = nombre de feuil downto 2

2)Tu selectionnes la feuil, ou tu pointe simplement dessus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sheets(x).Select
'ou
With Sheets(x)
[...]
End With

3)tu copie le contenu en utilisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .range("A2:Y" + .range("Y1").End(xlDown)).copy ' je concidere que tu as des entete de colonne et que tu utilise le With dans l'etape 3)

4)Tu retournes dans ta feuil "cumul" (ou tu pointe juste)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets("Cumul").Range("A1").End(xlDown).Offset(1,0).Past

J'ai pas fait le teste mais ca doit pas etre tres loin du compte
A++
Qwaz

[Stargate SG1]

Merci

voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim Ws As Worksheet
 
    'Boucle sur toutes les feuille de calcul du classeur.
 
    For Each Ws In ThisWorkbook.Worksheets
 
        If Ws.Name = "Synthèse" Or Ws.Name = "menu" Then GoTo fin
 
        Sheets(Ws.Name).Select
 
        Range("A1").Select
        Selection.CurrentRegion.Select
        Selection.Copy
        Sheets("Synthèse").Select
        Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Selection.Insert Shift:=xlDown
fin:
 
    Next Ws

[Qwazerty]

Re
Si tu le souhaite voila ta fonction un peu "amelioré", disons plutot qu'elle est allegée un peu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Amelioration()
Dim Ws As Worksheet
 
    'Boucle sur toutes les feuille de calcul du classeur.
 
    For Each Ws In ThisWorkbook.Worksheets
        If Not (Ws.Name = "Synthèse" Or Ws.Name = "menu") Then
            Sheets(Ws.Name).Range("A1").CurrentRegion.Copy
            With Sheets("Synthèse").Range("A1")
                .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
                .Insert Shift:=xlDown
            End With
        End If
    Next Ws
End Sub

A l'affichage tu ne naviguera plus dans les different sheet et les plage ne se selectionneront plus.

[Edit]Pas mal du tout le CurrentRegion, je note ca dans un quoi de ma tete ca peut etre tres pratique! Donc merci a toi[/Edit]
A++
Qwaz

[Stargate SG1]

Merci pour l'amélioration