[RESOLU] bouton annuler d'une boite de dialogue ne stoppe pas la macro, pbl de code!

Verba_Tim

XLDnaute Occasionnel

• 13 Septembre 2011

• #2

Re : bouton annuler d'une boite de dialogue ne stoppe pas la macro, pbl de code!

Salut

Essaye de placer un petit "End" à la fin, ça devrait tout arrêter normalement.

Cordialement,


VB_T

 

Vote positif 0 Vote négatif

C

chismah

XLDnaute Nouveau

• 13 Septembre 2011

• #3

Re : bouton annuler d'une boite de dialogue ne stoppe pas la macro, pbl de code!

Où dois-je placer le "end"?
Le if ayant son end if et le sub son end sub.

Je ne suis pas sur de la formulation, débutant en VBA ca me semblait logique...

Code:

 If Cancel = True Then
    Exit Sub
 End If

 

Dernière édition: 13 Septembre 2011

Vote positif 0 Vote négatif

Verba_Tim

XLDnaute Occasionnel

• 14 Septembre 2011

• #4

Re : bouton annuler d'une boite de dialogue ne stoppe pas la macro, pbl de code!

Re,
Désolé de répondre si tard ^^'
Le End met fin à toute les procédures en cours, et réinitialise les variables. Test en le mettant à la place du End sub.

Au plaisir de te lire,


VB_T

 

Vote positif 0 Vote négatif

C

chismah

XLDnaute Nouveau

• 14 Septembre 2011

• #5

Re : bouton annuler d'une boite de dialogue ne stoppe pas la macro, pbl de code!

je comprend mieux ce que tu veux dire.
La macro se termine sans problème par le "end sub", en fait, je n'arrive pas a interrompre la macro entre la selection de l'imprimante par défaut via la boite de dialogue, et l'impression de la plage "printzone". interuption qui devrait se produire lorsqu'on clique sur le bouton "annuler" de la boite de dialogue.

la formulation du cancel=true doit etre fausse mais je ne voit pas quoi mettre à la place.

 

Vote positif 0 Vote négatif

C

chismah

XLDnaute Nouveau

• 14 Septembre 2011

• #6

Re : bouton annuler d'une boite de dialogue ne stoppe pas la macro, pbl de code!

c'est résolu, j'ai modifié le code, en fait c'était plutôt simple!

Code:

Private Sub Impression_Click()

 If Application.Dialogs(xlDialogPrint).Show = False Then
   Exit Sub
   Else
     Range("PrintZone").PrintOut
 End If

End Sub

merci beaucoup!

 

Vote positif 0 Vote négatif

Verba_Tim

XLDnaute Occasionnel

• 14 Septembre 2011

• #7

Re : [RESOLU] bouton annuler d'une boite de dialogue ne stoppe pas la macro, pbl de

Mais de rien ^^ j'ai pas fait grand chose ^^ tu as trouvé la solution comme un grand!
Bien joué à toi ^^

A +

VB_T

 

Vote positif 0 Vote négatif