Stopper une boucle mini maxi
Fermé
sormick
-
28 mai 2014 à 14:30
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 29 mai 2014 à 07:56
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 29 mai 2014 à 07:56
A voir également:
- Stopper une boucle mini maxi
- Meilleur mini pc - Guide
- Opera mini pc - Télécharger - Navigateurs
- Geekom mini it11 - Guide
- Mini traceur pour lunettes - Guide
- Geekom mini it13 - Guide
3 réponses
JeanGlaude2
Messages postés
8
Date d'inscription
mercredi 28 mai 2014
Statut
Membre
Dernière intervention
28 mai 2014
21
28 mai 2014 à 14:49
28 mai 2014 à 14:49
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
29 mai 2014 à 07:56
29 mai 2014 à 07:56
bonjour,
si j'ai compris la demande
cells(k, 1) = i
k = k + 1
If k>500 then exit for
si j'ai compris la demande
cells(k, 1) = i
k = k + 1
If k>500 then exit for
