Actualiser un taux de TVA ET taux de remise

Private Sub CommandButton1_Click()

If TextBox1.Value Or TextBox2.Value > 0 Then

Feuil4.Cells(7, 2) = TextBox3.Value / 100

Feuil4.Cells(8, 2) = TextBox4.Value / 100

Else

MsgBox ("Il faut rentrer une valeur")

End If

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Private Sub TextBox3_Change()

End Sub

Private Sub TextBox4_Change()

End Sub

Private Sub UserForm_Activate()

TextBox3.Value = Feuil4.Cells(7, 2) * 100

TextBox4.Value = Feuil4.Cells(8, 2) * 100

End Sub

Private Sub UserForm_Click()

End Sub

Bonjour et bienvenu sur le site

Pour espérer avoir de bonnes réponses il faut poser les bonnes questions

Le code ne suffit pas que veux tu que l'on corrige?

Le code modifié

Private Sub CommandButton1_Click()

    Dim valeur1 As Double
    Dim valeur2 As Double

    ' Vérification que les TextBox contiennent des valeurs numériques
    If IsNumeric(TextBox1.Value) Then
        valeur1 = CDbl(TextBox1.Value)
    Else
        MsgBox "Veuillez entrer une valeur numérique dans TextBox1.", vbExclamation
        Exit Sub
    End If

    If IsNumeric(TextBox2.Value) Then
        valeur2 = CDbl(TextBox2.Value)
    Else
        MsgBox "Veuillez entrer une valeur numérique dans TextBox2.", vbExclamation
        Exit Sub
    End If

    ' Vérification que l'une des valeurs est supérieure à 0
    If valeur1 > 0 Or valeur2 > 0 Then
        ' Mise à jour des cellules
        Feuil4.Cells(7, 2) = CDbl(TextBox3.Value) / 100
        Feuil4.Cells(8, 2) = CDbl(TextBox4.Value) / 100
    Else
        MsgBox "Il faut rentrer une valeur supérieure à 0 dans TextBox1 ou TextBox2.", vbExclamation
    End If

End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

Private Sub UserForm_Activate()
    ' Chargement des valeurs dans les TextBox
    TextBox3.Value = Feuil4.Cells(7, 2) * 100
    TextBox4.Value = Feuil4.Cells(8, 2) * 100
End Sub

Cordialement

bonjour,

personnellement j'utiliserai une combobox avec les TVA

Feuil4.Cells(7, 2) = val(replace(TextBox3.Value,",",".")) & "%"