USF - Bouton Impression

job75

XLDnaute Barbatruc

• 13 Avril 2010

• #2

Re : USF - Bouton Impression

Bonjour,

Code:

Private Sub CommandButton2_Click()
Dim i As Byte
For i = 1 To 3
  If Controls("CheckBox" & i + 1) Then Sheets(i).PrintOut
Next
[COLOR="Red"]If CheckBox1 Then Sheets(1).PrintOut: Sheets(2).PrintOut: Sheets(3).PrintOut[/COLOR]
End Sub

Edit : la ligne en rouge peut s'écrire plus simplement :

Code:

If CheckBox1 Then Sheets(Array(1, 2, 3)).PrintOut

A+

 

Dernière édition: 13 Avril 2010

Vote positif 0 Vote négatif

J

jorisphi

XLDnaute Occasionnel

• 13 Avril 2010

• #3

Re : USF - Bouton Impression

Bonjour Job75

Merci pour votre réponse rapide
Votre écriture est vraiment plus "Pro" que la mienne.
Cependant, on arrive toujours au même résultat (Voir Fichier en annexe)

Selection 1ère page : Imprime tout , même la 4 ème page qui ne doit pas s'imprimer
Sélection 2ème OU 3ème page : Pas d'impression du tout

Mystère, je ne comprends pas , car votre code me parait très juste
Merci d'avance pour votre aide précieuse

Pouvez- vous regarder?...
Cordialement
Jorisphi

job75 à dit:

Bonjour,

Code:

Private Sub CommandButton2_Click()
Dim i As Byte
For i = 1 To 3
  If Controls("CheckBox" & i + 1) Then Sheets(i).PrintOut
Next
[COLOR="Red"]If CheckBox1 Then Sheets(1).PrintOut: Sheets(2).PrintOut: Sheets(3).PrintOut[/COLOR]
End Sub

Edit : la ligne en rouge peut s'écrire plus simplement :

Code:

If CheckBox1 Then Sheets(Array(1, 2, 3)).PrintOut

A+

Cliquez pour agrandir...

 

Pièces jointes

• Impression(3).zip

  14.5 KB · Affichages: 29

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 13 Avril 2010

• #4

Re : USF - Bouton Impression

Comme ceci

 

Pièces jointes

• ImpressionHabs.xls

  41.5 KB · Affichages: 77

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Avril 2010

• #5

Re : USF - Bouton Impression

Re,

J'avais bien mal lu, la macro précédente imprimait les feuilles, vous voulez les pages, donc :

Code:

Private Sub CommandButton2_Click()
Dim i As Byte
For i = 1 To 3
  If Controls("CheckBox" & i + 1) Then Sheets(1).PrintOut[COLOR="Red"], From:=i, To:=i[/COLOR]
Next
If CheckBox1 Then Sheets(1).PrintOut[COLOR="red"], From:=1, To:=3[/COLOR]
End Sub

A+

 

Vote positif 0 Vote négatif

J

jorisphi

XLDnaute Occasionnel

• 13 Avril 2010

• #6

Re : USF - Bouton Impression

Re-bonjour Job75


M.A.G.N.I.F.I.Q.U.E !........
Cela fonctionne à merveille !.....

J'ai encore appris grâce à vous, Monsieur le Professeur!....

Très Très grand merci pour votre aide précieuse, car je "tournais en rond"
Très Très cordialement
A bientôt

Jorisphi

 

Dernière édition: 13 Avril 2010

Vote positif 0 Vote négatif

J

jorisphi

XLDnaute Occasionnel

• 13 Avril 2010

• #7

Re : USF - Bouton Impression

Bonjour Habitude


Merci pour votre réponse rapide
Voilà encore une autre façon de procéder qui marche très bien
Décidemment, j'apprend énormément grâce à vous

Très Cordialement
JorisPhi

 

Vote positif 0 Vote négatif