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

copier plusieures plage defeuilles dans une seule

BAZOUZ

XLDnaute Nouveau

Pièces jointes

Hieu

XLDnaute Impliqué

Pièces jointes

BAZOUZ

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency