Bonjour
J'utilise cette fonction pour calculer la valeur approchée:
Application.Index([X2:X1000], Application.Match([D29], [X2:X1000], 1))
Quelqu'un pourrait-il me dire pourquoi le calcul m'écrit n'importe quoi ?
En D29 j'ai 1100 et il me trouve -0.75 ? Pourtant il y a une valeur proche de 1100. Quan je réduis vraiment la plage ça marche mais je ne peux pas réduire trop la plage.
Et j'utilise cette ligne pour qu'elle s'affiche dans la case:
k = 0
For k = 1 To 10000
If (Worksheets("Réglages").Cells(k, 24).Value = Rang1) And (Worksheets("Réglages").Cells(k, 25).Value) < Worksheets("Réglages").Cells(25, 3).Value Then
Worksheets("Réglages").Cells(29, 7).Value = Worksheets("Réglages").Cells(k, 25).Value
Exit For
End If
Next
Y-a t-il une autre possibilité autre qu'une boucle For qui ne marche pas parfaitement.
Merci 'avance.
Loic.
J'utilise cette fonction pour calculer la valeur approchée:
Application.Index([X2:X1000], Application.Match([D29], [X2:X1000], 1))
Quelqu'un pourrait-il me dire pourquoi le calcul m'écrit n'importe quoi ?
En D29 j'ai 1100 et il me trouve -0.75 ? Pourtant il y a une valeur proche de 1100. Quan je réduis vraiment la plage ça marche mais je ne peux pas réduire trop la plage.
Et j'utilise cette ligne pour qu'elle s'affiche dans la case:
k = 0
For k = 1 To 10000
If (Worksheets("Réglages").Cells(k, 24).Value = Rang1) And (Worksheets("Réglages").Cells(k, 25).Value) < Worksheets("Réglages").Cells(25, 3).Value Then
Worksheets("Réglages").Cells(29, 7).Value = Worksheets("Réglages").Cells(k, 25).Value
Exit For
End If
Next
Y-a t-il une autre possibilité autre qu'une boucle For qui ne marche pas parfaitement.
Merci 'avance.
Loic.