XL 2010 Listes combobox avec critère et sans doublons

[Superemi]

Bonjour à tous, le forum,

Je souhaiterai obtenir une liste de dates en fonction de 2 combobox (année et mois).
La liste de chaque combobox à des critères et ne doit pas comporter de doublons.

J'ai cherché mais je n'arrive pas à cumuler les macros pour faire ce que je veux.
Le détail dans le fichier en PJ qui est plus compréhensible.

Merci de votre aide et de vos lumières.
Superemi.

 

[phlaurent55]

Bonjour superemi,

Un début de réponse concernant l'alimentation des combobox
remplace ton code par celui-ci

Private Sub UserForm_Initialize()

' combobox1 sans doublons
  Set f = Sheets("Feuil1")
  Set MonDico = CreateObject("Scripting.Dictionary")
  a = f.Range("C2:C" & f.[C65000].End(xlUp).Row)
  For i = LBound(a) To UBound(a)
    If a(i, 1) <> "" Then MonDico(a(i, 1)) = ""
  Next i
  Me.ComboBox1.List = MonDico.keys

' combobox2 sans doublons
  Set MonDico = CreateObject("Scripting.Dictionary")
  a = f.Range("D2:D" & f.[D65000].End(xlUp).Row)
  For i = LBound(a) To UBound(a)
    If a(i, 1) <> "" Then MonDico(a(i, 1)) = ""
  Next i
  Me.ComboBox2.List = MonDico.keys

End Sub

à+
Philippe

 

[Superemi]

Bonjour Philippe,

Merci de ton retour, ça fonctionne !
Je regarde maintenant pour intégrer le critère (en fonction de la valeur du Label4), je reposterai si je n'avance pas.

Superemi.

 

[Superemi]

Bonjour à tous,

Je n'arrive pas à alimenter ma Listbox de droite.
Dans celle-ci doit apparaître les dates correspondant aux critères de la 1ère Listbox, 2ème Listbox et du Label.
Malgré de nombreuses recherches et tentatives, ça ne marche pas.
Je remet le fichier avec un bout de code que j'ai trouvé.

Merci de votre aide !

Superemi.

 

[Superemi]

Bonjou(re),

J'ai réussi, grâce à une autre aide, à trouver le code et à l'adapter pour mon fichier.
Dsl pour ceux qui s'étaient éventuellement penché dessus.
Pour ceux que ça intéresse, voici le fichier.

Superemi.

 

[Superemi]

Bonjour à tous,

Je continu ce fil car je n'arrive pas à réaliser la suite de la macro, et je n'ai rien trouvé.
A partir du résultat sélectionné dans la ListBox1 de l'Userform1, je fais OK.
Je souhaiterai dans le Userform2 avoir les 7 lignes (ou moins s'il y a moins) se trouvant au-dessus du résultat sélectionné dans la ListBox1.
Je remets le fichier avec des exemples pour être plus clair.

Merci de votre aide !

Superemi.