Bonjour,
J'ai une combobox comportant des % (50%, 20%..)dans une userform.
Quand je selectionne 50% par exemple il apparait dans la combobox 0.5 et pas 50%.
Est il possible de faire apparaitre 50% au lieu de 0.5
Merci d'avance pour vos réponse.
Cdt
en effet, pas évident...
le seul moyen que j'ai trouvé pour gruger est de mettre un espace entre le nombre et le signe %...
Code:
Private Sub ComboBox1_Change()
On Error Resume Next
Application.EnableEvents = False
ComboBox1.Text = Format(CDbl(ComboBox1.Text) * 100, "0"" %""")
Application.EnableEvents = True
On Error GoTo 0
End Sub
Bien vu le FormatPercent... on se demande quand même pourquoi les pourcentage sont les seuls nombres qui ne se formatent pas avec la fonction Format...
Pourrier vous me joindre le fichier du zip par Accueil de Cjoint.com car je ne peux pas ouvrir les fichiers zip
Merci d'avance
Le code de "bhbh":
Private Sub ComboBox1_Change()
Me.ComboBox1.Value = FormatPercent(Me.ComboBox1, 0)
End Sub
Il fait apparaitre les pourcentage dans la combobox mais quand je clique sur mon bouton OK ou Annuler de ma Userform de saisie il y a un débogage
Pour quel raison??