Discussion :

[Guido.b32]

Bonjour à vous,
J'ai créer un fichier utilisant deux feuilles. TestTest.xlsm
La feuille 1 me sert de modèle concernant les données.
La feuille 2 reçois les informations de la feuille 1 sur des shaps.
Je désire avoir une macro qui me crée un nombre de pages définies pour l'impression par un userform (ou textbox).
Au lieu de lancer l'impression directement, j'aimerai avoir un aperçu avant impression de la Zone d'impression que j'ai prédéfinie.
Je désire aussi que cette macro m'incrémente les nombres selon un décompte prédéfini.

Le modèle de ma page provient du site de Jacques Boisgontier, dont je me suis inspiré pour créer mon fichier.
Par contre, la modification de la macro sur mon propre fichier ne fonctionne pas correctement.
Merci à qui peut m'aider pour améliorer le fichier.
Cordialement
Guido


Sub Impression()
'
' Impression Macro
' Macro enregistrée le 13.10.2007 par Georges Eckstein
'
Dim Nombre, Total As Integer
'
Nombre = 1
Total = InputBox("Donne moi le nombre de bons à imprimer")
Do
Range("c4").Select
ActiveCell.FormulaR1C1 = Nombre
Range("c3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Nombre = Nombre + 14
Loop While Nombre < (Total + 1)
Range("c4").Select
ActiveCell.FormulaR1C1 = 1
End Sub
------------------------------------------
Sub Impression2()
'
' Impression2 Macro
' Macro enregistrée le 13.10.2007 par Georges Eckstein
'
Dim Nombre As Integer
'
Nombre = 1
Nombre = InputBox("Donne moi le nombre de pages à imprimer")
ActiveWindow.SelectedSheets.PrintOut Copies:=Nombre, Collate:=True
End Sub
-------------------------------------

[QuestVba]

Bonjour,

Comme c'est du VBA, pose ta question sur le forum dédié.
M. Jacques Boisgontier pourra aussi te répondre.

Moi, je me demande dajà ce que signifie

Code :

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

1
2
Nombre = 1
Nombre = InputBox("Donne moi le nombre de pages à imprimer")

Tu donnes à ta variable Nombre la valeur 1 puis, tu demandes un nombre à l'utilisateur pour changer cette valeur. Est-ce bien nécessaire ?

[Guido.b32]

Bonjour QuestVBA,
je te remercie pour ta réponse.
Le VBA n'étant pas mon fort, mon intervention était de pouvoir corriger la macro afin qu'elle puisse fonctionner comme cela m'est demandé.

A savoir : lancer un aperçu avant impression permettant la visualisation totale des pages demandées (le nombre de pages peut être aléatoire) et permettre un suivi de numérotation de chaque cellule numéraire (décompte de 1 à xxx en fonction dun nombres de pages imprimées).

Concernant la variable : a vrai dire, je ne saurai réellement pas te répondre (moi et VBA=2).

Je retourne une question. Saurais-tu me donner un coup de main? Ou est-il nécessaire que je change de mode de discussion et pose ma question dans le file-VBA

Merci à toi et bonne après-midi
Guido