Transformer un item "String" d'une ComboBox en valeur numérique

[Magic_Doctor]

Bonsoir,

J'ai une ComboBox dont les items sont des pourcentages :
5%
10%
15,5%
.
.
.

J'ai du mal, par la suite, à transformer l'item sélectionné de la ComboBox en valeur numérique pour pouvoir l'exploiter.

Merci pour m'y aider.

 

[Magic_Doctor]

Re : Transformer un item "String" d'une ComboBox en valeur numérique

Bon, j'ai trouvé :
soit x, la valeur numérique que l'on veut récupérer dans la ComboBox "Combo".
x = Val(Combo)

En tout cas, ça marche avec les pourcentages.

 

[Dranreb]

Re : Transformer un item "String" d'une ComboBox en valeur numérique

Bonsoir
À mon avis, s'il peut y avoir une virgule on ne peut pas éviter un Replace :
soit Val(Replace(Combo.Text, ",", "."))
soit CDbl(Replace(Combo.Text, "%", ""))

 

[Magic_Doctor]

Re : Transformer un item "String" d'une ComboBox en valeur numérique

Bonsoir Dranreb,

Tu as tout à fait raison. Je n'avais fait des essais qu'avec des entiers et non des décimaux.
Et oui... les Anglo-Saxons avec leur ponctuation... Avec des décimaux, effectivement, on n'a que le résultat du même chiffre mais entier.
Ta 1ère solution ne marche pas chez moi, mais la seconde oui.
Merci pour ta correction.

 

[job75]

Re : Transformer un item "String" d'une ComboBox en valeur numérique

Bonjour Magic_Doctor, Bernard,

Ceci fonctionnera quel que soit le séparateur décimal de l'ordi :

Dim x As Variant
x = Evaluate(Replace(ComboBox1, ",", "."))
[A1] = IIf(IsNumeric(x), x, "") 'A1 au format pourcentage (pour tester)

A+

 

[Magic_Doctor]

Re : Transformer un item "String" d'une ComboBox en valeur numérique

Bonjour job,

J'ai essayé ta solution, après avour déclaré "x" (sur ma feuille "tva") "As Variant" ("tva" était déclaré "As Double"), et ça ne marche pas.

 

[job75]

Re : Transformer un item "String" d'une ComboBox en valeur numérique

Re,

Pas testé ton fichier car je suis sur Excel 2003.

Mais note bien que l'item de la combo est évalué avec son signe %, donc x ne doit pas ensuite être divisé par 100...

A+

 

[Magic_Doctor]

Re : Transformer un item "String" d'une ComboBox en valeur numérique

Re,

C'est curieux, j'ai ôté "/100" et ça arrondi et les résultats sont inattendus...

 

[job75]

Re : Transformer un item "String" d'une ComboBox en valeur numérique

Re,

Tu t'emmêles passablement les pédales avec tes ListIndex, ton code est à revoir.

A+

 

[Magic_Doctor]

Re : Transformer un item "String" d'une ComboBox en valeur numérique

Re,

Le problème, c'est que je m'emmêle souvent les pédales avec VBA...
Je vais voir.

Hasta luego