Bonjour (encore) à tous,
Je suis confronté à un Overflow. Mes tests sur peu de données fonctionnaient mais, maintenant que je l'applique sur près de 75000 lignes sur ma feuil1, ça plante!
Voici mon code d'entrée que j'applique sur ma Fuil1, probablement un peu "crade" car pas pro, mais je ne vois pas où ça cloche sur ce point précis vu que cela fonctionnait sur environ 100 lignes.
Pour info, je peux rencontrer quelques cellules vides dans la colonne A, donc j'ai tenté le Range("B1") mais cela ne change rien.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub YAMAL() Dim LastRow As Long, i As Integer LastRow = WorkSheets("Feuil1").Range("A1").SpecialCells(xlCellTypeLastCell).Row With ActiveSheet.Range("A:A") For i = LastRow To 2 Step -1 With .Cells(i, 1) If IsEmpty(.Value) = True Then ... End With Next i End With ... End Sub
La ligne qui plante est For i = LastRow To 2 Step -1.
Quand je survole avec ma souris le LastRow, j'ai bien 75014 (le nombre de lignes).
Là, je bloque. Sauriez-vous où ça cloche ?
J'ai fait quelques recherches et je vois qu'il est possible d'identifier la dernière ligne de plusieurs manière (voir ici), peut-être une solution sort-elle du lot mais je ne saurais dire laquelle.
Cordialement,
Camzo
Partager