Private Sub CommandButton2_Click()
Dim Ligne_deb As Integer, Nb_etiq As Integer
With Sheets("Etiquettes produits")
'Lors d'un test K5 n'avait aucune valeur
'Car j'avais remplis la fiche à partir de la feuille interface
If [K5] = 0 Then
MsgBox "Choisissez une ligne de départ"
Exit Sub
End If
'Idem pour k6
If [K6] = 0 Then
MsgBox "Choisissez un nombre d'étiquette"
Exit Sub
End If
Ligne_deb = .[K5] * 4 - 3
'Met dans la variable Ligne_deb la valeur en ligne de la feuille Etiquettes produits
'correspondant au début de ligne de planche saisie en C12
Nb_etiq = Ligne_deb + .[K6] - 1
'Met dans la variable Nb_etiq le nombre de lignes correspondant aux nombre d'étiquettes
'saisies en C14
'Range("N1").Value = Ligne_deb >>>>pour vérifier les variables
'Range("N2").Value = Nb_etiq
.Copy After:=Sheets(3)
.Select
.Range("A" & Ligne_deb & ":H" & Nb_etiq).Copy
Sheets("Etiquettes produits (2)").Range("A" & Ligne_deb & ":H" & Nb_etiq).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
Sheets("Etiquettes produits (2)").Name = "Etiquettes produits"
UserForm1.Hide
UserForm1.Show
End Sub