Reprendre le code après une instruction stop

Re-bonjour,

Est-ce qu'il y a moyen de reprendre le code après une instruction stop. Je m'explique, le code suivant fait un ensemble de vérifications. Si les tests sont négatifs alors il s'arrête pour laisser l'utilisateur corriger ces erreurs.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Public Sub check()   Dim NbCol As Integer   If ActiveSheet.[C9].Value < "" Then MsgBox ("La cellule C9 doit contenir le nom de la société") Stop End If If ActiveSheet.[C11].Value < "" Then MsgBox ("La cellule C11 doit contenir le type de prestation") Stop End If 'Contrôle sur le nombre de colonnes NbCol = Range("A15").End(xlToRight).Column If NbCol > 8 Then MsgBox ("Le format de ce reporting n'est pas bon! Veuillez revoir le nombre de colonnes.") Stop End If End Sub

---

Est-ce que depuis Excel (et non l'environnement VBA), on peut faire repartir le code une fois les corrections effectuées? Sinon je pensais à une macro événementielle du type double click mais c'est la syntaxe stop qui pose problème...Est-ce que qqn en connaît une autre?

salut,
je serais passé sur du exit sub à la place du stop, mais suite à quoi lances-tu check ?

oui le mieux est de mettre exit sub et que l'utilisateur reface ok apres avoir corrigé l'erreur

check est à l'intérieur d'une autre macro, je peux donc faire une boucle. Mais je ne vois pas comment mon code va arrêter de tourner pour que les corrections se fassent, et clicker sur OK pour faire repartir le code.

et la macro appelante de check, tu la lances comment ?... quel est le premier évèenement qui lance ton code ?

Pour l'instant c'est à la "main" mais sinon il y a un bouton qui est affecté.

Tu pourrais faire ça depuis un userform dont la propriété showModal serait à False.
Pour tester, c'est simple, tu places ce code dans un userform
[CODE]

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub UserForm_Activate() 'Laisse le temps à l'userform de s'afficher Application.Wait (Now() + TimeValue("00:00:01")) Dim VerifTerminee As Boolean Do 'Ton code de vérif DoEvents 'Do While Marche 'Arrête la macro (!) 'DoEvents 'Loop 'VerifTerminee = Condition requises pour sortir de la vérif Loop While Not VerifTerminee End Sub

---

La macro ci-dessus simule la vérification. Si showmodal de l'userform = False alors tu peux accéder à ta feuille de calculs.
Par contre, il semble que la vérification se poursuit pendant la saisie. A vérifier en situation.

J'ai testé en ajoutant un bouton faisant passer le boolean Marche (déclaré en public) à True afin d'empêcher la vérification de se poursuivre pendant la saisie (boucle mise en remarque) mais ça arrête complètement la macro.
Je n'ai rien de mieux :(

Merci Ouskel c'est déjà beaucoup! Je vais tester ça et voir si je peux y remédier. Pour l'instant je vais laisser le post en suspens car j'ai d'autres impératifs. Mais je donnearai des nouvelles, promis.