VBA-E erreurs sur nb de col ou de lignes

Bjr,

Code:

---

1 2 3 4 5 6 7 8

Dim feuil1 As Worksheet Dim nbli As Integer, nbcol As Integer Set feuil1 = worksheets("feuil1")   nbcol = feuil1.Cells(1, 1).CurrentRegion.End(xlToRight).Column nbli = feuil1.Cells(1, 1).CurrentRegion.End(xlDown).Row msg = "nb de lignes =" & nbli & " nb de colonnes =" & nbcol MsgBox msg

---

Par quoi remplacer ce code pour ne pas avoir d'erreur quand il n'y a qu'une ligne ou qu'une colonne ?

Code:

---

1 2 3 4 5 6 7 8

Dim nbli As Integer, nbcol As Integer     nbcol = Range("A1").End(xlToRight).Column nbli = range("A1").End(xlDown).Row msg = "nb de lignes =" & nbli & " nb de colonnes =" & nbcol MsgBox msg

---

Autre possibilité:

Code:

---

1 2 3 4 5 6 7 8

Dim feuil1 As Worksheet Dim nbli As Long ' pour le cas où il y aurait + de 32000 lignes Dim nbcol As Integer Set feuil1 = Worksheets("feuil1") nbli = feuil1.Cells.SpecialCells(xlLastCell).Row nbcol = feuil1.Cells.SpecialCells(xlLastCell).Column msg = "nb de lignes = " & nbli & " nb de colonnes = " & nbcol MsgBox msg

---