userform avec fonction Vlookup

Paritec

XLDnaute Barbatruc

• 10 Septembre 2009

• #2

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

 

Vote positif 0 Vote négatif

E

ezrielle

XLDnaute Occasionnel

• 10 Septembre 2009

• #3

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

 

Pièces jointes

• Mathilde 080809.xlsm

  35.3 KB · Affichages: 99

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 10 Septembre 2009

• #4

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

 

Vote positif 0 Vote négatif

E

ezrielle

XLDnaute Occasionnel

• 11 Septembre 2009

• #5

Re : userform avec fonction Vlookup

Bonjour,


Voici le fichier en version 2003

Encore merci pour ton aide précieuse

Boinne soirée

Ez

 

Pièces jointes

• Mathilde 080809.zip

  24.3 KB · Affichages: 73

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 11 Septembre 2009

• #6

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

 

Pièces jointes

• ezrielle.zip

  18.1 KB · Affichages: 87
• ezrielle.zip

  18.1 KB · Affichages: 85
• ezrielle.zip

  18.1 KB · Affichages: 83

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 12 Septembre 2009

• #7

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

 

Vote positif 0 Vote négatif

E

ezrielle

XLDnaute Occasionnel

• 12 Septembre 2009

• #8

Re : userform avec fonction Vlookup

Merci beaucoup c'est genial

bonne soirée
A bientot

Ez

 

Vote positif 0 Vote négatif

E

ezrielle

XLDnaute Occasionnel

• 12 Septembre 2009

• #9

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 13 Septembre 2009

• #10

Re : userform avec fonction Vlookup

Bonsoir,
Avec ce que je comprends
A+
kjin

 

Pièces jointes

• ezrielle_V2.zip

  15.6 KB · Affichages: 93

Vote positif 0 Vote négatif

E

ezrielle

XLDnaute Occasionnel

• 13 Septembre 2009

• #11

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

 

Vote positif 0 Vote négatif