MACRO TRANSFERT DES LIGNES DE LA FEUILLE 1 VERS FEUILLES 2, 3 et 4

yassoux

XLDnaute Nouveau

• 10 Juin 2013

• #2

Re : MACRO TRANSFERT DES LIGNES DE LA FEUILLE 1 VERS FEUILLES 2, 3 et 4

Bonjour urbanito1,

essaye ceci :
Regarde la pièce jointe excel download 10 juin 2013 transfert de lignes d'une feuille à une autre.zip

 

Vote positif 0 Vote négatif

urbanito1

XLDnaute Occasionnel

• 10 Juin 2013

• #3

Re : MACRO TRANSFERT DES LIGNES DE LA FEUILLE 1 VERS FEUILLES 2, 3 et 4

Sub tranfert()

Sheets(1).Select
'finCol = Sheets(1).Range("A65536").End(xlUp).Row
NbLignes = Sheets(1).UsedRange.Rows.Count
Sheets(1).Range("A1:A65000").Copy (Sheets(2).Range("A1"))
Sheets(1).Range("A65001:A130000").Copy (Sheets(3).Range("A1"))
Sheets(1).Range("A130000:A" & NbLignes).Copy (Sheets(4).Range("A1"))


End Sub

OKmerci bien yassoux
je pense avoir compris globalement l'écriture
bonne après-midi
urbanito1

 

Vote positif 0 Vote négatif

yassoux

XLDnaute Nouveau

• 10 Juin 2013

• #4

Re : MACRO TRANSFERT DES LIGNES DE LA FEUILLE 1 VERS FEUILLES 2, 3 et 4

De rien !
oublie de ma part, la ligne

Code:

finCol = Sheets(1).Range("A65536").End(xlUp).Row

ne te sert à rien ...

 

Vote positif 0 Vote négatif

urbanito1

XLDnaute Occasionnel

• 10 Juin 2013

• #5

Re : MACRO TRANSFERT DES LIGNES DE LA FEUILLE 1 VERS FEUILLES 2, 3 et 4

Merci
à la prochaine
urbanito1

 

Vote positif 0 Vote négatif