Discussion :

[toniob44]

Bonjour,

Je souhaite connaitre la dernière ligne d'une plage.
Cette plage est la plage de la zone d'impression.

J'ai essayé avec:

Code :

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

1
2
3
4
 
nbrlignemax = ActiveSheet.PageSetup.PrintArea
nbrlignemax = Range(nbrlignemax).Row
MsgBox nbrlignemax

Vous avez une idée ?

[casefayere]

Bonsoir,

une méthode :

Code :

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

1
2
3
4
5
Sub essai()
Dim nbrlignemax
nbrlignemax = ActiveSheet.PageSetup.PrintArea
MsgBox Split(nbrlignemax, ":")(1)
End Sub

[toniob44]

Merci beaucoup je me suis servi de ton code et j'en ai déduit la suite.

Code :

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

1
2
3
4
5
 
nbrlignemax = ActiveSheet.PageSetup.PrintArea
nbrlignemax = Split(nbrlignemax, ":")(1)
nbrlignemax = Range(nbrlignemax).Row
MsgBox nbrlignemax

[casefayere]

Si ton problème est résolu, relis ma signature pour cliquer sur

Bonne soirée