Discussion :

[mytyck]

Bonjour à tous ,

J'ai adapté une trouvaille excel pour faire la gestion de stock de ma société d'électricité.

Malheureusement j'ai un soucis dans mon onglet 'Sorties' mais je ne trouve pas la solution.

En effet quand je veux ajouter ma sortie avec la référence de ma pièce il m'indique que le stock est à 0 alors qu'il est bien supérieur dans mon onglet inventaire.

Quelqu'un pourrait m'aider ?

Je reste disponible si question.

Merci d'avance ,

SamuelGestion de stock - 342.xlsm

[EricDgn]

Bonjour,

Cela vient de ce que dans la plage nommée Pièces, il y a à la fois des nombres et des textes et quand vous placez un code qui est un nombre, cela donne 0 (SIERREUR ... 0).

Une façon de faire pour gérer cela:

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
Private Sub CB_Pièce_AfterUpdate()
    Dim Formule, Message As String, Réponse As Integer
    'Formule = "=sierreur(RECHERCHEV(" & Chr(34) & Me.CB_Pièce.Value & Chr(34) & "; Liste_Pièces;1;faux); " & Chr(34) & Chr(34) & ")"
    If Not Len(Me.CB_Pièce.Value) > 0 Or Me.CB_Pièce.Value = "" Then ' Or Me.CB_Pièce.Value = "Pièce"
        Message = "Veuillez choisir une Pièce valide"
        Réponse = MsgBox(Message, vbOKOnly, "Controle de saisie")
        Me.CB_Pièce.SetFocus
    End If
    If IsNumeric(Me.CB_Pièce.Value) Then    '--- si est un nombre
        Formule = "=sierreur(RECHERCHEV(" & Me.CB_Pièce.Value & ";Pièces;4;faux);" & Chr(34) & "erreur!" &  Chr(34) & ")"
    Else     '--- si n'est pas un nombre --- est un texte
        Formule = "=sierreur(RECHERCHEV(" & Chr(34) & Me.CB_Pièce.Value & Chr(34) & ";Pièces;4;faux);" & Chr(34) & "erreur!" & Chr(34) & ")"
    End If
    Range("Cellule_Travail").FormulaLocal = Formule
    Me.TB_Stock_Actuel.Value = Range("Cellule_Travail").Value
End Sub

Cordialement.

[mytyck]

Bonjour Eric ,

Merci pour ta réponse.

J'ai finalement trouvé la solution entre temps , mais elle se rapproche de ce que tu as répondu.

Merci beaucoup !