Overflow car pb de définition de LastRow
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! :D
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.
Code:
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 |
Pour info, je peux rencontrer quelques cellules vides dans la colonne A, donc j'ai tenté le Range("B1") mais cela ne change rien.
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
