XL 2016 combobox : rajouter saisie à la liste

[cyrikou]

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 :

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

 

[thebenoit59]

Bonjour Cyrikou.
Avec un fichier tu auras plus de réponses.

 

[cyrikou]

Oui effectivement, le voilà en pièces jointes
Merci

 

[thebenoit59]

Bonjour Cyrikou.
Tu comptes conserver l'utilisation dans la feuille, ou tu le feras dans un usf ?

 

[cyrikou]

Oui car je ne veux pas usf pour alléger le code et c'est pas mal quand c'est dans la feuille... C'est juste récupérer en fin de liste une nouvelle saisie et éviter les doublons...