UserForm avec 2 zones de liste modifiables

[Holeshotman]

Bonjour à tous,

Débutant en VBA, je fais appel à vous pour m'aider !
J'ai un classeur Excel composé de 3 feuilles :
- une nommée "2012"
- une autre nommée "2013"
- la dernière nommée "2014" (vous vous y attendiez^^)

J'ai créé dans "ThisWorkBook" un UserForm avec 2 zones de liste modifiables :
- une nommée "Année"
- une nommée "Documents"

En fait j'aimerais, en fonction de ce que je choisis dans la zone de liste "Année" (soit "2012", soit "2013", soit "2014"), qu'apparaisse dans la zone de liste "Documents" :
- Les documents inscrits dans les cellules allant de A2 à A50 de la feuille "2012"
- Les documents inscrits dans les cellules allant de A2 à A50 de la feuille "2013"
- Les documents inscrits dans les cellules allant de A2 à A50 de la feuille "2014"

Voilà ce que j'ai codé pour l'instant :

Private Sub UserForm_Initialize()

 ComboBox1.AddItem ("2012")
 ComboBox1.AddItem ("2013")
 ComboBox1.AddItem ("2014")
 
 End Sub
 
Sub Lance()

Load UserForm1
UserForm1.Show

End Sub

Private Sub ComboBox1_change()
Select Case ComboBox1.Value
Case Is = 2012
ComboBox2.Value = 1
Case Is = 2013
ComboBox2.Value = 2
Case Is = 2014
ComboBox2.Value = 3
End Select
End Sub

Private Sub Fermer_Click()

Unload Me

End Sub

Cela semble fonctionner avec des valeurs ("1", "2" et "3") mais ce n'est pas ce que je veux faire !!

Merci par avance pour votre aide !

 

[Pierrot93]

Re : UserForm avec 2 zones de liste modifiables

Bonjour,


petite remarque au passage, le mieux serait peut être d'utiliser 2 combo....

bonne journée
@+

 

[Holeshotman]

Re : UserForm avec 2 zones de liste modifiables

Bonjour Pierrot93,

C'est justement ce que j'ai fait (avec une nommée "Année" et une autre nommée "Documents")

 

[Pierrot93]

Re : UserForm avec 2 zones de liste modifiables

Re,

Bonjour Pierrot93,
C'est justement ce que j'ai fait (avec une nommée "Année" et une autre nommée "Documents")

bah... c'est pas ce qui est écrit dans le code que tu nous montres....

 

[Pierrot93]

Re : UserForm avec 2 zones de liste modifiables

Re,

aarf, suis mal voyant moi.... modifie ceci :

ComboBox2.Value = 1

comme cela :

Combobox2.List = Sheets("2012").range("A2:A50").value

 

[Holeshotman]

Re : UserForm avec 2 zones de liste modifiables

Impeccable ! Peut être même 2 peccables !
J'avais essayé quelque chose de ce genre, mais n'avais pas mis le ".List". Je pense que c'est ça qui n'allait pas ..

Merci encore ;-)