Va chercher

[JANO]

Macro cumul onglet

Bonjour à tous,


j'ai une macro qui va chercher des infos dans toutes les feuilles (mise à part le feuil Objectif & autres) et colles les infos dans l'onglet cumul.

afin d'eviter les codes de 3kms, j'aimerais plutot lui dire "fait tous les onglet sauf Objectif & autres.

pouvez vous me donner une piste de départ.

Sub va_chercher()

Application.ScreenUpdating = False


Sheets("cumul").Select
Columns("A:A").Select

Range("A65536").End(xlUp).Offset(1, 0).Select


Sheets("Feuil1").Select
Range("M9:U20").Select
Selection.Copy
Sheets("Cumul").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Columns("A:A").Select

Range("A65536").End(xlUp).Offset(1, 0).Select


Sheets("Feuil2").Select
Range("M9:U20").Select
Selection.Copy
Sheets("Cumul").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Columns("A:A").Select

Range("A65536").End(xlUp).Offset(1, 0).Select

Sheets("Feuil3").Select
Range("M9:U20").Select
Selection.Copy
Sheets("Cumul").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Columns("A:A").Select

Range("A65536").End(xlUp).Offset(1, 0).Select

End Sub


merci

 

[Pierrot93]

Re : Va chercher

Bonjour Jano, Jean_Marcel

un autre exemple de boucle :

Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name <> "Feuil1" And ws.Name <> "Feuil2" Then
        ws.Range("A1:A3").Copy Destination:=Sheets("Feuil1").Range("A65536").end(XlUp)(2)
    End If
Next ws
End Sub

bon après midi
@+

 

[JANO]

Re : Va chercher

Merci à tous les deux, c'est parfait.

Bonne aprés-midi à tous🙂