urbanito1 XLDnaute Occasionnel 10 Juin 2013 #1 Bonjour le forum j'ai un fichier excel 2007 avec feuille 1 171803 lignes je cherche une macro pour transférer vers les feuilles 2 , 3 et 4 à mon niveau je suis incapble de le réaliser merci pour le coup de mains, fichier en annexe urbanito1 Pièces jointes excel download 10 juin 2013 transfert de lignes d'une feuille à une autre.xlsx 11.7 KB · Affichages: 55
Bonjour le forum j'ai un fichier excel 2007 avec feuille 1 171803 lignes je cherche une macro pour transférer vers les feuilles 2 , 3 et 4 à mon niveau je suis incapble de le réaliser merci pour le coup de mains, fichier en annexe urbanito1
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
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
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
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
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
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 ...
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
Re : MACRO TRANSFERT DES LIGNES DE LA FEUILLE 1 VERS FEUILLES 2, 3 et 4 Merci à la prochaine urbanito1