Macro pour imprimer

Résolu
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   -  
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
je cherche a créer une macro pour but de changer la valeur de la cellule "Z7" de 1 à 10 et imprimer a chaque fois la page 2
j'ai crée une macro mais "Z7" reste uniquement dans la valeur 1 et imprime un très grand nombre de page sans s’arrêter

voila la macro :

Sub Macro1()
'
' Macro1 Macro
'

'
Dim i As Integer
For i = 1 To 10
i = Range("Z7").Value
ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Next
End Sub



merci d'avance


A voir également:

1 réponse

via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Bonjour noe2008

Pour changer ta valeur en Z7 c'est l'inverse qu'il faut :
Range("Z7").Value= i

Cdlmnt
Via
0
noe2008 Messages postés 184 Date d'inscription   Statut Membre Dernière intervention   4
 
Oui ça fonctionne merci
0