Trouver la dernière cellule utilisée dans Excel VBA
Trouver la dernière cellule utilisée dans Excel VBA
Comment trouver la dernière cellule utilisée (dernière ligne/colonne) dans une feuille Excel avec VBA ?
Re: Trouver la dernière cellule utilisée dans Excel VBA
Plusieurs méthodes :
**Dernière ligne utilisée dans une colonne :**
```vba
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
```
**Dernière colonne utilisée dans une ligne :**
```vba
Dim lastCol As Long
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
```
**Dernière cellule utilisée sur la feuille :**
```vba
Dim lastCell As Range
Set lastCell = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell)
```
Ou utilisez `UsedRange` :
```vba
Dim lastRow As Long
lastRow = ActiveSheet.UsedRange.Rows.Count
```
Attention : `UsedRange` peut inclure des cellules qui ont été effacées mais dont le formatage persiste.
**Dernière ligne utilisée dans une colonne :**
```vba
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
```
**Dernière colonne utilisée dans une ligne :**
```vba
Dim lastCol As Long
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
```
**Dernière cellule utilisée sur la feuille :**
```vba
Dim lastCell As Range
Set lastCell = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell)
```
Ou utilisez `UsedRange` :
```vba
Dim lastRow As Long
lastRow = ActiveSheet.UsedRange.Rows.Count
```
Attention : `UsedRange` peut inclure des cellules qui ont été effacées mais dont le formatage persiste.