Stopper une boucle mini maxi
sormick
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 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?
A voir également:
- Stopper une boucle mini maxi
- Opera mini pc - Télécharger - Navigateurs
- Maxi compte - Télécharger - Comptabilité & Facturation
- Rohos mini drive - Télécharger - Chiffrement
- Stopper pub youtube - Accueil - Streaming
- Dameware mini remote control - Télécharger - Web & Internet
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.
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
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
