Discussion :

[kiki89]

Bonjour,

Dans mon application de gestion des stocks, je compare le nombre de stock
disponible (afficher dans une zone de texte) au nombre de pièces que je veux sortir (zone de texte modifiable en fonction d'une scrollbar).

voici mon bout de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub cmd_valider_Click()
'Vérifier que les champs ont bien été complétés
If cbo_articles = "" Then
    MsgBox "Vous devez sélectionner un article!", vbInformation, "Saisie incorrecte"
    Exit Sub
ElseIf txt_nombre = 0 Then
   MsgBox "Le nombre d'articles sortants doit être supérieur à 0!", vbInformation, "Saisie incorrecte"
    Exit Sub
ElseIf txt_nombre > txt_stockdispo Then
commentaire : A ce niveau, il me compare le nombre a partir du premier chiffre à gauche (ex: pour 4 pièces sorties avec un stock de 22, il trouve que 4 est supérieur à 22 de ce fait il m'indique le message ci dessous
    MsgBox "Le nombre d'articles sortants ne peut pas être supérieur au stock disponible!", vbInformation, "Saisie incorrecte"
    Exit Sub
End If


'Boite de validation
réponse = MsgBox("Voulez-vous sortir ce nombre d'articles du stock disponible?", vbQuestion + vbYesNo, "Demande de confirmation")
If réponse = vbYes Then
    MsgBox "Le stock disponible a été mis à jour!", vbInformation, "Information"
ElseIf réponse = vbNo Then
    MsgBox "Le stock disponible n'a pas été modifié!", vbInformation, "Information"
    Exit Sub

End If


'Définition des variables SD (stock dispo) et NAS (nb d'articles sortis)
Dim sd As Integer
Dim NAS As Integer
sd = txt_stockdispo.Caption
NAS = txt_nombre.Caption

'MAJ du stock
Cells(Range("C:C").Find(cbo_articles).Row, 10) = sd - NAS

'Comptabilisation du nombre d'entrée et sortie
Cells(Range("C:C").Find(cbo_articles).Row, 12).Select
Selection.Value = Selection.Value + 1
    
  'Réglage largeur des colonnes
Columns("A:K").EntireColumn.AutoFit

'Afficher le formulaire d'alerte si le stock dispo est inférieur au stock mini
If Cells(Range("C:C").Find(cbo_articles).Row, 10) < Cells(Range("C:C").Find(cbo_articles).Row, 9) Then
remarque : Ici je retrouve le même problème qu'au dessus    
Sortie_article.Hide
    etat_stock.Show
End If

Menu_general.Show

End Sub

J'ai mis des commentaires en rouge là ou j'ai un problème.

Est ce que quelqu'un pourrait m'aider???

[neupont]

Salut,
tu peux forcer une conversion vers le numérique. Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
ElseIf txt_nombre > txt_stockdispo Then
 
doit devenir :
 
ElseIf Cint(txt_nombre) > Cint(txt_stockdispo) Then

Si tes nombres à comparer ne sont pas des "entiers" (au sens type entier dans VBA) il existe d'autres fonctions de conversion, telles CLng, CDbl...

[zyhack]

bonjour

en texte "4" est superieur à "22"

il faut utiliser les valeur numerique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

val(txt_nombre) > val(txt_stockdispo)

et la ce sera bon

bonne journée