arreter uen boucle FOR avec un msgbox

[kolivier]

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.

 

[PascalXLD]

Re : arreter uen boucle FOR avec un msgbox

Bonjour

un petit essai

If (j > 0) And ((j + 1) Mod 20 = 0) Then
If MsgBox("Les 20 suivants", vbYesNo) = vbNo Then Exit For
end if

 

[THE CAT 2007]

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 ?

 

[kolivier]

Re : arreter uen boucle FOR avec un msgbox

Bonjour

un petit essai

If (j > 0) And ((j + 1) Mod 20 = 0) Then
If MsgBox("Les 20 suivants", vbYesNo) = vbNo Then Exit For
end if

Parfait merci bcp, j'étais pas loin mais trop pour trouver la solution, certainement de la fatigue

Bonne soirée et merci encore a ce précieux forum et ses membres toujours sympa et dispos.