Bonjour a tous,
J'aimerais savoir comment ecrire
En fait actuellement je dis manuellemnt que me liste s'arrette a la ligne 150 pou rl'impression.
Or, j'utilise une fonction qui me compte les lignes
Comment ecrire que ma zone d'impression s'arette au nivveau de rowcount?
Merci a tous
J'aimerais savoir comment ecrire
Code:
ActiveSheet.PageSetup.PrintArea = "$A:$N"
'ActiveWorkbook.Names.Add Name:="Print_Area", RefersToR1C1:="=OFFSET(Sheet1!C1:C26,,,COUNTA(Sheet1!C6)+5)"
ActiveSheet.PageSetup.PrintArea = "A1:N150" 'print setup be careful the print area stops at row 150!!!
With ActiveSheet.PageSetup
Or, j'utilise une fonction qui me compte les lignes
Code:
Function RowCount() As Integer
Dim m As Integer 'Loop Counter
m = 6
Do While (ActiveWorkbook.Worksheets("Sheet1").Cells(m, 2).Value <> 0)
m = m + 1
Loop
RowCount = m - 1
End Function
Comment ecrire que ma zone d'impression s'arette au nivveau de rowcount?
Merci a tous