Rapport de message :*
 

Re: Copier plages de cellules en VBA et les coller sur la même feuille

Titre du sujet : Re: Copier plages de cellules en VBA et les coller sur la même feuille
par Dan le 05/01/2011 18:09:13

Bonsoir,

Voici un code à placer dans un module et lui associer éventuellement un bouton.


Sub test()
'Macro Dan pour Fenix le 05/01/2010
Dim cel As Range
apllication.ScreenUpdating = False
For Each cel In Range("G9:K9")
    With Worksheets(CStr(cel))
            .Select
            .Range("E10:E" & Range("E" & Rows.Count).End(xlUp).Row).Copy _
                Worksheets("synthèse").Cells(cel.Row + 1, cel.Column)
    End With
Next
Worksheets("synthèse").Select
End Sub
Amicalement

Edit dan : Afin que le code fonctionne, veille à ce que les mots "extrait 1", etc dans ta feuille synthèse (cellule G9 à K9) soit exempt des guillemets.