Bonsoir Farscape, Sylvain, le forum,
Tu peux modifier ton code comme suit:
Private Sub CommandButton1_Click()
' Ce If est Ok !
If ComboBox1 = '' Or TextBox1 = '' Then MsgBox 'Des champs sont vides', vbInformation + vbOKOnly, 'Erreur données !!!'
' Pour celui-ci, il faut passer à la ligne sinon le End If suivant ne
' sert à rien
If OptionButton1 = False And OptionButton2 = False Then
MsgBox 'Veuillez indiquez le type d'opération désirée.'
Exit Sub
End If
If OptionButton1 Then
Feuil3.Range('c' & ComboBox1.List(ComboBox1.ListIndex, 1)) = Feuil3.Range('c' & ComboBox1.List(ComboBox1.ListIndex, 1)) + TextBox1
ElseIf OptionButton2 Then
Feuil3.Range('c' & ComboBox1.List(ComboBox1.ListIndex, 1)) = Feuil3.Range('c' & ComboBox1.List(ComboBox1.ListIndex, 1)) - TextBox1
End If
MsgBox 'Mise à jour effectué avec succès'
End Sub
Amicalement
Charly