Discussion :

[sash6]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[Jean-Philippe André]

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

[scully2501]

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

[sash6]

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.

[Jean-Philippe André]

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

[sash6]

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

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sash6]

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.