copier plusieures plage defeuilles dans une seule

BAZOUZ · 25 Juin 2017

Bonjour
mon fichier comporte plusieurs feuilles , j'ai besoin d'un code qui copier va à le feuille 1 copier les plages non vides et recopie cette plage dans feuille recap ensuite feuille2 copier plage non vide et coller dans feuille recap
à la fin de la dernière ligne (la feuille recap comportera donc toutes les plage une au dessus de l-autre)
merci de votre aide

Hieu · 26 Juin 2017

Salut, comme ça ?

VB:

Sub mlk()
Set r = Sheets("RECAP")
For Each s In Sheets
If Not s.Name = r.Name Then
i = 0
    Do
    s.Range("a2:h2").Offset(i, 0).Copy
    Range("a2:h2").Offset(k, 0).PasteSpecial
    i = i + 1: k = k + 1
    Loop Until IsEmpty(s.Range("a2").Offset(i, 0))
End If
Next s
Application.CutCopyMode = False
End Sub

BAZOUZ · 26 Juin 2017

Merci
c'est genial

copier plusieures plage defeuilles dans une seule

BAZOUZ

XLDnaute Nouveau

Pièces jointes

Hieu

XLDnaute Impliqué

Pièces jointes

BAZOUZ

XLDnaute Nouveau

Discussions similaires