Discussion :

[teen6517]

Bonjour tous le monde

Je sais pas si mon titre est très explicite

Voici mon code :

Code :

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

1
2
3
4
5
6
 
 
	nom_feuille = ActiveSheet.Name
	With Sheets(nom_feuille)
		.Range("A1:H" & .Cells(Rows.Count, 1).End(xlUp).Row).Borders.LineStyle = xlContinuous
	End With

Ce que je cherche a faire maintenant, c'est de récupéréer cette valeur dans une variable afin de pouvoir par la suite définir la zone d'impression

Merci de votre aide car là je suis bloqué de chez bloqué

[mercatog]

Si tu travaille avec la feuille active, tu n'as pas besoin du activesheet.name
Pour ta dernière ligne

Code :

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

1
2
3
4
Dim LastLig As Long
 
LastLig = Cells(Rows.Count, "A").End(xlUp).Row  'derniere ligne de la colonne A
Range("A1:H" & LastLig).Borders.LineStyle = xlContinuous

[teen6517]

merci de vos réponces je test sa dessuite

et je reviendrai pour metre résolut si sa marche ^^

encor merci