Discussion :

[jpil71]

Bonjour,

J'ai créé un petit fichier qui execute plusieurs macros et utilisable par plusieurs utilisateurs (les boutons avec les macros doivent etre executés dans un ordre precis sinon "degogage") et j'aimerais qu'en cas de mauvaise manipe cette fameuse fenetre n'apparaisse pas et qu'excel ne renvoit pas au VBA mais stop le programme pas exemple.

J'espere etre assez claire pas toujours evident et apres des recherches sur le forum je n'ai pas trouvé une telle demande.

Merci à vous,

Jpil71

[EngueEngue]

On error exit sub

[Invité]

bonjour,
il est fortement déconseillé de pratique de cette manière car la gestion des erreur ne ce fait plus par Excel, mais par toi!

il est préférable d'utiliser une cellule de status qui interdit le traitement si la ligne ou le traitement n'est pas en adéquation avec le status.

Code :

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

1
2
3
4
5
6
7
Sub test1()
On Error GoTo Fin
'Code
Exit Sub
Fin:
MsgBox Err.Description
End Sub

Code :

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

1
2
3
4
5
Sub test2()
On Error Resume Next
'code
If Err <> 0 Then MsgBox Err.Description
End Sub

[jpil71]

merci mais je ne sais pas ou integrer le code.?

Car l'erreur provient lors de l'appuie sur un bouton declanchant deja une macro !!!

[EngueEngue]

dans ta macro...

Code :

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

1
2
3
4
5
6
7
8
Sub Tamacro()
On Error GoTo Fin
'...
'ton code
'
Exit Sub
Fin:
End Sub

[Invité]

cette méthode interdit de cliquer sur le bouton pendant l'exécution de la macro.
évite les on error si tu n'est pas capable de gérer les erreur toi même. tu ne verra aucune erreur même si il y à un problème réel.
il est préférable d'avoir une erreur et corriger, que pas et avoir des résultat étrange!

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
CommandButton1.Enabled = False
'Code
CommandButton1.Enabled = True
End Sub

[jpil71]

Merci bcq à vous.

j'ai utilisé la solution d'EngueEngue car cela repond exactement à ce que je veux, car l'erreur générée n'est pas une erreur en soit c'est simplement le fait que l'ordre des macros n'est pas respecté.
Dans ce cas effectivement il ne se passe rien donc l'utilisaeur comprend qu'il doit reprendre l'etape d'avant et ca n'affecte pas la suite du deroulement du programme.
je garde sous le coude egalement la solution de rdurupt et je comprend le risque qu'il mentionnait.

Bonne journée à vous

jpil71

[Invité]

Merci bcq à vous.

j'ai utilisé la solution d'EngueEngue car cela repond exactement à ce que je veux, car l'erreur générée n'est pas une erreur en soit c'est simplement le fait que l'ordre des macros n'est pas respecté.
Dans ce cas effectivement il ne se passe rien donc l'utilisaeur comprend qu'il doit reprendre l'etape d'avant et ca n'affecte pas la suite du deroulement du programme.
je garde sous le coude egalement la solution de rdurupt et je comprend le risque qu'il mentionnait.

Bonne journée à vous

jpil71

bonjour,
il est fortement déconseillé de pratique de cette manière car la gestion des erreur ne ce fait plus par Excel, mais par toi!

il est préférable d'utiliser une cellule de status qui interdit le traitement si la ligne ou le traitement n'est pas en adéquation avec le status.

Code :

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

1
2
3
4
5
6
7
Sub test1()
On Error GoTo Fin
'Code
Exit Sub
Fin:
MsgBox Err.Description
End Sub

Code :

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

1
2
3
4
5
Sub test2()
On Error Resume Next
'code
If Err <> 0 Then MsgBox Err.Description
End Sub

????