Vba : code pour afficher value dans cell

Option Explicit

Sub Imp_envelop_com()
Dim InputNombre As Integer
Dim Bad As Byte
Dim WSEnveloppe As Worksheet
Dim WSNouvBase As Worksheet
Dim i As Byte

With ThisWorkbook
    Set WSEnveloppe = .Worksheets('Enveloppe_com')
    Set WSNouvBase = .Worksheets('Nouv. base')
End With

Start:
InputNombre = Application.InputBox('Combien d'enveloppes veux-tu imprimer en une fois ?' & vbCrLf & _
                          'maximum 20, minimum 1', 'Nombre d'Enveloppes', Type:=1)
       
&nbsp; &nbsp; &nbsp; &nbsp; If InputNombre < 1 Or InputNombre > 20 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Bad = MsgBox('La valeur doit être comprise&nbsp; entre 1 et 20' & vbCrLf & _
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Voulez vous continuer ?', vbCritical + vbYesNo)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Bad = vbNo Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit Sub
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GoTo Start
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp;
&nbsp; &nbsp;
WSEnveloppe.Range('L11').Value = InputNombre 'sur quelle feuille ?



&nbsp; &nbsp; For i = 1 To InputNombre
&nbsp; &nbsp; &nbsp; WSEnveloppe.PrintOut
&nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; With WSNouvBase
&nbsp; &nbsp; &nbsp; &nbsp; .Range('A4:H4').Copy .Range('A1251')
&nbsp; &nbsp; &nbsp; &nbsp; .Range('A5:H1251').Copy .Range('A4')
&nbsp; &nbsp; &nbsp; &nbsp; End With
&nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; Next i
End Sub

Cliquez pour agrandir...