Transposer en numérique décimal une donnée de type string

Question

Bonjour à tous

J'aurais juste voulu savoir le code à utiliser pour calculer les valeur décimal d'une listbox ?

Merci à tous, bonne soirée

Christian
 
 
--

ucfoutu · Answer

Bonjour,
ta question est ambigüe.
Qu'entends-tu TRES EXACTEMENT par valeur décimale ? 

Ne pas confondre valeur décimale d'un numérique (par rapport à d'autres bases, telle la base 2, 8, etc ...) avec l'expression d'un numérique avec toutes ses décimales éventuelles.

Alors ? De quoi s'agit-il ?
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

cco86260 · Answer

Bonsoir ucfoutu

Pour faire simple, ça concerne mon histoire de calcul d'indice de fissuration, lorsque toutes mes ouvertures de fissures sont dans ma listbox de la forme "0.08", j'aimerais qu'elle soient additionnées et avoir le resultat dans un label.

Merci


 
 
--

ucfoutu · Answer

Bonjour,
Si le séparateur décimal est bien le point que tu montres : utilise la fonction Val
Je dis bien : si c'est bien un point et non une virgule. Car si virgule, utilise d'autres fonctions (ouvre ton aide VBA sur le mot Cdec, par exemple, et lis ).
PS : où en es-tu de cet autre sujet, laissé en plan :
http://codes-sources.commentcamarche.net/forum/affich-10037270-probleme-de-date-a-la-creation-d-un-rapport
Résolu ou non ?

ucfoutu · Answer

J'ai par ailleurs modifié ton titre. Il s'agit bel et bien d'une conversion en numérique d'une chaîne alphanumérique (d'où qu'elle provienne, listbox ou autre ...)

cco86260 · Answer

Bonjour à tous...

Je suis toujours sur mon soucis d'addition des valeurs de ma listbox.... et là je sèche (de bon matin), 
@ucfoutu : même en essayant avec ce que tu m'as dis... je ne suis pas encore assez calé pour ça... (un jour peut être :) )

Si franchement quelqu'un aurait une solution à m'apporter, voici quand même ce que j'ai essayé (mais c'est de la me.... ce que j'ai fais)... 

'On additionne les fissuresDim var As IntegerDim total As Doubletotal = 0For var = 0 To ListBox1.ListCount - 1If ListBox1.List(var) <> "" Thentotal = total + CDbl(ListBox1.ListCount - 1)End IfNext vartotal = Round(total, 3)Label49.Caption = total

Je suis très loin du résultat attendu comme vous le voyez surment... (mais c'est vraiment un essai)

Merci de votre aide...

Christian
 
--

ucfoutu · Answer

Quand-même ...
1) If ListBox1.List(var) <> "" Thentotal = total + CDbl(ListBox1.ListCount - 1)End If
!!!
ListBox1.ListCount n'est pas le contenu d'un article de ta listbox, mais le nombre de ses articles !
Le contenu, c'est ListBox1.List(var)
Fais un effort minimum, s'il te plait !
2) nous ne savons toujours pas (tu nas pas répondu) ce qu'est le séparateur décimal figurant dans les articles de ta listbox, si bien que nous ne savons toujours pas si la fonction Val est à utiliser ou si une fonction de conversion est à utiliser (relis ce que j'en ai dit plus haut, s'il te plait)

Pour mémoire :
Si le séparateur décimal est bien le point que tu montres : utilise la fonction Val
Je dis bien : si c'est bien un point et non une virgule. Car si virgule, utilise d'autres fonctions (ouvre ton aide VBA sur le mot Cdec, par exemple, et lis ). 
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Transposer en numérique décimal une donnée de type string

6 réponses

Votre réponse