Prendre la première valeur égale ou inférieur à 150 VBA

Bonjour,

le code suivant me permet d'identifier la valeur égale à 150

   
 For i = 5 To dernLigne
        If Fichier1.Worksheets("onglet1").Cells(i, 3) = "" And Fichier1.Worksheets("onglet1").Cells(i, 4) = "150" Then
            ligne_limite = i - 1
            Exit For
        End If
    Next i

le problème c'est que parfois je n'ai pas la valeur 150 mais une valeur inférieur dans ma serie de données par exemple 149 ou 148

je voudrais donc qu'il me prenne la valeur 150 ou la première valeur inférieur si 150 n'apparait pas (mes valeurs sont triès dans l'ordre décroissant)

Merci beaucoup

Bonsoir,

essaie ainsi

   
 For i = 5 To dernLigne
        If Fichier1.Worksheets("onglet1").Cells(i, 3) = "" And Fichier1.Worksheets("onglet1").Cells(i, 4) <= 150 Then
            ligne_limite = i - 1
            Exit For
        End If
    Next i

Bonjour,

ton code modifié

<=150 qui veut dire inférieur ou égal à 150

For i = 5 To dernLigne
            If Fichier1.Worksheets("onglet1").Cells(i, 3) = "" And Fichier1.Worksheets("onglet1").Cells(i, 4) <= "150" Then
                ligne_limite = i - 1
                Exit For
            End If
        Next i