Fichier EXCEL de 12 000 lignes
JCB40 Messages postés 3061 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
1 réponse
-
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
