Slection automatique du mois selon combobox

Bonjour le forum

je reviens vers vous pour savoir si il est possible que le calendar prenne en compte le mois selectionner dans un combobox.

en fait j'ai un combobox qui selectionne la feuille du mois voici le code

 Private Sub ComboBox2_Click()
    Dim Feuille As String
    If ComboBox2.Value <> "" Then
        If FeuilleExiste(ComboBox2.Value) Then
        'Feuille = ComboBox2.Value
         ' Worksheets.Select (ComboBox2.Value)
        Else
            MsgBox ("La feuille : " & ComboBox2.Value & " n'existe pas...")

       End If
       End If
    End Sub

et en dessous un calendrier mais il reste figer au mois en cours

est t'il possible de le forcer a prendre en compte le mois selectionner.?

Merci de votre aide

Bonjour,

oui cela est possible mais peut-on avoir plus de détail sur le userForm(encore mieux un fichier ) par exmple une fois le mois sélectionner,DateDébut et fin se généré automatique?? qu'y a-t'il dans les comboBox de dateDébut et fin ? ect...

bonjour minanse

je joint un extrait du fichier (trop lourd pour le site )

https://www.cjoint.com/c/FFxkhlohPXe

merci de ton aide

Bonjour,

les macro du fichier ne fonctionne pas sur ma version :/ mais j'ai plus ou moins et pense avoir une petit solution :

dans le code

Private Sub combobox2_change()
mois = Format(ComboBox2.Text, "m")  'convertie le mois en "lettre" en "chiffre"
Datedeb.Text = DateAdd("m", mois, Date)   'cette fonction prendre la date du jour et remplace le mois par le variable 
End Sub

re bonjour

bon alors après plusieurs test cela ne fonctionne pas

j'ai remplacer pour les test cette parti du code que j'avais

Private Sub combobox2_change()
ComboBox2 = Format(ComboBox2.Value, "mmmm")
End Sub

par le tiens minanse mais cela plante en fait cela me coupe carrément excel.

de plus dans le combobox je n'ai plus le mois d'affiché mais des chiffres donc pas trés propre.

merci quand meme de ton aide

si tu a d'autre idée je prend

Bonjour Reinruof.

Une possibilité :

Private Sub combobox2_change()
    ComboBox2 = Format(ComboBox2.Value, "mmmm")
    Changer_Mois
End Sub
Private Sub Changer_Mois()
    If Format(Datedeb, "mmmm") <> ComboBox2.Value Then
        Datedeb = DateAdd("m", (Me.ComboBox2.ListIndex + 1) - Format(Datedeb, "m"), Datedeb)
        Datefin = DateAdd("m", (Me.ComboBox2.ListIndex + 1) - Format(Datefin, "m"), Datefin)
    End If
End Sub

Pour récupérer le numéro de mois en Combobox2, je suis parti sur le numéro de ligne, sachant que ça commence à 0, j'ajoute 1.

je me suis mal exprimer ^^

le code n'est pas a remplacer mais a ajouter

RE

merci a tout les deux thebenoit59 et minanse

problème résolue