Comment sortir de boucle for quand condition atteinte

Résolu
John -  
 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
A voir également:

2 réponses

M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
Bonjour,
Je pense qu'un simple EXIT FOR devrait faire l'affaire
0
John
 
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