Fichier EXCEL de 12 000 lignes

sarah95 -  
JCB40 Messages postés 3006 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour, je souhaite savoir si avec EXCEL, il existe une formule de séparer mon fichier de 12000 lignes sur plusieurs fichiers ou onglets par 4 ou 3 et de manière équitable , au lieu de faire la manip' manuellement svp? 

d'avance merci de votre aide 

A voir également:

1 réponse

Réponse 1 / 1
JCB40 Messages postés 3006 Date d'inscription   Statut Membre Dernière intervention   464
 

Bonjour

Un exemple de code VBA (macro)  a mettre dans un module  partage de la feuille en feuilles de 2000

Option Explicit

Sub dispatcher()

    Dim i&, fin&, aa

    Application.ScreenUpdating = 0

    With Feuil1   'nom de la feuil a adapter

        fin = .Range("A" & Rows.Count).End(3).Row

        For i = 1 To fin Step 2000

            aa = .Range("A" & i & ": W" & i + 2000)

            Sheets.Add after:=Sheets(Sheets.Count)

            ActiveSheet.Name = i & " à " & i + 2000

            .Rows(1).Copy ActiveSheet.Rows(1)

            ActiveSheet.Range("A2").Resize(UBound(aa), UBound(aa, 2)) = aa

        Next i

    End With

    MsgBox "Listes Dispatchées", , "Traitement Terminé"

End Sub
0

Discussions similaires

Voxbone ? qui est-ce ?
fanfan54 -
ntrece13 -

159 réponses