Macro Copier Ligne sur différente page

Bonjour Dieu Excel,

J'ai besoin d'aider et je suis sur que tu pourras m'aider.

Dans la feuille 1 je possède tout un listing (classé par ligne de données) et je souhaite mettre toute ces lignes dans des pages avec une ligne par page ainsi nous obtenons la chose suivante:

Ligne 2 de la feuille 1 va dans la L2 de la feuille 2, Ligne 3 de la feuille 1 va dans L2 de la feuille 3.. Ainsi de suite jusqu'a 200. Est ce possible de faire une Macro qui me permet de faire ?

Je vous remercie !

Amicalement

Bonjour aurelien36,

Je t'ai fabriqué la macro suivante :

Sub Ventile()

Dim LigneSup As Byte, Lig As Byte

'Détermination du nombre de lignes maximum de la colonne 1
'---------------------------------------------------------
Sheets("Feuil1").Select
Range("A2").Select

LigneSup = Range("A65536").End(xlUp).Row

'Ecriture sur les différentes feuilles
'-------------------------------------
For Lig = 2 To LigneSup
    Range(Cells(Lig, 1), Cells(Lig, 256)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets(Lig).Select
    Rows("2:2").Select
    ActiveSheet.Paste
    Range("A3").Select

    Sheets("Feuil1").Select
Next Lig

    Range("A1").Select
    Application.CutCopyMode = False

End Sub

Je me suis arrêté à 15 onglets. Tu peux essayer d'aller jusqu'à 200 mais attention, il existe sûrement une limite Excel pour le nombre d'onglets que l'on peut ouvrir. Je ne la connais pas !

Bonjour à tous,

Autre solution

Sub CopieLigne()
'Macro par Claude Dubois pour "aurelien36" Excel-Pratique le 25/07/10
Dim Lg%, i%, Sh%
    Lg = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Sh = Worksheets.Count
    Application.ScreenUpdating = False
        With Sheets(1)
            For i = 2 To Lg '200
                If i > Sh Then
                    Sheets.Add After:=Sheets(Sheets.Count)
                    .Rows(i).Copy Destination:=ActiveSheet.Rows(2)
                    Sh = Sh + 1
                Else
                    .Rows(i).Copy Destination:=Sheets(i).Rows(2)
                End If
                Sheets(i).Name = "Ligne" & i
            Next i
        End With
    Sheets(1).Activate
End Sub

si besoin, on peut gérer les lignes vides

Amicalement

Claude

Merci Marmotte ! effectivement après 15-16 Excel veut plus rien entendre Et Merci Claude, dans ce cas la cela s'arrête à 6, donc y-a t-il un moyen d'arriver à mes 189 pages ? Sachant que je peux créer les pages avant ça va vite pour créer des pages.

Bonjour,

dans ce cas la cela s'arrête à 6, donc y-a t-il un moyen d'arriver à mes 189 pages

ça s'arrête à 6 parce que la dernière ligne occupée de la Feuil1 est 6

Si tu renseigne 100 lignes, tu auras 100 onglets

c'est pourquoi je parlais de lignes vides (à éviter)

Amicalement

Claude

MAGIQUE !!!!!!! ça Marche Merciiiiiiii

Si Ok, prends le bon réflexe de solder le poste, c'est ici.