insérer CommandButton dans un module

N

Nairolf

XLDnaute Accro

• 14 Septembre 2012

• #2

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

 

Vote positif 0 Vote négatif

N

nicho

XLDnaute Occasionnel

• 14 Septembre 2012

• #3

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

 

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 14 Septembre 2012

• #4

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.

 

Vote positif 0 Vote négatif

N

nicho

XLDnaute Occasionnel

• 15 Septembre 2012

• #5

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

 

Dernière édition: 15 Septembre 2012

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 17 Septembre 2012

• #6

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.

 

Vote positif 0 Vote négatif

N

nicho

XLDnaute Occasionnel

• 17 Septembre 2012

• #7

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

 

Pièces jointes

• nombre de copie.xlsm

  22.7 KB · Affichages: 32

Vote positif 0 Vote négatif