Comment sortir de boucle for quand condition atteinte

Résolu/Fermé
John - 30 oct. 2019 à 02:32
 John - 30 oct. 2019 à 13:29
Bonjour,

Comment je fais pour sortir d'une boucle for, sans utiliser le (Goto). C'est mon examen de vba bientôt et je sais pas comment.

Voici un exercice ou je dois créer une fonction qui demontre si les valeurs du tableau en 1D sont deccroissant. Help

Public Function EstEnOrdreDecroissant(ByRef tableau() As Double) As Boolean

Dim i As Integer ' compteur de boucle
Dim donnee1 As Integer ' variable pour l'associer à la premiere valeur de la boucle
Dim stockVariable As Integer ' compteur pour stocker la dernière valeur du tableau

EstEnOrdreDecroissant = False
stockVariable = 0
For i = LBound(tableau) To UBound(tableau)
donnee1 = tableau(i)
If tableau(i) <= stockVariable Then
EstEnOrdreDecroissant = True
Else
EstEnOrdreDecroissant = False


stockVariable = tableau(i)

Next i


End Function

2 réponses

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 281
30 oct. 2019 à 05:36
Bonjour,
Je pense qu'un simple EXIT FOR devrait faire l'affaire
0
Mais tu mets où ton exit, je l’ai essayé et ça fait en sorte que ça fasse un seul tour de boucle. Je me mets peut être à la mauvaise place.

Merci
0