XL 2010 VBA Impression checkbox

Yes28 · 26 Juin 2019

Bonjour,

Je galère un peu... beaucoup pour lancer une impression d'onglets suivant des cases cochées dans un userform.
Pour ajouter un peu de complexité le nom des onglets change avec un nom aléatoire (une date).

J'ai déjà un peu avancé sur le fichier mais ceci me bloque !

Si vous avez un bon conseil je suis preneur !!

et dans un second temps j'aimerai proteger un maximum le fichier mais avec les macros c'est compliqué non ?

Merci pour votre aide !
Bonne soirée

Compte Supprimé 979 · 26 Juin 2019

Bonjour Yes28

Voici le code (inutile de sélectionner la feuille pour l'imprimer)

VB:

Private Sub CommandButton2_Click()
  Dim Ind As Integer
  For Ind = 1 To 7
    If Me("CheckBox" & Ind).Value = True Then
      Sheets(Sheets("Menu").Range("I" & 14 + Ind).Value).PrintOut Copies:=1
    End If
  Next Ind
End Sub

A+

Yes28 · 26 Juin 2019

Merci Merci Merci !

Je n'y ai pas passé la nuit et ce matin ce petit code simple et efficace !
c'est super !

Je ne maitrise pas trop vba, et des fois je passe par 10.000 chemins.
Vite une formation !!!

merci beaucoup

XL 2010 VBA Impression checkbox

Yes28

XLDnaute Nouveau

Pièces jointes

Compte Supprimé 979

Guest

Yes28

XLDnaute Nouveau

Discussions similaires