Userform Alerte

K

kjin

XLDnaute Barbatruc

• 24 Décembre 2009

• #2

Re : Userform Alerte

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

 

Vote positif 0 Vote négatif

L

lioneldu47

XLDnaute Occasionnel

• 24 Décembre 2009

• #3

Re : Userform Alerte

voici le fichier merci beaucoup🙂

 

Pièces jointes

• excel_downloads.zip

  37.1 KB · Affichages: 32
• excel_downloads.zip

  37.1 KB · Affichages: 29
• excel_downloads.zip

  37.1 KB · Affichages: 31

Vote positif 0 Vote négatif

L

lioneldu47

XLDnaute Occasionnel

• 24 Décembre 2009

• #4

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

 

Pièces jointes

• excel_downloads.zip

  35.5 KB · Affichages: 40
• excel_downloads.zip

  35.5 KB · Affichages: 36
• excel_downloads.zip

  35.5 KB · Affichages: 42

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 24 Décembre 2009

• #5

Re : Userform Alerte

BOnjour

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

modifies ainsi

Code:

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 24 Décembre 2009

• #6

Re : Userform Alerte

Bonjour,
Peut-être comme ceci

Code:

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

 

Dernière édition: 24 Décembre 2009

Vote positif 0 Vote négatif

L

lioneldu47

XLDnaute Occasionnel

• 24 Décembre 2009

• #7

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.

 

Vote positif 0 Vote négatif

L

lioneldu47

XLDnaute Occasionnel

• 24 Décembre 2009

• #8

Re : Userform Alerte

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 24 Décembre 2009

• #9

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+

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 24 Décembre 2009

• #10

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

 

Vote positif 0 Vote négatif

L

lioneldu47

XLDnaute Occasionnel

• 24 Décembre 2009

• #11

Re : Userform Alerte

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

 

Vote positif 0 Vote négatif

L

lioneldu47

XLDnaute Occasionnel

• 29 Décembre 2009

• #12

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

 

Vote positif 0 Vote négatif