Re : champs non obligatoires
Voici la macro modifier:
Private Sub CmbModifier_Click()
If TxtStocks = "" Then
MsgBox " Vous avez oublié de rentrer les stocks "
Exit Sub
End If
Dim myVar As Long
With Sheets("Stock")
On Error GoTo GestionDesErreurs
myVar = Application.WorksheetFunction _
.Match(ComboRef, Worksheets("Stock").Range("A1:A10000"), 0)
On Error GoTo 0
.Cells(myVar, 12) = ComboFamille
.Cells(myVar, 2) = TxtDescription
.Cells(myVar, 3) = Txtinfos
.Cells(myVar, 5) = CDbl(TxtPriXAchat)
.Cells(myVar, 7) = CDbl(TxtPrixVente)
.Cells(myVar, 4) = CLng(Me.TxtStocks)
.Cells(myVar, 13) = CDbl(Me.Txtlimite)
.Cells(myVar, 10) = Me.TxtFournisseur
.Cells(myVar, 11) = Txtreffournisseur
End With
Unload Me
GestionDesErreurs:
If Err = 1004 Then
Err = 0
MsgBox " Vous avez changé la référence, et de ce fait la modification est impossible"
Exit Sub
End If
End Sub
Je voudrais que lorsque il y a aucune entrée dans les champs suivants il n'y ait pas d'erreur de macros: infos, px achat, px ventes stock limite, fournisseur ou encore ref fournisseur.
MERCI