VBA:Recuperer les jour correspondant au mois.

[kewell]

Bonjour tout le monde
Alors par souci de présentation j'ai créé un Userform afin de remplacer ma page d'acceuil Excel.
Ce Userform est composé de deux ComboBox:
Une pour les mois
L'autre pour les jour correspondant au mois choisi

Il a aussi deux boutons, un Valider un Quitter.

Dans la premiere ComboBox je recupere tous les mois placés dans une autre feuille.
Colonne D de la Feuil2
Mois
janvier 2006
février 2006
mars 2006
avril 2006
mai 2006
juin 2006
juillet 2006
août 2006
septembre 2006
octobre 2006
novembre 2006
décembre 2006

Pour les recuperer je rentre ces lignes de programme:
Dim i As Integer
For i = 2 To Sheets('Feuil2').Range('D1').End(xlDown).Row
Me.ComboBox4.AddItem Sheets('Feuil2').Range('D' & i).Value
Next i



Dans la deuxiéme ComboBox je voudrais récuperer dans une liste ,ou tous les jours de l'année son rentrés,les jours correspondant au mois choisi. Avec les formules Excel j'arrive a le faire et sa fonctionne bien. Mais sous VBA je sais pas comment faire.

Si il faut plus d'information n'hésitez pas...

Merci pour tout Kewell

Message édité par: kewell, à: 23/06/2006 14:07

 

[n3Twork]

Re:Mise en place de boite de dialogue.

Slt

je pense que tu peu t'inpirer de ceci Lien supprimé

Ce n'est pas des cbx mais des listbox lors du clique sur une colonne sa nous affiche dans l'autre listbox les valeur de cette colonnes ....

 

[kewell]

Re:Mise en place de boite de dialogue.

Salut n3Twork
Je vais voir sa de suite, merci beauxoup...
Kewell

 

[PascalXLD]

Re:Mise en place de boite de dialogue.

Bonjour

Pour ta première

Me.ComboBox4.AddItem format(Sheets('Feuil2').Range('D' & i).Value,'mmmm yyyy')

Bon courage

 

[kewell]

Re:Mise en place de boite de dialogue.

Merci pascal
Kewell