Problème Fonction Find

Bonsoir,

Dans un tableau j'ai des valeurs qui sont toutes des valeurs décimales, parfois certaines sont de la forme 4.5E-05 quand les valeurs sont très petites.

Avec la fonction .Find, je souhaite aller chercher le numéro de ligne et colonne de la valeur la plus petite d'une plage de valeur. J'ai donc repris certains codes trouvés sur la toile et adapté pour mes besoins, ce qui donne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub recherche()   Dim celluletrouvee As Range Dim ligne As Integer Dim col As Integer Dim PlusPetiteValeur As Single   Sheets("O2").Select   PlusPetiteValeur = Application.WorksheetFunction.Min(Range("B6:BK8"))   Set celluletrouvee = Range("B6:BK8").Find(PlusPetiteValeur)   If celluletrouvee Is Nothing Then MsgBox ("pas trouvé")   Else ligne = celluletrouvee.Row col = celluletrouvee.Column MsgBox ("trouvé : ligne = " & ligne & " , colonne = " & col) End If   End Sub

---

Le problème, c'est que j'ai toujours un message "pas trouvé" qui apparaît. Je pensais que ça vient du fait que mes données dans mon tableau sont au format numérique, parfois avec des puissances de 10 ( E-05...) et que la fonction Find va prendre la valeur dans la variable PlusPetiteValeur et la comparer comme une String avec la valeur numérique exacte.

J'ai donc modifié mon tableau en arrondissant toutes mes données avec ROUND afin de ne plus avoir de puissances de 10, mais c'est toujours le même problème...

Quelqu'un aurait-il une idée?

Merci!

Ca fonctionne avec

Code:

---

Dim PlusPetiteValeur As Double

---

Bonjour!

Merci de ta réponse rapide Docmarti.

Il est vrai que ça marche si je remplace Single par Double, mais je rencontre encore le problème avec des données plus grande...

Pour y voir plus clair, voilà le document Pièce jointe 119266

J'ai deux tableaux, O2 et CO2. Les fonctions "differenceO2" et "differenceCO2" me créent en dessous de chaque tableau un deuxième tableau qui contient les valeurs absolue de la différence de chaque valeur du premier tableau avec une valeur de consigne (située tout à droite).

Bref, les fonctions "rechercheO2" et "rechercheCO2" sont censées rechercher le minimum de chaque deuxième tableau et me dire ou il se trouve; et; comme vous pouvez le voir, ça marche avec le tableau O2 et pas avec le tableau CO2...

Quelqu'un verrait où est le problème?

Merci beaucoup!

Sankae

Le problème est qu'il y a 19 décimales à la valeur recherchée dans le tableau CO2 et que cela rencontre un problème de précision numérique des valeurs à virgule flottante.

Au lieu d'utiliser la méthode FIND, il faut faire la recherche avec un FOR NEXT sur chacune des valeurs.

Bonjour,

Pour gagner en temps, tu peux réaliser ta recherche en utilisant un tableau intermédiaire.
La plage utile est copiée dans le tableau et la recherche da la valeur mini est effectuée dans ce tableau. Le minimum ayant été trouvé, on en déduit la position de la cellule dans la plage initiale.

Cordialement.

Bonsoir,

En fin de compte j'ai fait une simple boucle For et ça marche impeccable. Je ne sais pas pourquoi j'ai essayé de me prendre la tête avec cette fonction Find pas très pratique dans mon cas.

Merci à tous, sujet résolu pour moi :)

Tchô!

Sankae.