J'aimerais connaitre le code VBA pour creer un bouton VBA "imprimer" pour imprimer une feuille excel, ca jusque la je sais faire, par contre ce que je ne sais pas, c'est inclure une demande, qui, quand on clic sur le bouton "imprimer" une fenetre s'ouvre pour me demander le nombre de copie que je souhaite imprimer de cette feuille.
Private Sub CommandButton1_Click()
Dim copies As Variant
copies = InputBox("NOMBRE DE COPIES ?", "Indiquer la quantité désirée...")
ActiveWindow.SelectedSheets.PrintOut copies:=copies
End Sub
Option Explicit
Private Sub CommandButton1_Click()
Dim copies As Variant
On Error GoTo fin
copies = InputBox("NOMBRE DE COPIES ?", "Indiquer la quantité désirée...")
ActiveWindow.SelectedSheets.PrintOut copies:=copies
fin:
End Sub
Une autre solution (mais le contrôle d'erreur va bien aussi) :
Code:
Private Sub CommandButton1_Click()
Dim copies
copies = Abs(Val(InputBox("NOMBRE DE COPIES ?", "Indiquer la quantité désirée...")))
If copies Then ActiveWindow.SelectedSheets.PrintOut Copies:=copies
End Sub
Mais derniere petite question, y a t'il possibilitée de transferer ce code sur le bouton "imprimer 2" qui lui ouvre un "UserForm1" pour que je puisse retravailler le UserForme1, car la InputBox cela est figé.
merci, pour vos reponse precedente et votre travail
... y a t'il possibilitée de transferer ce code sur le bouton "imprimer 2" qui lui ouvre un "UserForm1" pour que je puisse retravailler le UserForme1, car la InputBox cela est figé...
Hélas non, le fichier est a mon travail, mais il n'a rien de special.
ce sont plusieurs colonnes pour renseigner , nom date N° facture, etc etc, au nombre de 11 colonnes sur la feuille
et donc mon code sert juste a imprimer en fin de moi la totalitée des lignes renseignées ainsi que dans cette feuille il y a un bouton VBA qui m'ouvre une feuille ou j'ai stocké des adresse de livraison de clients qui sont differentes de la facturation et quand j'ai plusieurs colis il me faut autant d'etiquette d'adresse que de colis.
oui effectivement, le terme copie est deja utilisé,
mais je pense que tu parles du terme "copie" dans le code du bouton "Imprimer" (celui sans couleur de fond),
celui-ci en fait j'ai l'ais laissé pour exemple de code, mais sera supprimer si le bouton "Imprimer 2" fonctionne et c'est justement le cas "stefan" votre code fonctionne tres bien.
C'est exactement ce que je voulais, alors grand merci a vous pour votre travail.