gestion stock ,macro dans usf

[Evelynetfrancois]

bonjour a tous et toutes
voila
j'aimerais apporter une modification dans cette macro (adaptation d'une demo de a@+thierry )
mais "je" bogue....
If LabelStock < 1 Then ok la macro ci dessous fonctionne
mais je souhaiterais
If LabelStock < labelministock then .

labelministock etant: Sheets("Articles").Range("E" & VarSelectedArticle).Value
voir feuille "articles" dans fichier joint
merci de me donner un coup de main
bonne jouirnée
Evelynetfrancois


Private Sub ListBox1_Click()
VarSelectedArticle = UserForm1.ListBox1.ListIndex + 2
LabelStock = Sheets("Articles").Range("D" & VarSelectedArticle).Value
LabelCode = Sheets("Articles").Range("A" & VarSelectedArticle).Value
'Labelministock = Sheets("Articles").Range("E" & VarSelectedArticle).Value


If LabelStock < 1 Then ' si je mets "<1" ,pas de probleme
'mais je voudrais que la macro compare le LabelStock
'au Labelministock situe en :Sheets("Articles").Range("E")voir feuille "articles"


LabelPrixUnit.Visible = True
TextBoxQuantite.Visible = True
LabelPrixTotal.Visible = True
PTentrée.Visible = False
GDentrée.Visible = True
CommandButton4.Visible = True
LabelPrixUnit.Visible = True
LabelCode = Sheets("Articles").Range("A" & VarSelectedArticle).Value
LabelPrixUnit = Format(Sheets("Articles").Range("C" & VarSelectedArticle).Value, "#,##0.00")
TextBoxQuantite.SetFocus
Else
PTentrée.Visible = True
GDentrée.Visible = False
CommandButton4.Visible = False
TextBoxQuantite.Visible = True
LabelCode = Sheets("Articles").Range("A" & VarSelectedArticle).Value
LabelPrixUnit = Format(Sheets("Articles").Range("C" & VarSelectedArticle).Value, "#,##0.00")
LabelPrixTotal = ""
TextBoxQuantite = ""
TextBoxQuantite.SetFocus
End If
End Sub

 

[michel]

Bonjour Evelynetfrancois

je n'arrive pas à localiser la cause du non fonctionnement ( pb déclaration de variable ? ), mais tu peux tester directement

If Sheets("Articles").Range("D" & VarSelectedArticle) < Sheets("Articles").Range("E" & VarSelectedArticle) Then



bon apres midi
Michel

 

[Evelynetfrancois]

Bonjour MICHEL

sorry j'ai trouve
il suffisait de mettre
If LabelStock - labelministock < 1 Then
au lieu de
If LabelStock < labelministock then
en tout cas MERCI de t'etre embarasse de mon prob
bonne prog
et bonne journée
Evelynetfrancois