Fichier EXCEL de 12 000 lignes Fermé

Question

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

JCB40 · Answer

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

Fichier EXCEL de 12 000 lignes

1 réponse

Discussions similaires