userform avec fonction Vlookup

[ezrielle]

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

 

[Paritec]

Re : userform avec fonction Vlookup

Bonjour Ezrielle le forum,
tu mets deux colonnes dans ta combobox et tu utilises le listindex de ta combo pour afficher dans ta textbox
si tu avais joint un bout de fichier je te l'aurais fait
a+
papou 🙂

 

[ezrielle]

Re : userform avec fonction Vlookup

c'est genial merci beaucoup pour ton aide

Je te joint mon fichier ,mon userform s'appelle SA pour "supprimer article "

Merci encore

EZ

 

[Paritec]

Re : userform avec fonction Vlookup

Bonsoir Ezrielle le forum,
merci pour ton fichier mais j'ai pas 2007 alors enregistres le au format 2003 autrement je ne peux rien
a+
papou

 

[ezrielle]

Re : userform avec fonction Vlookup

Bonjour,


Voici le fichier en version 2003

Encore merci pour ton aide précieuse

Boinne soirée

Ez

 

[kjin]

Re : userform avec fonction Vlookup

Bonsoir,
Bonsoir paritec
Tu n'as pas mis le code au bon endroit
En outre, comme le proposait paritec, tu peux aussi plus simplement utiliser l'index de la combo
A+
kjin

 

[Paritec]

Re : userform avec fonction Vlookup

Bonjour Ezrielle, kjin le forum,
bon bah j'arrive après la bataille, mais je suis content que mon idée ai été retenue
merci kjin
bonne journée et bon week-end
Papou

 

[ezrielle]

Re : userform avec fonction Vlookup

Merci beaucoup c'est genial

bonne soirée
A bientot

Ez

 

[ezrielle]

Re : userform avec fonction Vlookup

Re bonsoir,

J'essaye maintenant de supprimer la ligne du tableau que je selectionne à l'aide de mon userform mais mon code doit certainement comporter des erreurs.


Private Sub SAsupprimer_Click()


If SAarticle.ListCount >= 1 Then

If SAarticle.ListIndex = -1 Then
SAarticle.ListIndex = _
SAarticle.ListCount - 1
End If
SAarticle.RemoveItem (SAarticle.ListIndex)
End If


End Sub

Encore merci pour votre aide

Bonne soirée

Ez

 

[kjin]

Re : userform avec fonction Vlookup

Bonsoir,
Avec ce que je comprends
A+
kjin

 

[ezrielle]

Re : userform avec fonction Vlookup

Merci beaucoup

c'est exactement ce que je voulais!

est ce que pour ma compréhesion personnelle tu pourrais m'expliquer le code: (je le comprend dans les grandes lignes mais pas précisément)

Private Sub SAsupprimer_Click()
If SAarticle.ListIndex = -1 Then Exit Sub
With Sheets("BaseDonnées")
.Rows(SAarticle.ListIndex + 2).EntireRow.Delete
End With
EffaceTout
IniSAarticle

End Sub

Private Sub UserForm_Initialize()
IniSAarticle

End Sub

Sub IniSAarticle()
With Sheets("BaseDonnées")
SAarticle.List = .Range("C2:C" & .Range("C65000").End(xlUp).Row).Value
End With

End Sub

Sub EffaceTout()
Dim ctl As Control
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then ctl = ""
If TypeName(ctl) = "ComboBox" Then ctl = ""
Next

End Sub

Merci beaucoup

C'est parfait

Ez