msgbox

[Tail]

bonsoir
j'ai ce code

10 For a = 1 To Cells(118, 2) msg = MsgBox("Feuille " & a & " à l'impression", vbRetry, "suivi d'impression")
msg = 4

mais j'aimerais ne pas avoir à cliquer sur le message, juste l'afficher puis disparaitre puis reaparaitre à la prochaine boucle etc .
merci

 

[Lord Nelson]

Re : msgbox

Salut,

Effectivement, cliquer "OK" 118 fois ça fatigue !

Tu devras donc choisir d'afficher un UserForm non modal au lieu d'une MsgBox et prévoir une sortie de boucle lorsque l'utilisateur clique "Annuler".

Ca pourrait ressembler à :

Dim Temps1 As Single
UserForm1.Show 0
For a = 1 To Cells(118, 2)
  UserForm1.Label1 = "Impression Feuille " & a
  Temps1 = Timer + 1
  Do While Timer < Temps1
        DoEvents    ' Donne le contrôle à d'autres processus.
  Loop

  If UserForm1.Tag = "Annul" Then
    Exit For
  End If
Next
Unload UserForm1

A+
Horatio

 

[Tail]

Re : msgbox

bonjour
je pense que ça pourrai etre mieux effectivement
j'ai essayé mais j'ai une erreur de compil à : UserForm2.Label1 = "Impression Feuille " & a

pourtant j'ai créer mon userform2
je ne comprends pas

merci

 

[Tail]

Re : msgbox

re
que doit contenir ma userform ?

j'ai du mal à suivre ce matin

 

[Lord Nelson]

Re : msgbox

Salut,

Pour tester le UserForm, tu dois y placer une étiquette (Label1) et un bouton de commande (CommandButton1) pour annuler l'impression.
Ainsi que ce code :

Private Sub CommandButton1_Click()
Me.Tag = "Annul"
End Sub

Le clic sur le bouton sera ainsi mémorisé et pourra être lu dans la boucle.

A+

 

[fifayer]

Re : msgbox

Waou très intéressant cette possibilité d'annulation !

Merci merci merci !😀

 

[Tail]

Re : msgbox

trop bien merci