Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

arreter uen boucle FOR avec un msgbox

kolivier

XLDnaute Occasionnel
Bonjour le forum,

Dans mon code j'ai une boucle for qui me permet de gérer beaucoup de lignes EXCEL, je coupe, pour des besoins internes, la boucle toutes les 20 lignes et je réamorce en cliquant OK sur la msgbox.

voic le code :

For j = 0 To ListBox2.ListCount - 1
With ListBox2
.ListIndex = j
For i = 0 To UBound(NOM)
Controls(NOM(i)) = .list(j, i)
Next i
End With
If (j > 0) And ((j + 1) Mod 20 = 0) Then MsgBox ("Les 20 suivants")


Comment puis je faire pour proposer egalement dans le msgbox un arret plur et simple de la boucle for, dois je passer par un varAnswer (varAnswer = MsgBox("Arret du PROG", vbYesNo, "Quitter")
If varAnswer = vbYes .....
else
end if.

Dans ce cas je cale completement.

Merci de votre temps.
 
Dernière édition:
T

THE CAT 2007

Guest
Re : arreter uen boucle FOR avec un msgbox

Bj,

Un msgbox yes no et sur reponse no -> exit for ?

Question subsidiaire : le next j se trouve où ? à la fin du code ?
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…