Lignes MAX, colonnes MAX

[mutzik]

Bonjour à tous

Je vois très souvent ce genre de codes

dernièreLigne= range("a65536").end(xlup).row

alors en prévision des nouvelles feuilles de xl 2007, je lance dans workbook.open la procédure suivante :

Option Explicit
Public MaxLine As Long, MaxCol As Long

Sub CalculerMax()
Application.ScreenUpdating = False
DisplayAlerts = False
Sheets(1).Select
Sheets.Add
MaxLine = Range("a1").End(xlDown).Row
MaxCol = Range("a1").End(xlToRight).Column
MsgBox MaxLine & " " & MaxCol
ActiveWindow.SelectedSheets.Delete
DisplayAlerts = True
End Sub

cela me permet d'écrire
dernièreLigne= range("a" & MaxLine).end(xlup).row et de s'affranchir de la version utilisée

NB : peut cette donnée existe déja (ou existera) dans une collection ou ailleurs (thierry et les autres vébéAïstes, si vous me lisez ...)

 

[JeanMarie]

Re : Lignes MAX, colonnes MAX

Bonjour Mutzik

As-tu essayé

MsgBox Application.Rows.Count
et
MsgBox Application.Columns.Count

Les valeurs retournées doivent dépendre de la version du fichier ouvert.

@+Jean-Marie

 

[mutzik]

Re : Lignes MAX, colonnes MAX

Merci JM, comme quoi on en apprend tous les jours ;-)