bonjour Alguiche,
Private Sub UserForm_Initialize()
With ComboBox1
.RowSource = 'Feuil1!D1
6'
End With
With ComboBox2
.RowSource = 'Feuil1!D1
6'
End With
End Sub
Sub CalQt1()
TextBox3.Value = Val(TextBox1) * Val(TextBox2) * Range('E' & (IIf(ComboBox1.ListIndex > 0, ComboBox1.ListIndex + 1, 1)))
End Sub
CalQt2() peut être construit de la même façon.
D'autres contributeurs simplifieront encore certainement ces macros
Cordialement