Discussion :

[Alex.d]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Alex.d]

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

Merci!
Alex