Discussion :

[adridech]

Bonjour,

J'aimerais que l'on m'explique pourquoi lorsque j'utilise la fonction FIND, elle ne fonctionne pas lorsque qu'elle doit rechercher une nombre avec décimale (3,2 ; 1,9; ...) dans un range de valeur.. alors que la recherche de nombre entier (1 ; 2 ; 3 ;...) fonctionne.

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim lbest As Integer
Dim bestratiotole As Single
bestratiotole = Application.WorksheetFunction.Large(Worksheets("résultat").range("E10:E" & DerniereLigne), iratio) 
 
lbest = Worksheets("résultat").Columns("E").Find(bestratiotole, lookat:=xlWhole).Row

ici, on recherche "bestratio" dans une plage de donnée, mais lorsque celui ci vaut par exemple, 3.3, la fonction bloque.
J'ai regardé sur des pages telles que https://msdn.microsoft.com/en-us/vba...d-method-excel .
J'ai alors essayé d’être plus précis et voulant expliquer à ma fonction FIND que je recherchais des valeurs pouvant prendre des décimales, et donc rechercher des SINGLE mais je n'arrive pas à utiliser la bonne synthaxe.

Pourriez-vous m'aider ?

Merci à vous tous.

[Menhir]

A mon avis, c'est l'éternel problème de la non francisation de VBA.
Ici, c'est sans doute lié au fait que dans ton Excel français, la décimale est la "," alors que pour VBA farouchement anglophone, la décimale est le ".".
Find est plus performant pour chercher les chaines de caractères.

[adridech]

En effet, ca ne peut être que ça...

Pour ceux à qui ca pourrait servir :

Pour remplacer la fonction FIND, j'ai utilisé un petit Do While de cette facon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
    Dim lbest As Integer
    Dim bestratiotole As Single
    lbest = 10
 
    bestratiotole = Application.WorksheetFunction.Large(Worksheets("résultat").range("E10:E" & DerniereLigne), iratio)
 
        Do While Worksheets("résultat").Cells(lbest, 5) <> bestratiotole
        lbest = lbest + 1
        Loop

lbest nous donne donc la ligne à laquelle la valeur "bestratiotole" se trouve.
Cette technique a ses limites, notamment lorsqu'il y a plusieurs valeurs identiques dans le range de donnée... Mais dans mon cas, ce n'est pas grave.

Bien à vous.

[Menhir]

Cette technique a ses limites, notamment lorsqu'il y a plusieurs valeurs identiques dans le range de donnée... Mais dans mon cas, ce n'est pas grave.

Autres risques : si ta zone de recherche dépasse 35000 ligne, ta variable Interger sera dépassée.
D'une manière générale, quand une variable contient des numéros de ligne Excel, il vaut mieux utiliser le type "Long".

Mais même avec cette modif, si la valeur n'est pas trouvée, le code plantera, sans doute par dépassement d'indice sur le Range.
Il faudrait que tu gères ça en ajoutant une condition avec un While accolé au Loop pour limiter le nombre de lignes scrutées, par exemple à Rows.Count - 1.

[eriiic]

Bonjour,

une cellule contient un Double, essaie en typant comme ça ta variable. Une différence de décimale éloignée est possible.
Et dans .find() il est préférable de définir systématiquement lookat ET lookin. Tu ne sais pas ce qu'un utilisateur aura pu utiliser comme paramètre dans un Rechercher manuel, ils sont repris.
eric