Stopper une boucle mini maxi
sormick
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour.
J'ai une macro qui permet de répertorier dans une colonne les chiffres manquants :
Voici la macro:
Sub Manque()
mini = Application.Min([C:C])
maxi = Application.Max([C:C])
k = 1
For i = mini To maxi
If IsError(Application.Match(i, [C:C], 0)) Then
Cells(k, 1) = i
k = k + 1
End If
Next i
End Sub
Comment faire pour que cette boucle s'arrete au bout de maximum 500 manques?
J'ai une macro qui permet de répertorier dans une colonne les chiffres manquants :
Voici la macro:
Sub Manque()
mini = Application.Min([C:C])
maxi = Application.Max([C:C])
k = 1
For i = mini To maxi
If IsError(Application.Match(i, [C:C], 0)) Then
Cells(k, 1) = i
k = k + 1
End If
Next i
End Sub
Comment faire pour que cette boucle s'arrete au bout de maximum 500 manques?
3 réponses
-
Bonjour,
Tu peut crée un variable que tu vas incrémenter à chaque manques.
Et avec une Tant que, tu test si la variable a atteint les 500 si oui tu quittes sinon tu fais le bout de code.
Cordialement. -
Désolé je n'ai pas compris je débute en VBA mais j'ai résolu le souci en créant une condition comme ceci:
Sub Manque()
mini = Application.Min([C:C])
maxi = Application.Max([C:C])
k = 1
For i = mini To maxi
If IsError(Application.Match(i, [C:C], 0)) Then
Cells(k, 1) = i
k = k + 1
If Not Range("a5") = "" Then GoTo stopmanques
End If
Next i
stopmanques::
End Sub -
bonjour,
si j'ai compris la demande
cells(k, 1) = i
k = k + 1
If k>500 then exit for
