Case à cocher avec impression

[p'tit lulu]

Bonjour, novice en VBA, j'aurais besoin d'un petit coup de main.
En effet , je n'arrive pas à créer le code me permettant d'imprimer les feuilles sélectionnées. J'ai trouvé des fils ou la question était abordée mais avec mes connaissances actuelles, je n'arrive pas à l'appliquer.
Quelqu'un pourrait il jeter un coup d'oeil à mon fichier ?
Merci et bonnes fêtes à tous !

 

[bqtr]

Re : Case à cocher avec impression

Bonjour p'tit lulu

Ton fichier modifié. Voici le code :

Private Sub Imprimer1_Click()
Dim i As Integer
Unload Me
For i = 1 To 6
  If Controls("CheckBox" & i) = True Then Sheets(Controls("Label" & i).Caption).PrintPreview
    'PrintOut
Next
End Sub

J'ai modifié la numérotation de tes Labels pour qu'elle corresponde à celle de tes CheckBox. ( CheckBox1 --> Label1 .../...)
Attention à Jerôme, dans la feuille tu as Jerome et sur le Label Jerôme, j'ai donc modifié le Label pour qu'il soit identique à la feuille.

Pour imprimer réellement supprime PrintPreview et met PrintOut à la palce.


Bonne journée

 

[JCGL]

Re : Case à cocher avec impression

Bonjour à tous,

Rajoute ce petit bout de code à la place des ........

Private Sub Imprimer1_Click()
ActiveSheet.PrintOut
End Sub

Attention à la zone d'impression à ajuster sur toutes tes feuilles nominatives

A+

 

[p'tit lulu]

Re : Case à cocher avec impression

Merci !!!! 😀
ça marche nikel !!! passez de bonnes fêtes !