XL 2016 combobox : rajouter saisie à la liste

  • Initiateur de la discussion Initiateur de la discussion Jojo973
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Jojo973

XLDnaute Occasionnel
Supporter XLD
Bonjour à tous,

j'ai deux comboboxes sur une feuille, la valeur de 1 détermine la liste de l'autre.
Je n'ai pas de problème pour alimenter cette combobox selon le choix de la première. Il y est proposé une liste non exhaustive et l'utilisateur à la possibilité de saisir son propre choix.
J'aimerai que ce qui a été saisi par l'utilisateur se rajoute à la fin de la liste initiale à la fin de la saisie.
Voici le code :
VB:
Private Sub CBcbx1_Change()
Dim Var_domaine As String
Dim Tab1() As Variant

'récupération de la valeur qui va déterminer le choix

Var_domaine = CBcbx1.Value

'test

Select Case Var_domaine

Case Is = "CYCLE 1"
'définition de la liste selon le cas
With Sheets("Cycle1")
    Tab1 = .Range("A1:A" & .Range("A65536").End(xlUp).Row).Value
End With
'alimentation de la deuxième comboboxe
CBcbx2.List = Tab1

End Select
End Sub

je vous remercie
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
201
Réponses
8
Affichages
233
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
650
Réponses
6
Affichages
1 K
Retour