[E-00] ComboBox en cascade + TextBox

Bonjour à vous tous,

Tout d'abord, je travaille en excel 2000 ;);)

Dans mon fichier, j'ai un userform dans lequel je sélectionne dans un 1ere combobox une liste de famille.

Une fois ma famille choisie, une seconde combo me propose les critères liés à cette famille (choisie en combo 1).

Mon soucis est que je voudrais qu'un commentaire s'insère automatiquement dans une textbox après avoir choisie mon critère (dans la combo 2), et je n'arrive pas a coder celà.

Un exemple :
Je choisis la famille aaaa (en combo1) => je choisis le critère 6 (dans combo 2) => je voudrais que s'affiche automatiquement dans ma textbox "ceci est le critère 6"

Je conçois qu'en soit c'est pas forcément très clair :P c'est pourquoi je vous joint le classeur exemple avec le code que j'ai déjà commencé a faire pour les 2 combo.

Je vous remercie par avance

Salut,

bah tu fais une boucle qui teste la colonne de ton numéro de critère, tu trouve la ligne correspondante à ton critère et tu récupère la valeur de la case d'à coté que tu mets dans ton textbox sur l'évennement change de la combobox.

Tu pourrais m'aider concernant la boucle ? :oops:

ou sinon tu tape ton code dans l'userform de la 1er combobox
Je t'envois un exemple demain en cas.

Merci à tous les deux !

Je continue de chercher mais je fatigue et désespère...

Bonjour,
Tu peux utiliser offset pour décaler la cellule renvoyée.

Bonjour,

En effet je pense qu'avec Offset ça doit marcher mais comme l'a dit Fouinard il faudrait faire une boucle qui renvoie le numéro de la ligne dans laquel se trouve ce que j'ai sélectionné dans la combo et pour faire ça.......... grand moment de solitude lol

Merci !

Essaye ça :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ComboBox2_Change() With Range("b1:b500") Set c = .Find(ComboBox2.Value, LookIn:=xlValues) If Not c Is Nothing Then TextBox1 = c.Offset(0, 1).Value End If End With   End Sub

---

Tu es le dieu vivant de la macro !!!!!!!!

Ca marche impec !!

Résolu !

Surement à plus tard pour un autre problème je dois encore rajouter des listes à mon fichier ;)

voila la boucle maintenant tu peux améliorer un tantinet la chose en déterminant la derniere case non vide de ta colonne en changeant :

Code:

---

With Range("b1:b500")

---

par

Code:

---

With Range("b1:b" + cstr(Range("B65535").End(xlUp).Row))

---

Effectivement ça fonctionne aussi !

Merci a tous