Re : Remise ou majoration
bonjour,
Rajoute les instructions en gras :
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
If TextBox1 = "" Then TextBox1 = 0
If OptionButton2 Then
Range("A4") = "Majoration de " & TextBox1 & " %"
End If
If OptionButton1 Then
Range("A4") = "Remise de " & TextBox1 & " %"
End If
If OptionButton1 = False And OptionButton2 = False Then Range("A4") = "Remise de " & TextBox1 & " %"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingRows:=True
Unload Me
End Sub