Combobox avec condition HELP!

[alex67800]

Bonsoir le forum,

J'ai un petit soucis que je n'arrivepas à résoudre, malgré les différents fils que j'ai consulté sur le forum, et que j'ai tenté d'adapter.

J'ai un Usf avec plusieurs combo. je voudrai en lier 2

je vous met le bout de code que j'ai tenté de faire et qui n'a rien donné:

Private Sub ComboBox4_Change()
Dim x As Integer
Dim y As Integer

Me.ComboBox5.Clear
With Sheets("BDD")
x = ("S####")
y = ("C####")
If ComboBox4.Value = x Then Me.ComboBox5.AddItem .Range("e5")

If ComboBox4.Value = y Then Me.ComboBox5.AddItem .Range("e2:e4")


End With

    
End Sub

Excusez mon ignorance. Mais avec ces conditions je ne m'en sort définitivement pas.

Les # correspondent à une série de 4 chiffres, qui peuvent changer, donc la condition doit se faire uniquement sur la première valeur (S ou C).

Pourriez-vous m'éclairer? Je ne comprend plus rien, malgré plusieurs méthodes que j'ai trouvé.

Petite info ma cbx4 prend sa source dans l'inialize comme ceci:

With Sheets("BDD")
ComboBox4.List = .Range("b2:b" & .Range("b65536").End(xlUp).Row).Value

Je pense ne pas être loin de la solution mai je sèche totalement, d'autant que je n'ai aucun message d'erreur.

Merci d'avance pour votre aide et conseils toujours si précieux.

 

[Mytå]

Re : Combobox avec condition HELP!

Salut le forum

Private Sub ComboBox1_DropButtonClick()
ComboBox2.ListIndex = ComboBox1.ListIndex
End Sub

Un début de solution à adapter à ton fichier

Mytä

 

[alex67800]

Re : Combobox avec condition HELP!

Salut le forum



Un début de solution à adapter à ton fichier

Mytä

Bonjour Myta,
je saisie mal ton code, pourrais-tu m'expliquer?
Celui-ci ne dit-il pas que la lit cbx2 est la même que cbx1?

Bon c'est vrai je ne suis pas bien réveillé. Je ne vois pas ou sont les conditions lol.

Si tu pouvais m'éclairer. Merci.