ComboBox Liste Affichage

Bonjour,

j'aurais une question par rapport au ComboBox.

J'aimerais faire une Combobox avec une liste déroulante relié à une autre feuille. J'aimerais que lorsque je sélectionne un des item de la liste, cela fait apparaitre une plage [nommé]. Je suis capable a présent de faire cela.

Lorsque je Sélectionne un autre Item, J'aimerais que le premier Item Disparaisse et que le second aparraise, et ainsi de suite pour plusieurs item. Par contre, présentement, je dois refaire le macro pour que mon premier item disparaisse

Je n'ai pas beaucoup d'expérience en programmation alors je n'ai trouvé que de solution partielle. Voici une partie de mon code

Code:

---

1 2 3 4 5 6 7 8

Private Sub ComboBox1_Change() Me.ComboBox1.List = Worksheets("Liste des choix").Range("B3:B30").Value   If ComboBox1.Value = Worksheets("Liste des choix").Range("B3").Value Then Feuil1.SSFB End If End Sub

---

Code du macro SSFB

Code:

---

1 2 3 4 5 6 7 8

Sub SSFB() Dim Liste As String With Range("SSFB") Liste = .Row & ":" & .Row + .Rows.Count - 1 End With Rows(Liste).Hidden = Not (Rows(Liste).Hidden) End Sub

---

Je voudrais Sélectionner B3, dans la "Liste des Choix"
et par la Afficher/disparaitre un lorsqu'elle est sélectionner ou non.

Merci! Si vous avez une piste de solution!

Alex

J'ai finalement conserver la solution précédente et cela fonctionne après quelques modification de plage.

Merci!
Alex