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.
Cet 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 d'un nombres de pages imprimées).
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.
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é.

Merci à qui peut m'aider pour améliorer le fichier.
Cordialement
Guido

----------------------------

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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

-------------------------------------

[Guido.b32]

Bonsoir à vous tous,
Quelqu'un pour me donner un coup de main ?
Ce serait sympa
Merci d'avance
Guido

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.
Cet 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 d'un nombres de pages imprimées).
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.
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é.

Merci à qui peut m'aider pour améliorer le fichier.
Cordialement
Guido

----------------------------

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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

-------------------------------------

[patricktoulon]

Bonjours
de quoi pourrais tu avoir besoins

peut être employer la bonne fonction print

Code :

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

ActiveWindow.SelectedSheets.PrintPreview

[Guido.b32]

Bonjour Patricktoulon,

merci pour votre intervention. Mais vba et moi nous faisons deux.
J'ai modifié cette fonction, mais j'ai un message d'erreur qui apparaît (débogage)
J'ai mis le fichier est mis en ligne pour exemple.
Vous auriez une solution?
cordialement
Guido

[clementmarcotte]

Bonjour Patricktoulon,
mais j'ai un message d'erreur qui apparaît (débogage)
Guido

:

[Guido.b32]

Bonsoir Clementmarcotte,

J'avais essayé d’être clair. Désolé (@Michel)
Le fichier que j'essaie de monter, est pris d'un model préexistant de M. Jacques Boisgontier.
De ce model, Les Bons , J'ai créer un fichier pas trop semblable, mais dans le même esprit.
Numérotation automatique et incrémentation même avec une impression de plusieurs pages.

J'aimerai pouvoir avoir quelque chose du même genre, mais avec trois séries de "bons" par feuilles A4 imprimées.

J'ai donc effectué un model comme j'aimerai avoir TestTest.xlsm mais les macros ne fonctionnent pas.

Saurez-vous me donner un coup de main pour corriger les macros ?

Merci d'avance.
Guido