Discussion :

[arnold95]

Bonjour,

En fait j'ai un petit soucis sous VBA Excel:

J'ai un classeur avec beaucoup d'onglets et ce que je souhaiterai c'est récupérer les lignes de chaques onglets de les copier et de les coller sur la feuille nommée résultat.
En fait j ai fait la macro pour un onglet(sheet1) et faudrai que la macro fasse ce qu elle fait sur sheet1 sur toutes les autres sheets (cad décalle à l onglet de droite jusqu a la fin)

Code :

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

1
2
3
4
5
6
7
8
9
Sub macro()
Worksheets("sheet1").Select
a = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Range(Cells(1, 1), Cells(a, 12)).Select
Selection.Copy
Sheets("résultat").Select
j = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Cells(j + 1, 1).PasteSpecial xlPasteAll
End Sub

Merci bcp & Bonne journée.

Arnaud

[aalex_38]

Un exemple pour lister les toutes les feuilles :

Code :

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

1
2
3
4
5
6
7
Dim F1 As Worksheet
For Each F1 In Worksheets
'    If F1.Name = "MySheet" Then
'        Else
'            MsgBox "La feuille " & F1.Name & " existe déja", vbInformation, '"Classeur " & ThisWorkbook.Name
'    End If
Next

[DeaD78]

L'un dans l'autre, ça donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim F1 As Worksheet
For Each F1 In Worksheets
  Worksheets(F1).Select
  a = Cells(Cells.Rows.Count, "A").End(xlUp).Row
  Range(Cells(1, 1), Cells(a, 12)).Select
  Selection.Copy
  Sheets("résultat").Select
  j = Cells(Cells.Rows.Count, "A").End(xlUp).Row
  Cells(j + 1, 1).PasteSpecial xlPasteAll
Next

Ok, ok, je sers à rien

[aalex_38]

Ok, ok, je sers à rien

Mais non, mais non l'un dans l'autre c'est toujours bien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim F1 As Worksheet
For Each F1 In Worksheets
with F1 
  If not .name = "résultat" then
  a = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
  Range(.Cells(1, 1), .Cells(a, 12)).Copy 
  Sheets("résultat").cells(Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial xlPasteAll
  applicatio.cutcopymode  = false 
 end if
end with
Next

[arnold95]

Si si la preuve que tu sers t'as résolu mon problème...ms en plus le pire dans tout çà c'est que c'était simple.lol. J'ai vraiement besoin de vacances .lol.
Merci en tout cas et bonne journée.

Arnaud