Discussion :

[nrdz83]

Bonsoir à tous , voila ma question:
J'ai une feuille ou l'on peut remplir jusqu'a 10 pages.

En fonction du nombre de page de remplie je veux les imprimer.

Je pense faire appel via un userform et une toupie pour choisir le nombre de page à imprimer.

Est ce que je dois nommer en zone mes pages?

Comment creer un code pour l'impression en fonction du nombre sélectionné par la toupie.

Par avance merci à tous

[Fvandermeulen]

Salut,
Si le format des tes pages ne change pas il sera plus simple de les formater via le Page setup, ensuite ce code lié à ton bouton d'impression devrais faire l'affaire:

Code :

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

1
2
3
4
5
    Sheets("feuil4").PrintOut
        From:=1, _
        To:=USF_Printchaines.TextBox1.Value, _
        Copies:=1, _
        Collate:=True

A+

[nrdz83]

bonjour et merci pour l'aide , non le format de mes pages ne changera pas car ce sont des tableaux avec des données à saisir.
Pour ce qui est de formater via le page setup ??? désolé mais je ne sais pas le faire ou du moins je ne vois pas comment faire peux tu m'en dire un peu plus sur ça. Par avance merci mes amitiés

Code :

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

1
2
3
4
Private Sub CommandButton2_Click()
Sheets("Feuil4").PrintOut
From:=1, _To:=USF_Printchaines.TextBox1.Value, _Copies:=1, _Collate:=True
End Sub

J'ai sasie le code et j'ai une erreur de syntaxe, Cela provient de ou ? merci

[Fvandermeulen]

Re,
Pour le Page Setup (désolé je suis en anglais et j'oublie toujours les traductions ...)
En fait le plus simple, clique sur Prévisualisation de l'Impression, de là tu aura un bouton, Saut de Page (ou un truc du genre, normalement à gauche de 'fermer')
Tu auras alors ta page avec des lignes continues et pointillées bleues qui représentent les sauts de pages, il te suffit de les adapter avec ta souris.

Pour ce qui est de l'erreur de syntaxe, pour passer à la ligne dans le code il faut précéder le saut de ligne par un espace et _ par contre il n'en faut pas si on remet la ligne à la suite donc ton code:

Code :

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

1
2
3
4
Private Sub CommandButton2_Click()
Sheets("Feuil4").PrintOut _
From:=1, To:=USF_Printchaines.TextBox1.Value, Copies:=1, Collate:=True
End Sub

En espérant avoir été clair...

A+

Edit: Validé trop vite code pas corrigé entièrement

[nrdz83]

Re bonjour et merci pour tes explications , effectivement le (page setup) donc je savais le faire et l'avais bien fait comme il faut.
Déja qu'en français c'est pas toujours évident alors avec un excel en anglais aïe, aïe, je plaisante.

Ton code fonctionne, mais pas tout a fais comme je le voudrais, car il m'imprime mes dix pages malgrés ma sélection via spinbutton.

Si je sélectionne 6 (donc n'imprimer que les six premières pages ) il m'imprime mes 10 pages.
Cela peut provenir de ou ? Amitiés

[mercatog]

J'ai fais les tests avec le code fourni par Fvandermeulen (Que je salue de passage) et ça fonctionne

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
Private Sub CommandButton2_Click()
Sheets("Feuil4").PrintOut From:=1, To:=CInt(Me.TextBox1.Value), Copies:=1, Collate:=True
 
Unload Me
End Sub
 
Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
TextBox1.Value = 1 'affiche zéro dans la TextBox1
End Sub
 
Private Sub SpinButton1_Change() 'au changement du SpinButtons1
TextBox1.Value = SpinButton1.Value 'la TextBox1 affiche la valeur du SpinButton1
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub