Stopper une boucle mini maxi Fermé

Question

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?

JeanGlaude2 · Answer

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.

sormick · Answer

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

michel_m · Answer

bonjour,

si j'ai compris la demande

cells(k, 1) = i
k = k + 1 
If k>500 then exit for

Stopper une boucle mini maxi

3 réponses

Discussions similaires