bonjour a tous,
Je viens de creer un user form dans lequel j'ai integré un combobox (nom d el'article)
Je souhaiterai qu'en fonction de la selection de l'article dans le combobox j'obtienne automatiquement le stock dispo pr cette article dans un text box.
J'ai essayé avec une recherchev par rapport a ma base de données mais cela ne marche pas.
Voici mon code:
Private Sub SAstockdispo_Change()
Dim article As Variant
Dim stock As Double
Sheets("BaseDonnées").Activate
article = SAarticle.Value
stock = WorksheetFunction.VLookup(article, Range("tableau_BaseDonnees"), 8, False)
'MsgBox "pour l'article " & article & " il reste" & stock & " pièces"
SAstockdispo.Text = stock.Value
End Sub
Merci enormement d'avance pour votre aide
Ez
Je viens de creer un user form dans lequel j'ai integré un combobox (nom d el'article)
Je souhaiterai qu'en fonction de la selection de l'article dans le combobox j'obtienne automatiquement le stock dispo pr cette article dans un text box.
J'ai essayé avec une recherchev par rapport a ma base de données mais cela ne marche pas.
Voici mon code:
Private Sub SAstockdispo_Change()
Dim article As Variant
Dim stock As Double
Sheets("BaseDonnées").Activate
article = SAarticle.Value
stock = WorksheetFunction.VLookup(article, Range("tableau_BaseDonnees"), 8, False)
'MsgBox "pour l'article " & article & " il reste" & stock & " pièces"
SAstockdispo.Text = stock.Value
End Sub
Merci enormement d'avance pour votre aide
Ez