Liste de choix dans un combobox

[billysteph]

Bonjour à tous,

J'aimerai que lorsque je click sur "OptionButton2, ce soit ma liste de choix 1
qui se place dans mon ComboBox, et que lorsque je selectionne "OptionButton1", ce soit la premiere liste.
Quelqu'un aurait une idee??
Merci encore,

 

[Mathieu]

Salut Billy,

fais Alt+F11 et rajoute ce code dans la Feuil3

Private Sub ComboBox1_GotFocus()
ComboBox1.Clear
If OptionButton1.Value = True Then
For i = 8 To 10
With ComboBox1
.AddItem Range("D" & i)
End With
Next i
Else
For i = 8 To 10
With ComboBox1
.AddItem Range("E" & i)
End With
Next i
End If
End Sub

Pour expliquer:
La procedure s'execute quand tu clickes sur la combo.
D'abord elle est vidée
Si le bouton 1 est coché (=vrai) on va ajouter (additem) les valeurs des cases D8, D9, D10
Sinon on va ajouter les valeurs des cases E9...

En esperant que ca te convienne,
Mathieu.

 

[billysteph]

Re bonjour,

Parfait mathieu, c'est tout a fait ce que je voulais.
Merci beaucoups

 

[billysteph]

Encore moi......

Juste une derniere question, serrai ce possible de mettre la liste dans une celulle, et non pas dans un comboBox???
Merci,

 

[Mathieu]

Une liste dans une cellule?
Mathieu.

 

[billysteph]

Bonsoir Mathieu,

Oui, en fait, je voudrai la meme chose que ce que tu m'as expliquer, sauf dans une liste de validation ou lieu d'un ComboBox.
Enfin, si c'est faisable
Merci encore

 

[Mathieu]

Salut,
Si tu veux ces resultats dans une liste tu remplaces ton combobox par une listbox, et tu remplaces "combobox1" dans le code par "listbox1"


Private Sub ListBox1_GotFocus()
ListBox1.Clear
If OptionButton1.Value = True Then
For i = 8 To 10
With ListBox1
.AddItem Range("D" & i)
End With
Next i
Else
For i = 8 To 10
With ListBox1
.AddItem Range("E" & i)
End With
Next i
End If
End Sub


Mathieu.