% dans combobox

[akmer]

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

 

[Pyrof]

Re : % dans combobox

Bonjour,

As-tu vraiment besoin de mettre le caractère % dans ta combo

 

[tototiti2008]

Re : % dans combobox

Bonjour à tous,

en effet, pas évident...
le seul moyen que j'ai trouvé pour gruger est de mettre un espace entre le nombre et le signe %...

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

 

[kjin]

Re : % dans combobox

Bonjour,
Ou peut-être en indiquant le format après saisie ("AfterUpdate" ou "Exit")

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = FormatPercent(TextBox1 / 100)
End Sub

A+
kjin

 

[akmer]

Re : % dans combobox

Malheurezement sa ne marche pas,une autre idée??

 

[tototiti2008]

Re : % dans combobox

ben ce que je t'ai proposé marche, si tu acceptes les espaces...

 

[Cousinhub]

Re : % dans combobox

Bonjour,


Ce que t'a donné Kjin fonctionne :

Private Sub ComboBox1_Change()
Me.ComboBox1.Value = FormatPercent(Me.ComboBox1, 0)
End Sub

 

[tototiti2008]

Re : % dans combobox

Bonjour à tous,

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...

 

[Bebere]

Re : % dans combobox

bonjour à tous
tototiti comme suit c'est ok
ComboBox1.Text = Format(CDbl(ComboBox1.Text) * 100, "0%")
à bientôt

 

[tototiti2008]

Re : % dans combobox

Bonjour Bebere,

chez moi ça plante carrément, il n'arrive pas à calculer :

CDbl(ComboBox1.Text)

pour info, j'ai fait une Rowsource avec les données au format % dans les cellules.

 

[pierrejean]

Re : % dans combobox

Salut à tous

petit essai pour des % dans combobox

 

[akmer]

Re : % dans combobox

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??

 

[pierrejean]

Re : % dans combobox

Re

Voici le fichier en .xls

 

[akmer]

Re : % dans combobox

Merci, je vais essayer d'adapter ce code pour mon programme
Cdt