Va chercher

JANO · 27 Septembre 2010

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 · 27 Septembre 2010

Re : Va chercher

Bonjour Jano, Jean_Marcel

un autre exemple de boucle :

Code:

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 · 27 Septembre 2010

Re : Va chercher

Merci à tous les deux, c'est parfait.

Bonne aprés-midi à tous🙂

Va chercher

JANO

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

JANO

XLDnaute Occasionnel

Discussions similaires

Va chercher

JANO

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

JANO

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency