Je voudrais récupérer le message; erreur d'exécution 1004:
Dans une feuille si le numéro de saisie n'est pas correct, j'ai ce message
d'erreur qui me renvoi dans VBA et j'aimerai empècher cela. Quelq'un pourrait
me renseigner?
Bonnes Pâques
Peponne31
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Err=0 On Error Resume Next <--Instruction qui provoque l'erreur--> IF Err04 then Msgbox Err.Description Exit Sub Else <--Traitement Normal--> ... End if
Cordialement JB
Bonjour,
Err=0
On Error Resume Next
<--Instruction qui provoque l'erreur-->
IF Err04 then
Msgbox Err.Description
Exit Sub
Else
<--Traitement Normal-->
...
End if
Err=0 On Error Resume Next <--Instruction qui provoque l'erreur--> IF Err04 then Msgbox Err.Description Exit Sub Else <--Traitement Normal--> ... End if
Cordialement JB
Peponne31
Merci JB,
ça fonctionne bien, éventuellement, j'ai un module3 qui fait clignoter une cellule, puis-je l'inclure dans ta formule ? le module c'est: zz_clignote()
Merci encore pour le dérangement. Peponne3
Bonjour,
Err=0 On Error Resume Next <--Instruction qui provoque l'erreur--> IF Err04 then Msgbox Err.Description Exit Sub Else <--Traitement Normal--> ... End if
Cordialement JB
Merci JB,
ça fonctionne bien, éventuellement, j'ai un module3 qui fait clignoter une
cellule, puis-je l'inclure dans ta formule ? le module c'est: zz_clignote()
Merci encore pour le dérangement.
Peponne3
Bonjour,
Err=0
On Error Resume Next
<--Instruction qui provoque l'erreur-->
IF Err04 then
Msgbox Err.Description
Exit Sub
Else
<--Traitement Normal-->
...
End if
ça fonctionne bien, éventuellement, j'ai un module3 qui fait clignoter une cellule, puis-je l'inclure dans ta formule ? le module c'est: zz_clignote()
Merci encore pour le dérangement. Peponne3
Bonjour,
Err=0 On Error Resume Next <--Instruction qui provoque l'erreur--> IF Err04 then Msgbox Err.Description Exit Sub Else <--Traitement Normal--> ... End if
