Je reviens vous
La formule marche parfaitement. Cependant je voudrais ajouter une condition : une fois qu'on a notre taux interval, je souhaite faire un check sur des cellules. En dernière ligne, vous aurez la nouvelle ligne que j'ai ajouté
If valeur.Offset(0, -3) > valeur.Offset(1, -4) And Not valeur.Offset(1, -4) Is Nothing Then tauxInterval = "pas bon"
Function tauxInterval(valeur As Double, interval As String)
Dim tmp1, tmp2, tmp3
Dim i As Long
tmp1 = Split(interval, ";")
For i = UBound(tmp1) To 0 Step -1
tmp2 = Split(tmp1(i), " ")
tmp2(0) = Replace(Replace(tmp2(0), "[", ""), "]", "")
tmp3 = Split(tmp2(0), "-")
If valeur > tmp3(0) And valeur <= tmp3(1) Then tauxInterval = tmp2(1): Exit For
Next i
If valeur.Offset(0, -3) > valeur.Offset(1, -4) And Not valeur.Offset(1, -4) Is Nothing Then tauxInterval = "pas bon"
End Function
Le problème c'est que offset ne s'applique pas à une cellule. "Valeur" n'est pas une cellule mais bien une valeur donc offset ne fonctionne pas. Auriez vous une alternative ?
Cdt