Private Sub ComboBox1_Enter()
With Sheets(IIf(OptionButton1, "Juin", IIf(OptionButton2, "Juillet", "Août"))).[A1].CurrentRegion
If .Rows.Count = 1 Then Exit Sub
ComboBox1.List = .Offset(1).Resize(.Rows.Count - 1, 2).Value
ComboBox1.DropDown
End With
End Sub
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then
TextBox1 = ""
Else
TextBox1 = ComboBox1.List(ComboBox1.ListIndex, 1)
End If
End Sub
mais que doit on attendre ? voir lien ci dessous !je vous remercie beaucoup de mon côté j'avais fait ceci et j'aimerai connaitre votre verdict