Excel VBA - Trouvez l'adresse maximale (ou une valeur spécifique) dans la gamme, si la plage containes valeurs DOUBLE

Question

Le problème:

Il y a une plage avec deux valeurs. Je voudrais obtenir l'adresse de la valeur maximale. J'ai essayé avec la fonction de match, mais il ne peut pas comparer les doubles (donne des résultats faux), et ma gamme n'est pas commandée.

Il existe des solutions moche (par exemple, je peux multiplier mes nombres par 10000, si je veux une précision de 5 chiffres, puis obtenir la partie entière et la comparer, mais il est très lent avec plus de 20000 lignes). des solutions plus élégantes.

Merci de

de données Exemple: Ce sont les chiffres après Debug.Print

B 7.59999999999934E-02 
C 7.00000000000074E-02 
D 0.335000000000008 
E 8.19999999999936E-02 
F 8.49999999999937E-02 
G 7.39999999999981E-02 
H 5.49999999999926E-02 
I 0.070999999999998 
J 0.165000000000006 
K 7.59999999999934E-02 

Answer 1

Pourquoi ne pas simplement itérer votre gamme et changer une variable si la prochaine valeur double des cellules est supérieure? Une fois que vous avez terminé cette plage, utilisez la recherche pour retourner la ligne et la colonne. Voir ci-dessous

Dim i as Variant 
For Each i In Worksheets("yourWorkSheet").Range(Range("youStartCell"), Range("yourStartCell").End(xlDown)).Cells 
    If i.Offset(-1) < i Then 
     i = i.value 
    End if 
Next 

Doit ressembler à ceci. Besoin de gérer le cas de la première rangée en boucle, mais si je l'ai fait, vous n'auriez pas de travail à faire.

Answer 2

Ceci est ma solution finale:

'Find max and its address in range 
Public Function maxAddress(rng As Range) As DoubleLong 

Dim cell As Range 

For Each cell In rng 
    If IsNumeric(cell.Value2) Then 
     If cell.Value2 > maxAddress.db Then 
      maxAddress.db = cell.Value2 
      maxAddress.lg = cell.Row 
     End If 
    End If 
Next cell 
End Function 

où est défini un type:

Public Type DoubleLong 
    db As Double 
    lg As Long 
End Type