Aide rapide sur Combobox avec valeur de combobox

bonjour et merci d'avance aux Excellent Excellien

Sur la PJ ma recherche simple que la valeur minimum de la 2e combo soit le résultat de la 1er combo...

bonjour milaerdo,

essaye ce code, dans le module de ta feuille :

------------------------------------------------------------------------
Private Sub ComboBox1_Change()
MAJCombo2
End Sub
------------------------------------------------------------------------

et dans un module standard :

------------------------------------------------------------------------
Sub MAJCombo2()

Sheets(1).ComboBox2.Clear
Sheets(1).ComboBox2.Text = Sheets(1).ComboBox1.Text

Dernierjour = Day(DateSerial(Year(Date), Month(Date) + 1, 0))

If Val(Sheets(1).ComboBox1.Text) > Dernierjour Then
Sheets(1).ComboBox2.Text = " "
End If

For i = Sheets(1).ComboBox1.Text To Dernierjour
Sheets(1).ComboBox2.AddItem i
Next

End Sub
--------------------------------------------------------------------------

amicalement