Aide rapide sur Combobox avec valeur de combobox

[milaerdo]

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...

 

[OnErrorResumeNext]

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