XL 2019 incrémentation valeur txtbox

[oléanor]

Bonjour

je voudrais que les valeurs saisie dans une txtbox ne puisse qu’être des incrémentation de 5 en 5...

Après avoir cherché vraisemblablement la fonction NumericUpAndDown pourrais me le gérer ainsi que les valeurs maxi et mini mais je n'arrive pas a la mettre en place...

d'avance emrci

 

[job75]

Bonjour oléanor,

Si la TextBox est dans une feuille de calcul, le code de la feuille :

Private Sub TextBox1_LostFocus()
Dim n
n = CInt(Val(TextBox1))
If TextBox1 <> CStr(n) Or n Mod 5 Then TextBox1 = "": TextBox1.Activate
End Sub

Si elle est dans un UserForm :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim n
n = CInt(Val(TextBox1))
If TextBox1 <> CStr(n) Or n Mod 5 Then TextBox1 = "": Cancel = True
End Sub

A+

 

[job75]

Avec la TextBox dans une feuille de calcul il faut impérativement mettre une valeur acceptée dans la TextBox.

Sinon la macro boucle sans fin quand on ferme le fichier.