Additionner des % d'une listbox Résolu

Question

Bonjour, j'ai un problème avec l'une de mes listbox, j'éssai d'additionner le contenue d'une colonne ou les chiffre sont en pourcentage et sa ne fonctionne pas. si ce sont de chiffre normale, donc sans le signe % sa marche ! voici le code que j'utilise peut-etre que quelqu'un peux m'aider? max01 fonctionne puisque ses des chiffre ses max02 qui ne fonctionne pas

Dim nb As Integer
Dim max01 As Double
Dim max02 As Double
max01 = 0
max02 = 0
For nb = 0 To plac3.ListCount - 1
If plac3.List(nb) <> " " Then
max01 = max01 + CDbl(plac3.List(nb, 2))
max02 = max02 + CDbl(plac3.List(nb, 6))
End If
Next
max01 = Round(max01, 3)
Label44.Caption = max01
max02 = Round(max02, 3)
Label43.Caption = max02


Merci !

cs_Jack · Answer

Salut

Il faudrait savoir à quoi ressemble le contenu des items de ta ListBox.
Tu peux additionner 10% avec 50%, mais le %, dans ce cas là, est reconnu comme un identificateur de type de donnée, en l'occurrence les Integer (donc limitation à une plage de -32768 à +32767).

Si tu veux faire des calculs sereinement, il te faut supprimer le symbole % de chaque Item avant de vouloir en faire la somme - Voir Replace - et faire une conversion en Double.
Exemple, en supposant que tes chiffres ressemblent à "10.4%" :
max01 = max01 + CDbl(Replace(plac3.List(nb, 2), "%", ""))

ucfoutu · Answer

Bonjour (et un salut à jack),

Je suis quant à moi toujours très inquiet lorsque je vois que l'on veut additionner des pourcentages (euh ... pour quel type de calcul et dans quelles circonstances es-tu conduit à faire une telle addition de pourcentages ?)
Mais il s'agit là d'autre chose que de développement.
 
________________________
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

Additionner des % d'une listbox

2 réponses

Votre réponse

Discussions similaires