Comment trouver la plage utilisée d'un onglet ?

Bonjour Akira,


Voici 2 fonctions que tu peux copier dans un module standard :

Et pour les appeler dans une procédure, tu fais comme ceci :

A = DerLig(Worksheets("Feuil1")

OU

A = DerLig(activesheet)


********** PAR FONCTION dERNIÈRE LIGNE **************

Function DerLig(sh As Worksheet)
On Error Resume Next
DerLig = sh.Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
On Error GoTo 0
End Function


'********** PAR FONCTION dERNIÈRE Colonne **************

Function DerCol(sh As Worksheet)
On Error Resume Next
DerCol = sh.Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
On Error GoTo 0
End Function
'-------------------------------------------


Salutations!




"Akira" <lsoudronZZZ@business-services.fr> a écrit dans le message de news: mn.cd267d595825dc9a.27055@business-services.fr...
Bonjour,

Sauriez-vous comment faire pour connaître la dernière ligne et la
dernière colonne d'un onglet ?

Je sais trouver la dernière ligne avec :
DernièreLigne ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

Mais je ne sais pas comment faire pour trouver la dernière colonne.

Merci pour votre aide.

Magnifique, tu es un génie ;-)

Encore merci pour ton aide.

Bonjour Akira,


Voici 2 fonctions que tu peux copier dans un module standard :

Et pour les appeler dans une procédure, tu fais comme ceci :

A = DerLig(Worksheets("Feuil1")

OU

A = DerLig(activesheet)


********** PAR FONCTION dERNIÈRE LIGNE **************

Function DerLig(sh As Worksheet)
On Error Resume Next
DerLig = sh.Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
On Error GoTo 0
End Function


'********** PAR FONCTION dERNIÈRE Colonne **************

Function DerCol(sh As Worksheet)
On Error Resume Next
DerCol = sh.Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
On Error GoTo 0
End Function
'-------------------------------------------


Salutations!




"Akira" <lsoudronZZZ@business-services.fr> a écrit dans le message de news:
mn.cd267d595825dc9a.27055@business-services.fr... Bonjour,

Sauriez-vous comment faire pour connaître la dernière ligne et la
dernière colonne d'un onglet ?

Je sais trouver la dernière ligne avec :
DernièreLigne > ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

Mais je ne sais pas comment faire pour trouver la dernière colonne.

Merci pour votre aide.