Zone imprimable

Bonjour

J'ai une question à poser je veux de définir une zone d'impression en fonction du nombre de ligne dans la colonne "C".

Je m'explique: j'ai un classeur et suivant les concours il y a de 10 à 100 joueurs et a chaque fois que je dois imprimer je dois définir une zone d'impression. j'utilise ce code mais sa ne vas pas.

[code]

Sub printAreaMod()

Dim derLig As Integer

derLig = Cells(65000, 2).End(xlUp).Row

ActiveSheet.PageSetup.PrintArea = "B4:E" & derLig

End Sub[/code

]Je m'explique j'ai dans la colonne "A" =ALEA() dans la colonne "B" les N° des joueurs de 1 à 100 mais alors j'aimerais qu'il se basse sur la colonne "C" qu'il y a les noms des joueurs

Je vous remercie de votre aide

Cordialement

Max

Salut Max18et le forum

Utiliser un code sans le comprendre est rarement une bonne idée.

Sub printAreaMod()
ActiveSheet.PageSetup.PrintArea = "B4:E" & deCells(rows.count,"C").End(xlUp).Row
End Sub

A+

Rechercher des sujets similaires à "zone imprimable"