Macro imprimer Restreindre le nb d impressions

[karibou]

Bonjour a toutes et tous

Dans cette petite macro qui suit (et que jai pu trouver sur ce forum) j aimerais pouvoir rajouter une ligne de commande qui me bloquerait le nbe maxi d impression a 5 par exemple

Merci d'avance

Sub imprimer()
Calculate
Dim Choix As Integer
Dim i As Integer
Choix = InputBox("Combien d'impression désirez-vous ?", "Imprimer", 1)
For i = 1 To Choix
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.Range("N__Palette").Value = ActiveSheet.Range("N__Palette").Value + 1
Next
End Sub

 

[Dull]

Re : Macro imprimer Restreindre le nb d impressions

Salut Karibou, le Forum

Peut être comme cela

Sub imprimer()
Calculate
Dim Choix As Integer
Dim i As Integer
Choix = InputBox("Combien d'impression désirez-vous ?", "Imprimer", 1)
For i = 1 To Choix
If Choix > 5 Then MsgBox "vous ne pouvez imprimer que 5 exemplaires", vbCritical: Exit Sub
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.Range("N__Palette").Value = ActiveSheet.Range("N__Palette").Value + 1
Next i
End Sub

Bonne Journée

 

[karibou]

Re : Macro imprimer Restreindre le nb d impressions

Merci bcp pour l info c est parfait comme cela.

Si je veux aussi un controle pour eviter une erreur de saisie (une lettre au lieu d un chiffre par exemple) quelle condition dois je rajouter pour eviter qu il me mette la fenetre de debogage, mais plutot un message signalant que le texte saisie n est pas correct??

2nde Question : quelle est la meilleure facon de se mettre a VBA en autodidacte ? Existe t il de bons tutos pour les debutants comme moi ......

PS : Rien que de voir St Pierre de la Reunion ca donne chaud au coeur !!!!
Bonne journée

 

[Dull]

Re : Macro imprimer Restreindre le nb d impressions

Re Karibou, le Fil

Avec une ImputBox pas sur que cela ce fasse mais...sait'onjamais 😀
Par contre avec un UserForm No Problème

Regardes le Fichier Joint

Pour ta deuxième question regardes ce Fil et inspires t'en

Bonne Journée