Boujour à tous,
Je viens de tomber sur un problème très bisard avec VB: , alors je parcour un tableau et je recherche dans ce tableau un double donc voici comment je fais :
Les variables parcour_valeur et tableau_releves(I) sont des double, donc je lance ma fonction, donc la premiere valeur affiché par MsgBox est 0, la deuxième 0.1 la troisième 0.2 ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Do Until parcour_valeur = valeur_deb_parcour MsgBox(parcour_valeur) I = 1 Do Until I = nb_releve If article.tableau_releves(I) = parcour_valeur Then x(I) = article.tableau_releves(I) n(I) = n(I) + 1 End If I = I + 1 Loop parcour_valeur = parcour_valeur + "0,1" Loop
Jusque la ca va, mais arrivé a la 16ème valeur environ, il pète un plomb et m'affiche 0,16000000001??? à rien y comprendre.
@++
Merci
Partager