Bonjour à toutes et à tous,
Je bute sur une ligne de code pour afficher dans une cell de ma feuil la valeur donnée en réponse à une InputBox.
Quelqu'un peut-il me dépanner ? :whistle:
Voici le code:
Merci d'avance
PS : Si vous voyez d'autres imperfection dans cette macro n'hésitez pas à me faire la remarque, j'apprends
Message édité par: jepi67, à: 15/10/2005 11:59
Je bute sur une ligne de code pour afficher dans une cell de ma feuil la valeur donnée en réponse à une InputBox.
Quelqu'un peut-il me dépanner ? :whistle:
Voici le code:
Code:
Sub Imp_envelop_com()
' Macro enregistrée le 08/10/2005 par jepi67
'
Réponse = InputBox('Combien d'enveloppes veux-tu imprimer en une fois ? maximum 20, minimum 1', 'Nombre')
If Réponse < 1 Or Réponse > 20 Then
MsgBox Réponse & ' doit être un nombre entre 1 et 20. pour ANNULER entre 0 et tape OK'
End If
Range('L11').Value = Reponse
[b]Afficher dans 'L11' la valeur de 'Reponse'
[/b]
For i = 1 To Réponse
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets('Nouv. base').Select
Range('A4:H4').Select
Selection.Copy
Range('A1251').Select
ActiveSheet.Paste
Range('A5:H1251').Select
Range('H1251').Activate
Application.CutCopyMode = False
Selection.Copy
Range('A4').Select
ActiveSheet.Paste
Sheets('Enveloppe_com').Select
Next i
End Sub
PS : Si vous voyez d'autres imperfection dans cette macro n'hésitez pas à me faire la remarque, j'apprends
Message édité par: jepi67, à: 15/10/2005 11:59