XL 2016 combobox : rajouter saisie à la liste

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
 

Discussions similaires

Réponses
4
Affichages
454
Réponses
3
Affichages
600
Réponses
13
Affichages
479

Statistiques des forums

Discussions
315 122
Messages
2 116 454
Membres
112 747
dernier inscrit
Boudiou