Mise à jour ComboBox

Bonjour à tous,

Ca fait longtemps que je n'ai pas poster quelque chose (en général je trouve en lisant le forum - Mais là je tourne en rond)

Mon probléme:
J'ai un tableau excel (Base de donnée)
Un userform dans lequel j'affiche les valeurs de ma BdD
Des combobox dans lesquelles j'affiche le résultat d'un filtre automatique
Des textbox qui affiche la valeur de la ligne en cours

Je voudrais que lorsque je choisit une valeur dans une ComboBox :
- n'afficher plus que cette valeur dans la combobox
- refiltrer les autres combo

Mon gros PROBLEME est que :
si j'utilise l'événement _Click je vide complétement ma combo
si j'utilise l'événement _AfterUpdate il faut que je click ailleur pour activer le déclenchement

Autre problème je voudrais afficher la valeur de mon 1er index dans la combo

J'espère avoir été assez clair 8O

Merci

bonjour,
il me semble que l'évènement :

Code:

---

1 2 3

Private Sub ComboBox_Change()   End Sub

---

répond à ton énoncé, non ?

Non pas plus, j'avais dèja essayer :?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub ComboBox1_AfterUpdate() Selection.AutoFilter Field:=1, Criteria1:=ValueCombo 'Init_Champs_Liste MAJ01 End Sub   Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)   ValueCombo = ComboBox1.Value Me.ComboBox1.Clear End Sub     Private Sub ComboBox2_Change()   Selection.AutoFilter Field:=2, Criteria1:=ComboBox2.Value MAJ01 End Sub

---

Le PB avec _Change ou _Click c'est que la fonction est rappellée lorsque que l'on "clear" la combo

ok,
et si tu évites de mettre un coup afterupdate, un coup before update, et juste mettre le tout dans la fonction change ?

Pourquoi ne mets tu pas le

Code:

---

ComboBox1.Clear

---

dans le code de ta procedure MAJ01 ?

Bonsoir,

Citation:

---

Envoyé par ftcalvados

Le PB avec _Change ou _Click c'est que la fonction est rappellée lorsque que l'on "clear" la combo

---

Et alors ? Il suffit de lui dire ne ne rien faire quand le combo est vide :

Code:

---

1 2 3 4 5 6

Private Sub ComboBox2_Change() If ComboBox2.ListCount > 0 Then Selection.AutoFilter Field:=2, Criteria1:=ComboBox2.Value MAJ0 End If End Sub

---

Cordialement,

Que de réponses !!!

Citation:

---

et si tu évites de mettre un coup afterupdate, un coup before update, et juste mettre le tout dans la fonction change ?

---

C'était juste pour te montrer les 2 façons d'écrire

Citation:

---

Pourquoi ne mets tu pas le "clear"

---

C'est un essai, mais si je le laisse ça redéclenche l'appel à la fonction _Change

"Bigalo", j'analyse et je teste ta proposition ;)

Citation:

---

Envoyé par Bigalo

Et alors ? Il suffit de lui dire ne ne rien faire quand le combo est vide :

---

Et oui !!! c'est bien la solution :yaisse2:

Merci à tous !
(j'ai peut-être encore un autre Pb, mais je ferai un autre post)

8-)

Les procédures événementielles sont extrêmement pratiques, à condition ne ne pas les subir : il ne faut pas hésiter à choisir dans quelles circonstances elles doivent être exécutées !

Cordialement

Mon deuxième probléme est aussi résolu (affichage du premier élément de la liste dans la combobox)

Idem, j'ai fait une condiftion

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ComboBox1_Change()   If ComboBox1.ListCount > 0 Then If AffichageValeurCombo = False Then Selection.AutoFilter Field:=1, Criteria1:=ComboBox1.Value MAJ01 End If End If End Sub

---

Merci encore :lol: