ComboBox1.ListIndex + 2

[geraldvc]

Je reviens vers vous
Salut a tous
J'ai des CheckBox qui change la Rowsource de ma comboBox1.
Les tectebox 123 et 124 DEVRAIENT change de contenu en fonction de mon choix des Checbox et la je ne vois pas comment faire?

je joint un exemple de l'userform

Merci d'avance

 

[Softmama]

Bonjour geraldvc,

Tu peux ajouter ces lignes en tête de checkbox_Change :

Me.TextBox123 = ""
Me.TextBox124 = ""
Me.ComboBox1.Value = ""

cf. fichier joint

 

[MJ13]

Re : ComboBox1.ListIndex + 2

Bonjour Gerald, Softmama

Tu peux tester ce fichier:

J'ai défini la zone traiteur, comme cela, la liste se limite aux seules données présentes.

Tu peux faire la même chose pour les autres listes.

Si tu rajoutes des éléments, il faudra redéfinir la liste avec names.

ex: vu avec Herny:

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:= _
        False
End Sub

 

[geraldvc]

désolé mais ça ne fonctionne pas...

 

[MJ13]

Re : ComboBox1.ListIndex + 2

Re

désolé mais ça ne fonctionne pas...

c'est sur qu'avec cela, on n'est pas très avancé

 

[geraldvc]

Re: Re : ComboBox1.ListIndex + 2

J'ai renommé les colonnes sauce, accompagnement, mais rien ne change
Explique moi je suis débutant ...

PS:Comment mettre un fichier attacher dans une réponse, depuis qu'il ont changer le cite je suis perdu.



c'est sur qu'avec cela, on n'est pas très avancé [/QUOTE]

 

[MJ13]

Re : ComboBox1.ListIndex + 2

Re

Pour envoyer les pièces jointes, il faut aller en mode avancé lorsque tu réponds à la discussion puis cliquer sur Gérer les pièces jointes qui se trouve sous la fenêtre de réponse.

J'ai renommé les colonnes sauce, accompagnement, mais rien ne change
Explique moi je suis débutant ...

Teste ce fichier. J'ai remplacé les checkboxs par des options buttons (je te laisse le soin de les renommer) qui sont plus simple à programmer. De plus, j'ai mis une explication pour nommer facilement des listes.

En cas de problème, tu peux revenir .

 

[geraldvc]

tout d'abord merci,
Je crois que on ne ce comprend pas
J'explique: Quand je choisis la checkboxs ; traiteur------>bisque ----->il faut qu'il me donne le prix de 15€
Mais que si je choisis la checkboxs ; sauces-------------> Mirabelle--->il faut qu'il me donne le prix de 16€
Ou troisième solution la checkboxs ; accompagnement---> Croquette-->il faut qu'il me donne le prix de 4€
Donc le prix qui est dans la deuxième colonne a côte de l'article.
Quand j'avais que "traiteur" ça fonctionnais avec ceci:
Dim H As Integer

H = ComboBox1.ListIndex + 2
TextBox123 = Sheets("listearticle").Range("c" & H)
TextBox124 = Sheets("listearticle").Range("b" & H)

 

[MJ13]

Re : ComboBox1.ListIndex + 2

Re

Dans ce cas je te propose:

Private Sub ComboBox1_Change()
Dim H As Integer
H = ComboBox1.ListIndex + 2
If Me.OptionButton1 = True Then col = 2
If Me.OptionButton2 = True Then col = 5
If Me.OptionButton3 = True Then col = 8
TextBox123 = Sheets("listearticle").Cells(H, col + 1).Value
TextBox124 = Sheets("listearticle").Cells(H, col).Value
End Sub

 

[geraldvc]

IMPECCABLE c'est juste ce que je cherchais.

Merci