Problème de compatibilité de variable :'o(

Hello les amis, c'est à nouveau moi pour une nouvelle question lol

Je vous explique, j'ai réussi à afficher les valeurs dans une liste box tout est ok, mais maintent que je veux prendre une de ces données, ben gros souci...

Exemple de mon code :

Dim Nbr As Double   'Vi Double car c'est des chiffres à virgules'

Dim NbrTot As Double

Nbr = ListBox1.List (i, 9)      '---------> le souci ici c'est que ListBox1.List retourne un String, enfin une chaine de caractère

NbrTot = NbrTot + Nbr
i = i + 1

bon y a une boucle en haut encore, mais ej vais pas l'écrire là... et j'ai une erreur "13", et si je mets as Variant ça marche mais ça me fait plus les calcules et mets les un après les autre...

Est-ce que qqun aurait une réponse simple à me donner, merci d'avance

Nbr = CDbl(ListBox1.List (i, 9))

A condition que la chaine renvoyer puisse etre interprétée comme un nombre.


---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

ListBox1.List (i, 9)   ??

pourquoi ces deux indices ?


Renfield
Admin CodeS-SourceS- MVP Visual Basic

hello ami programmeur, Ben j'ai essayé avec le CDbl... mais ça ne marche pas, ils me renvoie tout de même Erreur "13" Problème d'imcompatibilités.......................

Le pire c'est que parfois il accepte quand je mets rien, mais parfois il plante... ça aussi je trouve completment pas logique...

Les 2 valeur serve car c'est ListBox1.List(ligne, colonne) Il sélectionne la ligne i et la colonne 9...

Mais ça ne marche toujours pas... toujours cette erreur, dans le débuger c'est marque que ma variable nbr= 0 et le ListBox1.List(i, 9) = "0,4" mais ça ne passe pas même avec le CDbl devant...

Je suis trop bloqué la dessus...

Cdbl utilise les paramèrte regionnaux...

si CDbl ( "0,4" ) ne fonctionne pas, je pense que tu utilises le point, sur ton poste ("0.4")

a se demander comment tu t'es retrouvé avec cette virgule....

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Essaye dans ce cas juste pour voir de déclarer nbr en type Variant et affiche dans une message box le contenu de nbr.
Tu as toujours ta virgule ? Pas un point ou autre chose ?
Et essaye ensuite de convertir ta variable avec Cdbl...

Mais puisque tu parles de virgule, moi j'ai une préférence pour le type de variable Currency.

Dim nbr as Currency
Et pour convertir un type String, on utilise CCur

Mais ça dépend de tes besoins.

Molenn

Lu,
à la base, la listbox à qu'une colonne..
ton code est pas bon : ListBox1.List(i, 9) = "0,4"

sauf par api, on peut en mettre plusieur

yep, non c'est un point qui s'affiche et non une virgule... aie aie... suis paumé...

hello, yep c'est ce que j'ai cru à la base, mais non, on peut avoir des colonnes grâce à la fonction List, mais le souci, c'est que justement tout fonctionne, mais y une erreur au niveau des variables, si je les mets tous en variant, ben ça marche nickel sauf que au lieu de marquer "1" qui serait le résultat de 0.4+0.6 il me marque 0.40.6......

Voilà mon souci... et juste avant si jamais je vais chercher les informations sur une feuille excel,  comme ceci

ListBox1.List(i, 9) = Cells(Row, 14).Value

REEEEEEEEEEEEEEEEEEEEEEEEEEEE!!!!!!!!!!!??

Vi alors désolé, j'ai fait un test avec un MsgBox (Nbr) et effectivement c'est 0,4!!!!
donc pas de point... c'est logiquement pour ça que ça ne fonctionne pas, mais pourquoi??? dans excel, c'est bien un point ou je récupère la valeur... comment je peux faire ???

C'est urgent en +... aidez moi merci