Discussion :

[collinchris]

Bonjour à tous,
Je voudrais imprimer des feuilles excel différentes (appartenant au même classeur) en fonction des checkbox d'un userform mais je dois faire quelque chose de mal dans ma macro parce que ca ne fonctionne pas (ci-après mon bout de code

Code :

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

1
2
3
4
5
6
Private Sub CommandButton4_Click()
If UserForm2.CheckBox1 = True Then
Sheets("Feuil2").PrintOut
End If
End
End Sub

Pouvez-vous m'aider? Merci d'avance
Chris

[asxasx]

Que est ce qui ne fonctionne pas ?
L'impression ou ton code qui bug ?

[ouskel'n'or]

Pour indication, tu n'es pas obligé de mettre

If UserForm2.CheckBox1 = True Then ...

Tu meux simplifier en mettant

Code :

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

If me.CheckBox1 Then

Ensuite, pour ton pb, il est possible que ton End interrompt la macro. Je mettrais

Code :

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

1
2
3
4
5
6
If me.CheckBox1 Then 
      Worksheets("Feuil2").PrintOut
      DoEvents 'laisse au système le temps de traiter ta commande
End If
End
End Sub

Enfin, pour que ça fonctionne, Userform2 doit être actif
Tu dis
A+

[collinchris]

Il semble que ce soit mon code qui bug. Sur la ligne suivante

Code :

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

Worksheets("Feuil2").PrintOut

il me renvoie une erreur d'exécution 9: l'indice n'appartient pas à la sélection. Comprends pas....
J'ai testé le code fourni par ouskel'n'or (avec mes remerciements pour tes précisions) mais sans effet.

[ouskel'n'or]

kouichtionnes à cent sous :
- Ta feuille est-elle dans le classeur actif ?
- As-tu bien une feuil2 ?
- Vérifie qu'il n'y ait pas un espace dans le nom de ta feuille
- As-tu quelque chose dans ta feuil2 ?
Sinon je ne vois pas. Le message d'erreur signifie que ta procédure ne trouve pas la feuille.
Tu pourrais préciser

Code :

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

Workbooks("NomDuClasseur.xls").Worksheets("Feuil2").printout

A+

[collinchris]

Bon en définitive j'ai changé la référence à ma feuille, en prenant le nom de l'onglet (et pas le nom de feuille ) et ca fonctionne:

Code :

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

1
2
3
4
5
6
Private Sub CommandButton4_Click()
If CheckBox1 = True Then
Sheets("Toutes institutions").PrintOut
DoEvents
End If
End Sub

Manifestement, je dois réviser ma syntaxe. En tout cas, merci beaucoup pour tous ces éclaircissements.
(je mets ce post en résolu)