Trouver la derniere ligne d'une plage.

tonio44 · 29 Avril 2012

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:

nbrlignemax = ActiveSheet.PageSetup.PrintArea
nbrlignemax = Range(nbrlignemax).Row
MsgBox nbrlignemax

Imaginons que la plage est A1:O150 j'aimerai avoir la valeur 150.

Vous avez une idée ? j'ai surement fait une erreur

Gorfael · 29 Avril 2012

Re : Trouver la derniere ligne d'une plage.

Salut tonio44 et le forum
Toujours pareil : les informations non fournies doivent être imaginées, avec plus ou moins de chance

Code:

nbrlignemax = ActiveSheet.PageSetup.PrintArea
nbrlignemax = Range(nbrlignemax).row+Range(nbrlignemax).Rows.count-1
MsgBox nbrlignemax

Row donne la ligne de la première cellule de la plage => tu dois donc avoir 1 dans ta formulation !

Là, on a la dernière ligne concernée par la plage : comme je ne connais pas le but réel, je donne une formule qui donnera la dernière ligne, même si la plage ne commence pas à la ligne 1.
A+

Softmama · 29 Avril 2012

Re : Trouver la derniere ligne d'une plage.

Bonjour,

ceci, à tester ? :

Code:

nbrlignemax = val(Split(ActiveSheet.PageSetup.PrintArea, "$")(UBound(Split(ActiveSheet.PageSetup.PrintArea, "$"))))
msgbox nbrlignemax

tonio44 · 29 Avril 2012

Re : Trouver la derniere ligne d'une plage.

Gorfael à dit:
Salut tonio44 et le forum
Toujours pareil : les informations non fournies doivent être imaginées, avec plus ou moins de chance

Code:

nbrlignemax = ActiveSheet.PageSetup.PrintArea nbrlignemax = Range(nbrlignemax).row+Range(nbrlignemax).Rows.count-1 MsgBox nbrlignemax

Row donne la ligne de la première cellule de la plage => tu dois donc avoir 1 dans ta formulation !

Là, on a la dernière ligne concernée par la plage : comme je ne connais pas le but réel, je donne une formule qui donnera la dernière ligne, même si la plage ne commence pas à la ligne 1.
A+

Merci pour ta réponse.

J'ai trouver un code Split sur le net. Et ce la permet de séparer les 2 valeurs entre le ":"
Après on peut en déduire le numéro de ligne.

Code:

nbrlignemax = Range(Split(ActiveSheet.PageSetup.PrintArea, ":")(1)).Row

tonio44 · 29 Avril 2012

Re : Trouver la derniere ligne d'une plage.

Softmama à dit:
Bonjour,

ceci, à tester ? :

Code:

nbrlignemax = val(Split(ActiveSheet.PageSetup.PrintArea, "$")(UBound(Split(ActiveSheet.PageSetup.PrintArea, "$")))) msgbox nbrlignemax

Ha je pense que ca rejoint ce que j'ai trouver ?

Merci à vous 2 pour vos réponses rapides

Trouver la derniere ligne d'une plage.

tonio44

XLDnaute Nouveau

Gorfael

XLDnaute Barbatruc

Softmama

XLDnaute Accro

tonio44

XLDnaute Nouveau

tonio44

XLDnaute Nouveau

Discussions similaires