cyrikou
XLDnaute Occasionnel
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 :
je vous remercie
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 Subje vous remercie