Seuil

Bonjour,

Voici mon problème en gros j'aimerais rajouter à mon code une TextBox permettant de demander à un utilisateur une marge a adopter.
Je m'explique: Si on entre 20 dans cette TextBox j'aimerais que la macro fasse en sorte que tant que "f4" > "f4-20" la macro continue d'incrémenter car "F4" est négatif et pour "I4"<"I4+20".
J'espère que c'est assez clair pour que vous puissiez m'aider si cela est dans vos compétences.


Voici mon code:
Private Sub CheckBox1_Click()
Range("F4").Value = Range("F4").Value - 5
End Sub
Private Sub CheckBox2_Click()
Range("F4").Value = Range("F4").Value + 5
End Sub
Private Sub CheckBox3_Click()
Range("F4").Value = Range("F4").Value - 5
Range("I4").Value = Range("I4").Value + 5
End Sub

Private Sub UserForm_Initialize()
CheckBox1.Value = IIf(Incrémentation_de_Tmin = "OK", True, False)
CheckBox2.Value = IIf(Incrémentation_de_Tmax = "OK", True, False)
CheckBox3.Value = IIf(Incrémentation_des_deux = "OK", True, False)

End Sub

Private Sub CommandButton1_Click() 'Fermeture de la boite de dialogue apres un click sur "Valider"
Incrémentation_de_Tmin = IIf(CheckBox1.Value = True, "OK", "NON")
Incrémentation_de_Tmax = IIf(CheckBox2.Value = True, "OK", "NON")
Incrémentation_des_deux = IIf(CheckBox3.Value = True, "OK", "NON")

Unload Me
End Sub

Merci de vous de prendre le temps sur mon problème.
Et veuillez m'excuser si j'ai fait des fautes ...