OVH Cloud OVH Cloud

on error suite

16 réponses
Avatar
daniel
Bonjour,
je ne parviens toujours pas à régler mon prob avec on error go to, voir
message du 21/10 17:03.
quelqu'un pourrait-il me faire parvenir des bouts de codes pour tester sur
un nouveau classeur le gestion des erreurs.
Youki m'a fournit un code qui plante sur ma machine, alors que cela "me"
semble très bien.
Sinon, dans le cas où une macro aurait plantée, et que l'on ait fermé le
fichier en le sauvegardant sans déboger, la gestion des erreurs risque
t'elle d'être bloquée sur ce fichier.
Merci par avance.

10 réponses

1 2
Avatar
Michel Pierron
Bonjour Daniel;
Rectifie le code de Youki comme ceci:
If Err.Number Then Exit Do

MP

"daniel" a écrit dans le message de news:
OP$
Bonjour,
je ne parviens toujours pas à régler mon prob avec on error go to, voir
message du 21/10 17:03.
quelqu'un pourrait-il me faire parvenir des bouts de codes pour tester sur
un nouveau classeur le gestion des erreurs.
Youki m'a fournit un code qui plante sur ma machine, alors que cela "me"
semble très bien.
Sinon, dans le cas où une macro aurait plantée, et que l'on ait fermé le
fichier en le sauvegardant sans déboger, la gestion des erreurs risque
t'elle d'être bloquée sur ce fichier.
Merci par avance.



Avatar
daniel
Bonjour et merci,
mais ça ne marche pas mieux. Te serait-il possible de mettre des petites
macro avec code erreur forcée, qui fonctionnerait chez toi, juste pour voir
si cela fonctionne sur ma machine.
Merci par avance.
Avatar
Pierre CFI [mvp]
bonjour
au lieu de on error goto met on error resume next, puis dans la boucle do
do...

if err <> 0 then exit do

loop ..
--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"daniel" a écrit dans le message de news: uW7o%
Bonjour et merci,
mais ça ne marche pas mieux. Te serait-il possible de mettre des petites macro avec code erreur forcée, qui fonctionnerait chez
toi, juste pour voir si cela fonctionne sur ma machine.
Merci par avance.



Avatar
daniel
Bonjour,
Non toujours pas... Pouvez-vous m'adresser des erreurs que vous aurez
testées sur votre micro, car je ne pense pas qu'elles passeraient sur ma
machine. je crains que le problème soit ailleurs que dans la syntaxe, cela
me permettrait d'être fixé sur ce point.
Par avance, merci.
Avatar
Pierre CFI [mvp]
tu as bien compilé tout le classeur ??
y a pas une macro dans les worksheets ??

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"daniel" a écrit dans le message de news: e$
Bonjour,
Non toujours pas... Pouvez-vous m'adresser des erreurs que vous aurez testées sur votre micro, car je ne pense pas qu'elles
passeraient sur ma machine. je crains que le problème soit ailleurs que dans la syntaxe, cela me permettrait d'être fixé sur ce
point.
Par avance, merci.



Avatar
Youky
Re,
Si tu a Excel97 cela ne marche pas je viens de tester
donne nous ta version Excel
Youky
"daniel" a écrit dans le message de news:
OP$
Bonjour,
je ne parviens toujours pas à régler mon prob avec on error go to, voir
message du 21/10 17:03.
quelqu'un pourrait-il me faire parvenir des bouts de codes pour tester sur
un nouveau classeur le gestion des erreurs.
Youki m'a fournit un code qui plante sur ma machine, alors que cela "me"
semble très bien.
Sinon, dans le cas où une macro aurait plantée, et que l'on ait fermé le
fichier en le sauvegardant sans déboger, la gestion des erreurs risque
t'elle d'être bloquée sur ce fichier.
Merci par avance.



Avatar
daniel
re,
A titre d'exemple dans un nouveau classeur cette macro élimine bien le
chiffre trouvé, mais ne me sort automatiquement du do loop quand il n'en
trouve pas.
Pouvez-vous me dire si sur votre machine, elle exécute bien le do loop.
Par avance, merci.

Sub Macro1()
Dim numautoold '
numautoold = 69 'pour essai
Err.Number = 0

On Error Resume Next
Do
MsgBox Err.Number
If Err <> 0 Then Exit Do
Rows(Cells.Find(what:=numautoold).Row).Delete
If Err > 0 Then Exit Do

Loop
MsgBox Err.Number
Range("C3:D11").Select
End Sub
Avatar
daniel
si j'ai des macro rattachées à des cases à cocher ou à des boutons...
Que dois-je chercher, des erreurs, des noms ??
Merci.
Avatar
daniel
Bonjour,
XL 2000
Merci
Avatar
Youky
Sub Macro1()
NumAutoOld = 69 'enleve les lignes ou sont 69
Do
On Error Resume Next
Rows(Cells.Find(what:=NumAutoOld).Row).Delete
If Err<> 0 Then Err.Clear:Exit Do
Loop
Range("C3:D11").Select
End sub

Si tu mets la gestion error avant le do cela ne marche pas
A savoir Do ...Loop fait une boucle à l'infinit jusqu'a error, et si error
on sort du do...loop par if Err
Encore un truc...on error resume next doit être placé avant la ligne qui
provoque l'error
et lit la ligne suivante,...if Err
Youky

"daniel" a écrit dans le message de news:
%
Bonjour,
XL 2000
Merci



1 2