suspendre macro

[David44]

Bonjour,

Suite à un message d'erreur je voudrais suspendre la macro puis pouvoir modifier des cellules puis reprendre la macro. Je ne vois pas comment faire
Merci
GestionErreur:
If Err = 13 Then

Date_erronée = MsgBox("Date_erronée", vbOKCancel)
Select Case Date_erronée
Case vbOK
Worksheets("Mises en Service").Select
Rows(m - 1).Select

je voudrais pouvoir suspendre la macro ici et pouvoir modifier n'importe qu'elle cellule dans le fichier puis reprendre la macro
Case vbCancel
Exit Sub
End Select
End If

 

[Orodreth]

Re : suspendre macro

Bonjour David44

Je suis pas sûr d'avoir très bien compris, mais un point d'arrêt sur la ligne

[COLOR="Red"]Case vbCancel[/COLOR]

ne serait-il pas ce que tu cherches ?

Cordialement,
Thomas

 

[David44]

Re : suspendre macro

Bonjour,

Ce que je veux faire:
Lorsque que je détecte l'erreur (13), je veux pouvoir afficher le message : " erreur dans la date" puis aller modifier les cellules manuellement dans la feuilles et poursuivre l'éxécution de la macro avec un bouton.

Tout celà sans avoir à manipuler dans la fenètre VB.

merci déjà pour votre réponse

david

 

[PascalXLD]

Re : suspendre macro

Bonjour

dans l'idée tu fais ton test en début de macro et tu sors de ta sub si erreur et ensuite tu n'as plus qu'à relancer

GestionErreur:
If Err = 13 Then

Date_erronée = MsgBox("Date_erronée", vbOKCancel)
Select Case Date_erronée
Case vbOK
Worksheets("Mises en Service").Select
Rows(m - 1).Select
Exit sub

Case vbCancel
Exit Sub
End Select
End If

 

[Luki]

Re : suspendre macro

Bonjour David, le fil, salut Pascal

Une autre solution si tu veux interrompre la macro sans la relancer, serait de de remplacer le msgbox "date_erronée" par un userform fait à la main, et de l'afficher en non modal ( Uform.show 0). Ca te permettrait de modifier la cellule et de continuer la macro par un bouton dans le userform (par ex : "continuer").

A te lire