Discussion :

[Celana]

Bonjour,

J'ai un fichier excel contenant plusieurs feuilles différentes, avec des noms différents contenant du texte et des tableaux de données.
J'ai trouvé une macro, comme suit, qui fonctionne bien pour regroupé toutes les feuilles d'un classeur sur une nouvelle feuille dans le même classeur.

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
Option Explicit
Sub test2()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "recap" Then
Application.ScreenUpdating = False
ws.Activate
Range("A1:" & [a1].SpecialCells(xlCellTypeLastCell).Address).Copy
Sheets("Rapport_final").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next ws
End Sub

Ce que j'aimerai, c'est la même chose MAIS avoir le choix dans les feuilles que je souhaite "fusionner".
Savez vous si cela est envisageable?
Merci d'avance pour votre aide.
Cordialement

NB : Je précise que mes notions en macro sont proche du néant

[kiki29]

Salut, la réponse est oui. De façon triviale, il y a sans doute d'autres façons de procéder, par exemple en créant sur une feuille "Param" autant de checkboxes avec le nom des feuilles auxquelles elles se référent puis via une macro passer en revue l'état de ces checkboxes ?

[Philippe Tulliez]

Bonjour,
Si tes listes de données se trouvant sur plusieurs feuilles ont le même nombre de colonnes et les étiquettes de colonnes de même orthographe, une solution dans cette contribution Regrouper plusieurs feuilles sur une autre. (2003-2010)

[Celana]

Merci pour vos réponses rapide

@Philippe : Merci, j'avais vu le sujet. J'ai jeté un coup d'oeil au fichier démo, c'est vraiment super. Malheureusement, mon fichier n'est pas un tableau unique. Il faudrait que ca fasse la même chose pour la selection de feuille, mais qu'il fasse uniquement un copier/coller des feuilles les unes a la suite des autres.

@Kiki29 : Je comprends dans le fonctionnement ce que tu veux dire. Par contre pour la réalisation, il va me falloir un peu d'aide

[casefayere]

Bonjour,
et si adaptais ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test2()
Dim ws As Worksheet
Dim x As Integer
Dim choixfeuil
choixfeuil = Array(Sheets("Feuil1"), Sheets("Feuil3"), Sheets("Feuil6"))
For x = 1 To UBound(choixfeuil)
  Set ws = choixfeuil(x)
  ws.Range("A1:" & [a1].SpecialCells(xlCellTypeLastCell).Address).Copy Sheets("Rapport_final").Range("A" & Sheets("Rapport_final").Rows.Count).End(xlUp).Offset(1, 0)
  Application.CutCopyMode = False
Next x
End Sub

[Celana]

Bonjour casefayere,

J'aimerai bien l'adapté, mais je n'ai pas de notion de VBA.

[casefayere]

je ne suis plus chez moi et une fete se prépare, donc il va falloir être patiente, je renverrai le code avec ses explications, mais pas avant demain

bonne soirée

[kiki29]

Salut, voir ici , le principe avec les CheckBoxes est le même ( impression de x feuilles parmi n en pdf )
Code que tu pourras rapproché, pour sa partie création liste des feuilles sélectionnées, de celui de Dominique pour le copier/coller.

Bref qqch comme ceci ( pas testé )

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Explicit
Option Base 1
 
Sub Recap()
Dim ArWsh() As String
Dim i As Long, n As Long
Dim Coll As Collection
Dim Ws As Worksheet
Dim WsDest As Worksheet
 
    Application.ScreenUpdating = False
    Set Coll = New Collection
    With Sheets("Param")
        If .CheckBoxes("chkFeuil1").Value = 1 Then Coll.Add "Feuil1"
        If .CheckBoxes("chkFeuil2").Value = 1 Then Coll.Add "Feuil2"
        If .CheckBoxes("chkFeuil3").Value = 1 Then Coll.Add "Feuil3"
        If .CheckBoxes("chkFeuil4").Value = 1 Then Coll.Add "Feuil4"
        If .CheckBoxes("chkFeuil5").Value = 1 Then Coll.Add "Feuil5"
        If .CheckBoxes("chkFeuil6").Value = 1 Then Coll.Add "Feuil6"
        If .CheckBoxes("chkFeuil7").Value = 1 Then Coll.Add "Feuil7"
        If .CheckBoxes("chkFeuil8").Value = 1 Then Coll.Add "Feuil8"
        If .CheckBoxes("chkFeuil9").Value = 1 Then Coll.Add "Feuil9"
        If .CheckBoxes("chkFeuil10").Value = 1 Then Coll.Add "Feuil10"
    End With
 
    n = Coll.Count
    ReDim ArWsh(n)
    For i = 1 To n
        ArWsh(i) = Coll(i)
    Next i
 
	'........ code de Dominique pour le copier/coller
    Set WsDest = Sheets("Rapport_final")
    WsDest.Cells.Clear
    For i = 1 To UBound(ArWsh)
        Set Ws = Worksheets(ArWsh(i))
        Ws.Range("A1:" & [A1].SpecialCells(xlCellTypeLastCell).Address).Copy _
                WsDest.Range("A" & WsDest.Rows.Count).End(xlUp).Offset(1, 0)
        Application.CutCopyMode = False
    Next i
 
    Erase ArWsh
    Set Coll = Nothing
    Application.ScreenUpdating = True
End Sub

[Celana]

Merci beaucoup kiki29, cela m'a l'air top.
Je testerais tout cela, pas avant Lundi je pense. Je reviens vers toi pour tout problème.

Passez tous un bon réveillon!! Et Bonne année 2015!!

[Celana]

Bonjour,

Encore meilleurs vœux a tous pour cette nouvelle année.

Si je comprends bien, je crée une feuille "Param" dans laquelle je met des checkbox (autant que j'ai de feuille).
Ensuite j'aurais juste a les cocher et lancer la macro.

Le souci c'est que je ne sais pas faire pour les checkbox. Que dois je faire quand j'en crée une? Je leur donne le nom chkFeuil1....?
A la place de Feuil1 dans le code je met le nom de mes onglets?

Désolé je suis vraiment novice......

Merci d'avance

[kiki29]

Salut, en PJ un échantillon.