Variable dans page d'impression (colonne variable)

Bonjour,

je cherche à paramétrer automatiquement une page d'impression variable en longueur (colonne) :

voici mon code qui ne fonctionne pas :

sub zone_impresion()

dim dernière_colonne as string

derniere_colonne = range("C1") ' cette valeur est BC

activesheet.pagesetup.printarea= "$A$2:$derniere_colonne$70"

end sub

auriez vous une idée ?

Merci

Bonjour

Essaie

Sub Zone()
Dim Col As Byte
Col = CInt(Range(Range("C1") & "1").Column)
ActiveSheet.PageSetup.PrintArea = Range("A1", Cells(70, Col)).Address
End Sub

Cordialement

Bonjour,

merci mais ca ne marche pas .. : quand on fait aperçu avant impression la plage n'a pas été sélectionnée ;. je pense qu'il faut l'écriture avec les $ : $ ... pour que ca marche ...

Bonjour

Mais non..

ici avec l'aperçu

Cordialement

Effectivement !

Super, c'est parfait, merci beaucoup.