Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

champs non obligatoires

lioneldu47

XLDnaute Occasionnel
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
 

Pièces jointes

  • excel_downloads.zip
    37 KB · Affichages: 37
  • excel_downloads.zip
    37 KB · Affichages: 33
  • excel_downloads.zip
    37 KB · Affichages: 39

lioneldu47

XLDnaute Occasionnel
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…