Discussion :

[shakapouet]

Bonjour,

J'ai développé un outil automatisé pour un entrepôt logistique qui utilise les données de préparation de la journée.
La macro que j'ai développé tourne sans problème depuis plusieurs mois, mais actuellement une augmentation de la charge de production fait qu'il y a beaucoup plus de data à traité qu'avant.
La macro insert beaucoup de ligne dans la feuille excel avec ce code :

Code :

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

1
2
3
4
5
6
7
         Worksheets("Extraction").Rows(i).Select
                    Selection.Copy
                    Rows(i + 1).Select
                    Selection.Insert Shift:=xlDown
                    Application.CutCopyMode = False
                    Sheets("Extraction").Range("P" & i + 1).Value = CDec(Sheets("Extraction").Range("P" & i).Value - BoxA)
                    Sheets("Extraction").Range("AA" & i).Value = BoxA

Quand on utilise trop de donnée la macro plante sur la ligne

Code :

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

 Selection.Insert Shift:=xlDown

avec ce message d'erreur :



Je voulais savoir si Excel à une limitation d'ajout de ligne ?
Je précise quand je stop la macro je ne peut plus insérer de ligne manuellement.

Pour le moment la solution que j'ai trouvé est de faire tourner 2 fois la macro pour simulé moins de données et ça fonctionne.
Mais j'aimerai bien trouver une solution.

Si quelqu'un à une idée

Merci

[Menhir]

Ta macro un peu nettoyée :

Code :

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

1
2
3
4
5
6
         With Worksheets("Extraction")
            .Rows(i).Copy
            .Rows(i + 1).Insert
            .Cells(i + 1, "P").Value = CDec(.Cells(i, "P").Value - BoxA)
            .Cells(i + 1, "AA").Value = BoxA
         End With

Généralement, sans Select les instructions fonctionnent mieux dans beaucoup de cas.

[shakapouet]

Merci Menhir

Je vais tester avec ton code voir si ça fonctionne.

Cdt

[shakapouet]

Top fonctionne parfaitement

Merci pour ton aide

Cdt