Userform Alerte

[lioneldu47]

Bonjour le forum,​

J'aimerais bien crée un userform qui m'indique une alerte si le stock devient inférieur au stock limite lorsque l'on retire un produit du stock grace à l'userform déjà présente.

voir fichier joint merci pour votre aide.

 

[kjin]

Re : Userform Alerte

Bonjour,
Le fichier n'est pas passé
A+
kjin

 

[lioneldu47]

Re : Userform Alerte

voici le fichier merci beaucoup🙂

 

[lioneldu47]

Re : Userform Alerte

Désolé jean-marcel mais cela ne fonctionne pas; erreur dans la mocro: référence incorrecte ou non qualifiée.

J'ai rectifié quelques trucs mais ça ne marche toujours pas.

merci

 

[PascalXLD]

Re : Userform Alerte

BOnjour

c'est le end with qui est placé trop tôt

modifies ainsi

With Sheets("Stock")
    
        .Cells(ComboRef.ListIndex + 2, 4) = .Cells(ComboRef.ListIndex + 2, 4) - CLng(TextQuantité1.Value)
    
    
    If .Cells(ComboRef.ListIndex + 2, 13) >= .Cells(ComboRef.ListIndex + 2, 4) Then
        MsgBox " Stock mini atteint"
    End If
End With

 

[kjin]

Re : Userform Alerte

Bonjour,
Peut-être comme ceci

Private Sub CmbValiderretrait_Click()
Dim L As Long, x As Long
L = ComboRef.ListIndex + 2
    If Not IsNumeric(TextQuantité1) Or TextQuantité1 = "" Then
        MsgBox " Vouse devez définir une quantité numérique"
        TextQuantité1 = ""
        TextQuantité1.SetFocus
        Exit Sub
    End If
    With Sheets("Stock")
        x = .Cells(L, 4) - CLng(TextQuantité1.Value)
        If x < 0 Then
        MsgBox "La quantité n'est pas disponible"
        TextQuantité1 = ""
        TextQuantité1.SetFocus
        Exit Sub
        End If
        .Cells(L, 4) = x
    End With
    
    Unload Me
End Sub

En principe, on choisit une famille puis un article non ?
de plus, la combo famille a qq soucis
A+
kjin

 

[lioneldu47]

Re : Userform Alerte

Merci à Jean-Marcel, Kjin et PascalXD pour toutes vos informations!!!
​

Cela m'a été très utile!!! J'ai fait un mix de vos informations et j'arrive au résultat espéré.
Merci beaucoup.

 

[lioneldu47]

Re : Userform Alerte

Encore une question!!!
Est ce possible de modifié l'apparence d'un Msgbox?
Merci

 

[Guest]

Re : Userform Alerte

Bonjour,

Pour répondre à ta dernière question, les MsgBox ne sont pas très paramétrable.

Le plus simple c'est de faire un userForm personnel.

Par exemple pour une alerte temporisée , va voir ici , le userform est bien-sûr modifiable à souhait.

A+

 

[jeanpierre]

Re : Userform Alerte

Bonjour lioneldu47, kjin, Jean-Marcel, PascalXLD,

En terme clair : "Est ce possible de modifié l'apparence d'un Msgbox?",

Je dirais NON, il faut passer par un Usf..., mais tu as déjà quelques réponses plus haut.....

Jean-Pierre

 

[lioneldu47]

Re : Userform Alerte

Ok merci pour vos informations!!! Je vais me lancer dans l'userform alors pour avoir quelque chose de personnalisé!!!

 

[lioneldu47]

Re : Userform Alerte

Bonjour tout le monde,​

J'ai un autre petit problème avec mon fichier:

J'aimerais que seules les cases référence, description, famille et stock initial soient obligatoirement à rentrer.
Si les autres champs ne sont pas renseignés je désirerais que cela fonctionne pour l'instant il y a une erreur et un débogage est demandé...

Si un membre m'aide et me modifie la macro est qu'il peut mettre un repère sur la macro pour me montrer d'où vient l'erreur.😀

Merci beaucoup