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.
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: