Private Sub quit_Click()
Unload Me
End Sub
Private Sub save_Click()
If nomduproduit = "" Or localisation = "" Or ref = "" Or reception = "" Or materiau = "" Or resine = "" Or stockage = "" Or Dreception = "" Or Dperemption = "" Then
MsgBox " Informations manquantes ", , " Informations manquantes "
Exit Sub
End If
If quantite = "" Or IsNumeric(quantite) = False Then
MsgBox "Veuillez entrer une quantité étant un chiffre ou un nombre", , "Erreur de saisie"
Exit Sub
End If
End Sub
Private Sub UserForm_Initialize()
Dreception.Value = Format(Date, "dd/mm/yyyy")
UserForm_Activate
Dperemption.Value = Format(Date, "dd/mm/yyyy")
UserForm_Activate
Dfabrication.Value = Format(Date, "dd/mm/yyyy")
UserForm_Activate
End Sub
Private Sub UserForm_Activate()
With Dreception
.SetFocus
.SelStart = 0
.SelLength = Len(Dreception)
End With
With Dperemption
.SetFocus
.SelStart = 0
.SelLength = Len(Dperemption)
End With
With Dfabrication
.SetFocus
.SelStart = 0
.SelLength = Len(Dfabrication)
End With
End Sub
Private Sub Dreception_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
calendrier_prepreg_reception.Show
End Sub
Private Sub Dperemption_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
calendrier_peremption_prepreg.Show
End Sub
Private Sub Dfabrication_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
calendrier_prepreg_fabrication.Show
End Sub
Private Sub continuer_Click()
Selection = DateValue(Dreception.Value)
Unload Me
End Sub
Selection = DateValue(Dperemption.Value)
Unload Me
End Sub
Selection = DateValue(Dfabrication.Value)
Unload Me
End Sub
On Error Resume Next
ThisWorkbook.Sheets("prépreg").Range("A65536").End(xlUp).Offset(1, 0).Value = localisation
ThisWorkbook.Sheets("prépreg").Range("B65536").End(xlUp).Offset(1, 0).Value = nomduproduit
ThisWorkbook.Sheets("prépreg").Range("C65536").End(xlUp).Offset(1, 0).Value = numeroclient
ThisWorkbook.Sheets("prépreg").Range("D65536").End(xlUp).Offset(1, 0).Value = numerosafran
ThisWorkbook.Sheets("prépreg").Range("E65536").End(xlUp).Offset(1, 0).Value = materiau
ThisWorkbook.Sheets("prépreg").Range("F65536").End(xlUp).Offset(1, 0).Value = typetissu
ThisWorkbook.Sheets("prépreg").Range("G65536").End(xlUp).Offset(1, 0).Value = resine
ThisWorkbook.Sheets("prépreg").Range("H65536").End(xlUp).Offset(1, 0).Value = stockage
ThisWorkbook.Sheets("prépreg").Range("I65536").End(xlUp).Offset(1, 0).Value = quantite
ThisWorkbook.Sheets("prépreg").Range("K65536").End(xlUp).Offset(1, 0).Value = Dreception
ThisWorkbook.Sheets("prépreg").Range("J65536").End(xlUp).Offset(1, 0).Value = Dfabrication
ThisWorkbook.Sheets("prépreg").Range("L65536").End(xlUp).Offset(1, 0).Value = Dperemption
ThisWorkbook.Sheets("prépreg").Range("N65536").End(xlUp).Offset(1, 0).Value = ref
ThisWorkbook.Sheets("prépreg").Range("O65536").End(xlUp).Offset(1, 0).Value = fabricant
ThisWorkbook.Sheets("prépreg").Range("P65536").End(xlUp).Offset(1, 0).Value = fournisseur
ThisWorkbook.Sheets("prépreg").Range("Q65536").End(xlUp).Offset(1, 0).Value = DMP
ThisWorkbook.Sheets("prépreg").Range("R65536").End(xlUp).Offset(1, 0).Value = reception
Unload Me
On Error GoTo 0
End Sub
Private Sub UserForm_Click()
End Sub