Problème incompatibilité de type sur Userform

Bonjour la communauté :) Me voici de nouveau :)

Toujours des heures et des heures à corriger (essayer de corriger) mais en vain. cette fois ci voici ce que j'ai sur mon userform :

Le code dans Userform_Initialize est le suivant pour ce champ :

TextBox10 = Format(0.19, "Percent")

Quand je clique sur ce textbox et modifie la valeur c'est à dire quand j'efface 19,00% et j'écris 21 et je sors du textbox, s'affiche alors 21,00% dans ce dernier et pas de beug.

Voici le code dans Exit Textbox:

Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TextBox10 = Format(TextBox10 / 100, "Percent")

End Sub

MAIS, et c'est là où je rencontre le problème, quand je clique dessus OU le parcoure avec la touche Tab pour me déplacer, alors quand je le quitte, ça beug !

Pourtant l'événement déclencheur du code est le même cad quand je quitte le textBox ...Pouvez vous m'aider à résoudre ce problème ?

Merci

Bonjour,

En utilisant une valeur booléenne, peut-être?

En haut du code de l'usf, tu mets cette déclaration :

Dim Flag as Boolean

A l'initialisation de l'usf :

Private Sub UserForm_Initialize()
Me.TextBox10 = Format(0.19, "Percent")
Flag = False
End Sub

Dans l'évènement "Change" du TexBox10 :

Private Sub TextBox10_Change()
Flag = True
End Sub

Puis à l'évènement "Exit" :

Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Flag Then Me.TextBox10 = Format(Me.TextBox10 / 100, "Percent")
Flag = False
End Sub

Peut-être?

Bonjour cousinhb29,

merci :) effectivement ça marche je n'ai plus de beug ... sauf que là lorsque je modifie l'écriture, si je mets 21 au lieu de 19,00% et je sors, ça ne s'ffiche plus 21,00% mais reste 21 ...

Re-,

Mes essais étaient concluants...

Effectivement ça marche bien :)

Impeccable Merci beaucoup Cousinhb29