Private Sub ComboBox_F25_Change()
If Me.ComboBox_F25 <> "" Then
d = Asc("G") 'la 1ère à effacer
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.ComboBox Then
If InStr(ctrl.Name, Chr(d)) > 0 Then
ctrl.Value = ""
d = d + 1
End If
End If
Next
End If
End Sub
Private Sub UserForm_Initialize()
d = Asc("G")'début
f = Asc("J")'fin
For i = d To f
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.ComboBox Then
If InStr(ctrl.Name, Chr(i)) > 0 Then
ctrl.AddItem Chr(i)
ctrl.ListIndex = 0
End If
End If
Next
Next
Me.ComboBox_F25.AddItem "Efface"
End Sub