insérer CommandButton dans un module

[nicho]

bonjour a vous tous,

est ce qu'on peut insérer ce code:

Private Sub CommandButton2_Click()

'Imprimer le tableau

Range("B10:N58").Select
Selection.PrintOut Copies:=1

End Sub

dans un module car il se répète dans 30 feuilles

une autre demande svp est qu'on peut lors de l'exécution de cette macro avoir la possibilité de choisir le nombre de copie à imprimer grâce a un usf ou autre chose

merci

 

[Nairolf]

Re : insérer CommandButton dans un module

Salut nicho,

Oui c'est possible, comme ceci:

Private Sub CommandButton2_Click()

Call printtable

End Sub

Sub printtable()

'Imprimer le tableau

Range("B10:N58").Select
Selection.PrintOut Copies:=1

End Sub

 

[nicho]

Re : insérer CommandButton dans un module

merci Nairolf ton code marche à merveille

et pour le nombre de copies tu n'a pas une solution stp

 

[Nairolf]

Re : insérer CommandButton dans un module

Sans doute comme ceci:

Private Sub CommandButton2_Click()
nbcopies=inputbox("Nombre de copies ?")
Call printtable(nbcopies)

End Sub

Sub printtable(nbcopies)

'Imprimer le tableau

Range("B10:N58").Select
Selection.PrintOut Copies:=nbcopies

End Sub

A vérifier (car tapé à la volée) et à améliorer pour éviter que quelqu'un mettre du texte au lieu d'un nombre.

 

[nicho]

Re : insérer CommandButton dans un module

merci ça marche bien

y a pas un moyen de donner le choix a l'aide de trois boutons d'imprimer 1, 2 ou 3 copies

svp

 

[Nairolf]

Re : insérer CommandButton dans un module

Salut nicho, salut le forum,

Si on peut faire des boutons, peux-tu faire une userform avec l'aspect que tu voudrais, ensuite nous pourrons t'aider à mettre du code dedans pour faire ce que tu veux.

 

[nicho]

Re : insérer CommandButton dans un module

salut, c'est bon j'ai résolut mon petit problème c'été pas aussi difficile que ça
merci pour l'aide que tu m'a offert Nairolf elle m'a été de très grande utilité.

voici le fichier en pièce jointe ça peut toujours aider