Bonjour,
voilà j'ai créer un modèle de facture.
Seulement sur certaine facture il n'y pas la place de tous écrire alors j'aimerai le faire sur plusieurs page.
Puis ensuite faire le bilan sur ma première page facture.
Sub Copie()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
ActiveSheet.Copy After:=Sheets(i)
Next i
End Sub
Il faudrait compléter cette formule pour qu"elle affiche
Total page 2 cellule g15 puis en k15 (=page 2 ;cellule k37)
Total page 3 cellule g16 puis en k16 (=page 3 ;cellule k37)
etc en fonction du nombre de page copier.
merci d'avance
voilà j'ai créer un modèle de facture.
Seulement sur certaine facture il n'y pas la place de tous écrire alors j'aimerai le faire sur plusieurs page.
Puis ensuite faire le bilan sur ma première page facture.
Sub Copie()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
ActiveSheet.Copy After:=Sheets(i)
Next i
End Sub
Il faudrait compléter cette formule pour qu"elle affiche
Total page 2 cellule g15 puis en k15 (=page 2 ;cellule k37)
Total page 3 cellule g16 puis en k16 (=page 3 ;cellule k37)
etc en fonction du nombre de page copier.
merci d'avance
