Discussion :

[bernard38]

Bjr,

Code :

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

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 ?

[illight]

Code :

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

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

[AlainTech]

Autre possibilité:

Code :

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

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