XL 2019 zone d'impression

[le___destin]

bonsoire
est-qu'il y a un code vb que je peux metre sur la code de la feuille excel pour que le nombre de page à imprimer soit conditionne
j'ail la feuille 7 du classeur contienne 8 pages
je veux que les page selectioner ' zone d'impression' soit de 1 jusqu'a valeur de cellule W18

 

[le___destin]

je besoin que quel qu'un me corrige se code soit L31 le nombre de page a enregistre de la feuil carte du jour
' Macro1 Macro

'

'
Sheets(Array("recu", "tab3", ("carte du jour") From:=1, To:=Sheets("tab3").Range("L31")).Select
ChDir "C:\Users\BENAMOR\Desktop\123"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\BENAMOR\Desktop\123\date.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

 

[GALOUGALOU]

bonsoir le destin, bonsoir le forum
une macro qui imprime le nombre de copie egale à la valeur de la cellule w18
ne pas oublier de rajouter la selection de la feuille

Sub impression_fonction_cellule()
Dim i As Integer
Dim nbcop As Integer
nbcop = Range("w18").Value
For i = 1 To nbcop
ActiveSheet.PrintOut
Next i
End Sub

cordialement
galougalou