dernière ligne d'un tableau

[Claudy]

Bonjour à tous,
j'ai un tableau en colonnes (X1: AJ....)
Le nombre de lignes par colonne est variable.
J'aimerais définir la zone d'impression de X1 à AJ... dernière ligne des colonnes composants le tableau
Par exemple si j'ai 50 éléments dans AA:AA et 20 dans AJ:AJ ma zone d'impression serait X1:AJ50
Merci d'avance,
Claudy

 

[Cousinhub]

Re : dernière ligne d'un tableau

Bonsoir,

essaie avec ce code :

Dim DerLig As Long
DerLig = Columns("X:AJ").Find("*", , , , xlByRows, xlPrevious).Row
ActiveSheet.PageSetup.PrintArea = "$X1:$AJ" & DerLig

 

[hoerwind]

Re : dernière ligne d'un tableau

Bonjour,

=MAX(SI(X1:AJ100<>"";LIGNE(1:100)))
formule matricielle à valider par Ctrl+Maj+Entrée
Cette formule renverra le numéro de la dernière ligne contenant une valeur dans la plage X1:AJ1

Pour ne pas avoir de problème avec des formules matricielles, le plus simple est de les nommer.
Sous le menu Insertion - Définir - Noms il ne faut pas valider cette formule en matricielle, ni lorsqu'on fait référence au nom attribué.

 

[Claudy]

Re : dernière ligne d'un tableau

Merci bhbh...
ça marche nickel.
Bonne journée,
Claudy