[XL-2003] Si nombre atteint, continu sur une nouvelle feuille

[dorko45]

Bonjour à tous,

Je suis débutante en VBA Excel.
Je travaille actuellement sur une macro qui va chercher des infos dans un fichier .XML et les mets en forme dans excel.

Le resultat final comporte plusieurs centaines de lignes.
Je souhaiterais donc que la macro écrive les 200 premieres lignes sur la page active puis continue le traitement des lignes restantes dans une nouvelle page.

Malheureusement, pour le moment la macro me crée bien une autre feuille mais écrit directement dessus.
La feuille d'origine elle, reste vide.

Il me manque un bout de code pour dire à la macro, si tu dépasses 200 lignes écrit dans cette page jusqu'a la ligne 200 puis crée la nouvelle feuille et fini le traitement sur celle ci.

Pour cela, j'ai récupéré la condition ci dessous mais je ne parviens pas à dire ce qu'il manque ...

Code :

1
2
3
4
5
If nb_insta > 200 Then 
???
else
ActiveWorkbook.Sheets.Add
end if

Je ne parviens pas a mettre mes fichiers sur le site car ils sont trop volumineux :-(
Milles mercis à vous pour votre précieuse aide

Bonne journée

Béatrice

[jfontaine]

Bonjour,

Le code ci dessous devrait t'aider a comprendre comment boucler 700 fois et ajouter chaque valeur de la boucle sur plusieurs feuille en insérant uniquement 200 lignes sur chaque feuilles

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim sh As Worksheet
Dim i As Integer
Dim Compteur As Byte
 
Compteur = 1
Set sh = Sheets("Feuil2")
 
For i = 1 To 700
    sh.Range("A" & Compteur).Value = i
    If Compteur = 200 Then
        Compteur = 1
        Set sh = ThisWorkbook.Worksheets.Add
    Else
        Compteur = Compteur + 1
    End If
Next i