Sub Macro_1()
Dim EAN As String
Dim Nombre As Long, bas As Long
'Ecrire la reference
Do 'ici Do à Loop
EAN = InputBox("Ecrire EAN13")
' Code détrompeur
If Not IsNumeric(EAN) Or Len(EAN) <> 13 Then
MsgBox ("La réference doit être de format EAN13, ANNULATION")
Goto fin
End If
bas = Feuil1.[A65000].End(3).Row + 1 'derniere ligne de col A +1
If IsNumeric(Application.Math(EAN, Feuil1.[A:A], 0)) Then
MsgBox "Ce code exit déja . . .!", , "ANNULATION": GoTo fin
End If
Feuil1.Cells(bas, 1).Value = EAN
'Palette complete ?
If MsgBox("Palette complète ?", vbYesNo) = vbNo Then
Worksheets("Feuil1").Cells(bas, 2) = " "
Nombre = InputBox("Quantité")
Worksheets("Feuil1").Cells(bas, 3) = Nombre
Else
Worksheets("Feuil1").Cells(bas, 3) = " "
Worksheets("Feuil1").Cells(bas, 2) = "1"
End If
fin:
If MsgBox("Souhaitez-vous mettre un autre Code ?", vbExclamation + vbYesNo, "CONTINUER") = vbNo Then Exit Sub
Loop
End Sub