Remplir des listbox suite à un combobox

G

gex1403

XLDnaute Occasionnel

• 15 Avril 2006

• #2

Salut Luc, adaptes ce code a ton fichier

WS etant le nom de ta feuille ou tu veux recuperer les données

Private Sub ComboBox1_Click()
If Me.ComboBox1.ListIndex = -1 Then Exit Sub 'ON sort si pas de sélection

TextBox1 = WS.Range('B' & Me.ComboBox1.ListIndex + 2) 'On alimente les données correspondant à la ligne
TextBox2.Value = WS.Range('c' & Me.ComboBox1.ListIndex + 2) 'On alimente les données correspondant à la ligne
TextBox3.Value = WS.Range('d' & Me.ComboBox1.ListIndex + 2)
TextBox4.Value = WS.Range('e' & Me.ComboBox1.ListIndex + 2)
TextBox5.Value = WS.Range('f' & Me.ComboBox1.ListIndex + 2)

With Me

End With
End Sub

@micalement

 

Vote positif 0 Vote négatif

F

François

Guest

• 16 Avril 2006

• #3

Bonjour gex1403,

Je cherche une solution tel que tu as donné à Luc. J'ai modifié des lignes pour que le tout fonctionne pour moi sans succès. Mes données se trouvent en D, E, etc.

Est-ce tu pourrais regarder cela et faire les corrections. Merci beaucoup.

Private Sub ComboBox3_Change()
Dim tabtemp As Variant
Dim O As Integer

With Worksheets('Inventaire')
O = .Range('a15000').End(xlUp).Row
tabtemp = .Range('A2:ae' & O).Value

For O = 1 To UBound(tabtemp, 1)
If tabtemp(O, 1) = CStr(Me.ComboBox1.Value) And tabtemp(O, 2) = CStr(Me.ComboBox2.Value) _
And tabtemp(O, 3) = CStr(Me.ComboBox3.Value) Then

ListBox1 = .Range('d' & Me.ComboBox3.Value + 2)
ListBox2.Value = .Range('e' & Me.ComboBox3.ListIndex + 4)
ListBox3.Value = .Range('f' & Me.ComboBox3.ListIndex + 4)
ListBox4.Value = .Range('g' & Me.ComboBox3.ListIndex + 4)
ListBox5.Value = .Range('h' & Me.ComboBox3.ListIndex + 4)
ListBox6.Value = .Range('i' & Me.ComboBox3.ListIndex + 4)
ListBox7.Value = .Range('j' & Me.ComboBox3.ListIndex + 4)
ListBox8.Value = .Range('k' & Me.ComboBox3.ListIndex + 4)

With Me

End With
End If

Next O
End With

End Sub

 

Vote positif 0 Vote négatif

G

gex1403

Guest

• 16 Avril 2006

• #4

Salut le forum, francois, luc
Francois envois ton fichier exemple sur le fil, pour l'instant je ne peux pas , je sort, mais je regardes ton fichier ce soir et je te reponds

@micalement

 

Vote positif 0 Vote négatif

F

François

Guest

• 16 Avril 2006

• #5

Bonjour gex1403, Luc, le forum,

J'ai laissé dans le fichier le minimum mais le tout devrait fonctionner.

Voici le lien pour le fichier car il dépasse les 50k.

http://cjoint.com/?eqpXcpl1Vc

Merci beaucoup de ton aide.

François

 

Vote positif 0 Vote négatif

G

GSXR282005

Guest

• 16 Avril 2006

• #6

Salut Francois, j'ai modifié ton fichier , remplacé ton userform par un autre, voir le code pour finaliser sur les colonnes que tu veux.J'ai supprimé la feuil1, pour reduire le fichier a moins de 50 ko

@micalement [file name=Test_20060416211927.zip size=40137]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_20060416211927.zip[/file]

 

Pièces jointes

• Test_20060416211927.zip

  39.2 KB · Affichages: 112

Vote positif 0 Vote négatif

F

François (le débutant)

Guest

• 17 Avril 2006

• #7

Bonjour gex1403, Luc, le forum,

J'ai regardé ton code mais j'ai un problème car je fonctionne avec 3 combobox.

Donc avec ces lignes :
Private Sub UserForm_Activate()
Me.ComboBox1.SetFocus
End Sub

J'essaie avec :
Private Sub UserForm_Activate()
Me.ComboBox2.SetFocus
End Sub
Private Sub UserForm_Activate()
Me.ComboBox3.SetFocus
End Sub

pour trouver la ligne de référence pour toutes les données en D,E,F,G,H,I,J,AG.

Comment faire avec mes 3 combobox ?

Merci beaucoup de ta patience.

 

Vote positif 0 Vote négatif

G

gex1403

XLDnaute Occasionnel

• 17 Avril 2006

• #8

Salut francois,
Je travaille sur ton problème, ca avance pas mal, par contre un problème va se poser, ton fichier grossit et je ne pourrai pas le poster sur le forum.
Une adresse mail ne serait pas de refus

@micalement

 

Vote positif 0 Vote négatif

F

François

Guest

• 17 Avril 2006

• #9

Bonjour gex1403, Luc, le forum,

Mon adresse est : vulkins45@yahoo.fr

Tu peux aussi utiliser le site www.cjoint.com.

Comme tu as pu le constater, dans mon userform les 3 combobox fonctionnent bien mes c'est l'affichage dans les textbox qui causent problème.

Merci beaucoup

 

Vote positif 0 Vote négatif

L

Luc

Guest

• 17 Avril 2006

• #10

Bonjour gex, le forum,

De mon côté tout est parfait.

UN GROS MERCI pour ton aide.

 

Vote positif 0 Vote négatif

G

gex1403

XLDnaute Occasionnel

• 17 Avril 2006

• #11

Salut francois, luc

J'ai avancé , problème qui reste, j'ai du faire une betise et impossible de la voir, fonctionne avec combo2, voir avec combo1 et 3

@micalement

http://cjoint.com/?ers5Y7pYDG

 

Vote positif 0 Vote négatif

G

gex1403

XLDnaute Occasionnel

• 17 Avril 2006

• #12

Re modif qui marche mieux, une question, pourquoi veux tu absoluement 3 combo et dans quel but????



http://cjoint.com/?ervVksWV63

@micalement

 

Vote positif 0 Vote négatif

F

François

Guest

• 18 Avril 2006

• #13

Bonsoir gex1403, Luc, le forum,

Le but de mes 3 combobox est que ma base de données comprend plus de 5000 lignes. Donc en ayant des combobox discriminatoires (une seule occurence (pas de doublons)) me permets de sélectionner plus rapidement la donnée recherchée.

Merci beaucoup pour ton aide

 

Vote positif 0 Vote négatif