champs non obligatoires

[lioneldu47]

Bonjour le forum,​

Dans l'userform du fichier joint je voudrais que lorsqu'on l'on rentre pas les champs infos, Px achat Px vente Stock limite fournisseur ou encore ref fournisseur la macro fonctionne correctement et qu'il n'y ait pas d'erreur et une demande de débogage...

En fait, lors de clic sur le bouton modifie ou nouveau seule les cellules ref, famille, description ou stock initial sont à remplir obligatoirement.

Merci

 

[lioneldu47]

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