Discussion :

[newcodeur]

Bonjour,
j'ai un probleme je manipules des donnes contenus dans des fichiers xml que j'importe dans des feuilles excel en vba .
je récupère ces donnees que je traite à partir des feuilles excel en copiant et collant les données d'un feuille à l'autre.

le pb est que si j'atteint les 65536 lignes( ce qui fait beaucoup ) mon programme bloque .

je voudrais savoir si il existe un indicateur ou si il est possible de créer une nouvelle feuille pour coller les données lorsqu' atteint la limite de la première feuille.

( je conanis la fonction qui permettra de créer la feuille mais comment faire pour que le code l'excute???)

Merci .


j'ai essayé de mettre un If après le paste mais sa ne marche pas.


voici la partie du code qui fait le copier coller :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 Sheets(iSheet_mi).UsedRange.Offset(2, 0).Select
 
                   'on copy la plage selectionnée
                                    Selection.Copy
 
                   'selection de la feuille portant le MO
                                    Sheets(NomObj).Select
 
       ' on colle la plage selectionnée à partir de la ligne voulue pour ne pas écraser les données déja contenue
                                    Cells(compteur_remplissage, 1).Select
                                    ActiveSheet.Paste

Merci

[neupont]

Alors j'ai pas du tout testé hein, mais tu pourrais vérifier que ça rentre avant de coller.
Genre après ta ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Selection.Copy

Tu pourrais mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
if Selection.Cells.Rows.Count + compteur_remplissage > 65536 then
            Sheets(activesheet.index + 1).Activate
            Sheets.Add
            compteur_remplissage = 1
end if

Voilà, à adapter certainement.

[Invité]

A mon avis le code que vous donnez n'est pas assez explicite pour pouvoir vous aider.

Il faudrait copier les données ligne à ligne jusqu'à ce que la dernière ligne à copier soit atteinte avant la 65536ème ligne et si ce n'est pas le cas ajouter une feuille et continuer la copie ou connaître la nombre d'enregistrements de votre fichier source pour copier plage par plage.

[helios77]

y a la solution de compter le nombre de Paste que tu fais si tu copies/colle ligne par ligne

Une fois arrivé à 65536, tu crées ta nouvelle feuille avant de continuer ton copier/coller

Maintenant, si tu copier/colle par paquet de ligne, va falloir compter avant chaque paste, ombien de lignes tu vas colller et en fonction de ton compteur, savoir si il reste de la place ou non

[Invité]

Bonjour Neupont,

Télescopage de réponse.

Mais attendant celle de Newcodeur.

[newcodeur]

Merci pour vos contributions je vais tester vos suggestions et vous dire celle qui fonctionne.


I'll be Back.......