Bonjour à tous,

Je bloque sur une formule de calcul Vba. Voici mon problème :

Comment écrire, si Cmb_NumArt est égal à une valeur de la colonne B de la feuille(2) et que la valeur de Txt_Nbre de mon formulaire est supérieure à la valeur de la cellule dans colonne H de la feuille(2) correspondant à la ligne où ce trouve la valeur de Cmb_NumArt, alors message "Vous dépassez le stock disponible", et ensuite Txt_Nbre = "".

Pour le moment mon code ressemble à ça mais je pense qu'il faut passer par AfterUpDate.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Private Sub Txt_Nbre_Change()
'Uniquement des chiffres
If Not IsNumeric(Txt_Nbre) And Txt_Nbre <> "" Then
    MsgBox "Vous ne devez entrer que des chiffres !"
    Txt_Nbre = ""
    End If
End Sub
Pouvez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance