division d'un classeur en plusieurs feuilles

[leskal69]

Bonjour à tous
d'avance merci , j'ai un soucis , je voudrai diviser un fichier de 3500 lignes en plusieurs feuilles de 100 lignes maxi
comment fait on ?

 

[vbacrumble]

Re : division d'un classeur en plusieurs feuilles

Bonsoir


Essaie d'adapter ce code

(test ok avec un classeur d'une feuille contenant 3500 lignes sur 3 colonnes
(A,B,C) )

Sub macro()
Dim WS As Worksheet
Dim WSN As Worksheet
Dim i As Long
With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With

Set WS = Sheets(1)
For i = 100 To 3500 Step 100
WS.Cells(i - 99, 1).Resize(i, 3).Copy
Set WSN = Worksheets.Add
WSN.Name = "Feuille_" & (i / 100)
    With WSN.Range("A1")
        .PasteSpecial Paste:=8
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteFormats
        Application.CutCopyMode = False
        .Select
    End With
Next
With Application
        .ScreenUpdating = True
        .EnableEvents = True
End With
End Sub

A+

 

[leskal69]

Re : division d'un classeur en plusieurs feuilles

merci , je suis vraiment nul, et je ne sais pas comment installer la macro!! j'ai essayer ça fait un truc mais pas ce que je veux ;je voudrai separer une feuille de 3500 lignes en 35 pages de 100 lignes, ça parait simple , mais c'est super dur !!! et je n'ai rien trouvé!!!
encore merci pour ta reponse rapide

 

[vbacrumble]

Re : division d'un classeur en plusieurs feuilles

Bonjour


Je te joins un fichier de démonstration.


A l'ouverture , tu réponds OUI

et tu obtiendras 35 feuilles

PS: à l'ouverture, une macro crée 3500 lignes de données en feuil1
quand tu réponds OUI, les 3500 lignes sont divisées en 35 feuilles.

Si tu as des questions, n'hésites pas.


A+

 

[leskal69]

Re : division d'un classeur en plusieurs feuilles

Bonjour, encore merci , mais on s'approche , ça marche , mais pas tout à fait comme je le souhaoterai (je suis chiant!!!)
la division ok, mais feuille 1 total, feuille2 :100 ligne, feuille 3 :200 ligne feuille 4 :300 lignes, je voudrai feuille1 :100: feuille de101 à 200; feuille 3 de301 à 400 etc...merci

 

[ROGER2327]

Re : division d'un classeur en plusieurs feuilles

Bonjour à tous

Ainsi modifié, le code devrait fonctionner :

Sub diviser()
Dim WS As Worksheet
Dim WSN As Worksheet
Dim i As Long
With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With

[COLOR="SeaGreen"]'Set WS = Sheets(1)[/COLOR]
[COLOR="Red"]Set WS = Sheets("Feuil1")[/COLOR]
For i = 100 To 3500 Step 100
[COLOR="SeaGreen"]'WS.Cells(i - 99, 1).Resize(i, 3).Copy[/COLOR]
[COLOR="Red"]WS.Range(WS.Cells(i - 99, 1), WS.Cells(i, 3)).Copy[/COLOR]
Set WSN = Worksheets.Add
WSN.Name = "Feuille_" & (i / 100)
    With WSN.Range("A1")
        .PasteSpecial Paste:=8
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteFormats
        Application.CutCopyMode = False
        .Select
    End With
Next
With Application
        .ScreenUpdating = True
        .EnableEvents = True
End With
End Sub

Bonne journée !
ROGER2327

 

[leskal69]

Re : division d'un classeur en plusieurs feuilles

encore merci !!! vous etes des STARS!!!!! ça marche a merveilles , 2 ou 3 trucs kque je n'ai pas compris , mais bon ça marche