Alimenter une combobos suivant choix Option Bouton

[maval]

Bonjour,

J'ai une feuille avec 4 colonnes "Fruit, Fleur, Légume et Objet" J'ai sur un userform 4 Obption Boutton une combobox et un textbox?
J'aimerai que lorsque je sélection une des quatre OptionButton dans la combobox s'affiche la liste du choix sélectionner par la OptionButton.

Je vous remercie d'avance

 

[MADAGASCAR]

Re : Alimenter une combobos suivant choix Option Bouton

Bonsoir Forum
Bonsoir maval
une simple suggestion avec un code d'hier soir de ( DRANREB )
essayes le svp
a quoi sa sert svp textbox ??
cordialement
MADA

 

[job75]

Re : Alimenter une combobos suivant choix Option Bouton

Bonjour maval, MADAGASCAR,

On pourrait utiliser un Module de classe mais pour 4 OptionButtons ce n'est pas vraiment nécessaire.

Dans le code de l'USF :

Private Sub OptionButton1_Click()
Choix OptionButton1.Caption
End Sub

Private Sub OptionButton2_Click()
Choix OptionButton2.Caption
End Sub

Private Sub OptionButton3_Click()
Choix OptionButton3.Caption
End Sub

Private Sub OptionButton4_Click()
Choix OptionButton4.Caption
End Sub

Sub Choix(t$)
Dim r As Range, i&
ComboBox1.Clear
Set r = Sheets("DiversFruits").Rows(1).Find(t, , xlValues, xlPart)
For i = 2 To Application.CountA(r.EntireColumn)
  ComboBox1.AddItem r(i)
Next
ComboBox1.DropDown 'facultatif
End Sub

Nota : xlPart car les textes ne correspondent pas complètement...

Bonne journée.

 

[laetitia90]

Re : Alimenter une combobos suivant choix Option Bouton

bonjour maval,MADAGASCAR,job🙂🙂

on pourrait utiliser ComboBox1_DropButtonClick

Private Sub ComboBox1_DropButtonClick()
 Dim x As Byte, y As Byte
 On Error Resume Next
 For y = 1 To 4
 If Me("OptionButton" & y) Then x = Right(y, 1)
 Next y
 ComboBox1.List = Range(Cells(2, x), Cells(Cells(Rows.Count, x).End(3)(2).Row, x)).Value
End Sub

pour le fun on pourrait simplifier encore

Private Sub ComboBox1_DropButtonClick()
 Dim y As Byte
 For y = 1 To 4
 If Me("OptionButton" & y) Then ComboBox1.List = Range(Cells(2, y), Cells(Cells(Rows.Count, y).End(3).Row, y)).Value
 Next y
End Sub

 

[job75]

Re : Alimenter une combobos suivant choix Option Bouton

Re,

S'il y a beaucoup d'OptionButtons voir le Module de classe dans le fichier joint.

Edit : bonjour Laetitia, heureux de te croiser 🙂

A+

 

[laetitia90]

Re : Alimenter une combobos suivant choix Option Bouton

re tous 🙂🙂🙂

quoi que !!! x=y suffisant

idem JOB toujours un plaisir🙂

 

[maval]

Re : Alimenter une combobos suivant choix Option Bouton

bonjourLaetitia, Madagascar,Job,

Je vous remercie beaucoup je m'excuse de ne pas l'avoir demander avant mais à 3h00 du matin j'étais pas trop réveille. je vais retenir le code de Job qui est toujours de bon conseils du Post 5 juste une petite modif j'aimerai avoir le résultat choisie de la combobox dans le textbox.

Je vous remercie d'avance

Bonne journée

 

[job75]

Re : Alimenter une combobos suivant choix Option Bouton

Re,

j'aimerai avoir le résultat choisie de la combobox dans le textbox.

Là vous m'étonnez maval, en plus quel intérêt ?

Private Sub ComboBox1_Change()
TextBox1 = ComboBox1
'TextBox1 = IIf(ComboBox1.ListIndex = -1, "", ComboBox1)
End Sub

A+