Arrêt d'une boucle quand condition vérifiée

Bonjour à tous,

Toujours dans le cadre de ma formation en VBA. Je souhaitais faire un tri dans l'ordre croissant de 5 caractères. Mais je rencontre un problème, voici mon code :

Sub macro()

    Dim valeur
    Dim iComtpeur As Integer
    Dim iColonne As Integer

    Cells(1, 1) = 132
    Cells(2, 1) = 15
    Cells(3, 1) = 675890
    Cells(4, 1) = 23
    Cells(5, 1) = 30230
    Cells(1, 2).Value = WorksheetFunction.Min(Columns("A"))

        For iCompteur = 1 To 6
        valeur = Cells(iCompteur, 1).Value
            If valeur > Cells(1, 2).Value Then
            Cells(2, 2).Value = valeur
            Debug.Print "valeur :" & valeur
            End If
        Next

End Sub

Le problème c'est que j'aimerais que ma boucle s'arrête quand une condition est remplie, pcq en l'état il me donne la dernière valeur supérieure à 15 à savoir 30230

Merci d'avance :)

Bonjour,

utiliser l'instruction Exit For qui force la sortie de boucle.

 For iCompteur = 1 To 6
            valeur = Cells(iCompteur, 1).Value
            If valeur > Cells(1, 2).Value Then
               Cells(2, 2).Value = valeur
               Exit For
            End If
        Next
        Debug.Print "valeur :" & valeur

A+