Impression selon checkbox

[claude.dasilva]

Bonjour à tous,
J'ai besoin de votre aide.
Je souhaite imprimer plusieurs onglets différents selon les checkbox que je coche dans un onglet menu.
J'ai mis ce code :

Private Sub CommandButton1_Click()
For i = 1 To ActiveSheet.OLEObjects.Count
If ActiveSheet.OLEObjects("CheckBox" & i).Object.Value = "Vrai" Then
Sheets("" & Range("g" & i + 4) & "").PrintOut
End If
Next
End Sub

Donc une fois que j'ai coché les ongles qui m'intéressent, j'appuie sur le bouton, il m'imprime les onglets que j'ai coché mais il m'affiche ce message d'erreur à la fin.
Quelqu'un a-t-il une idée ?

Erreur d'exécution 1004
Impossible de lire la propriété OLEObjects de la classe Worksheet.

Merci.

 

[Fo_rum]

Re : Impression selon checkbox

Bonjour,

Si tu as d'autres contrôles dans la feuille (Bouton de commande par exemple), ta macro coincera quand i dépassera le nombre de Cases à cocher.
j'utilise souvent le petit programme joint pour éviter les multiples problèmes des Cases à Cocher.

 

[claude.dasilva]

Re : Impression selon checkbox

Bonjour Fo_rum,
Merci pour l'astuce, j'aime beaucoup mais comment faire pour avoir l'impression en même temps que la boite de dialogue ?
Cordialement.

 

[Fo_rum]

Re : Impression selon checkbox

Re,

ce petit programme permet bien des choses en l'adaptant (Imprimer, Activer ...).
J'ai choisi de prévisualiser pour éviter des impressions inutiles.

 

[claude.dasilva]

Re : Impression selon checkbox

Merci,
Ca marche super...

 

[claude.dasilva]

Re : Impression selon checkbox

Bonjour,
Petite évolution, je voudrais imprimer en plusieurs exemplaires certains onglets.
Est-ce faisable facilement en partant de ton userform ?
Merci.

 

[claude.dasilva]

Re : Impression selon checkbox

Re,
Sur un onglet je suis aujourd'hui obligé de taper un muméro dans une cellule, automatiquement d'autres cellules du même onglet vont se remplir et après je l'imprime.
Je recommence l'opération d'autant de n° différent selon qu'une cellule dans une base de donnée est vide ou pas... (autre onglet)
Je voudrais automatiser la chose, comment faire ?
Merci pour votre aide éventuelle.