Discussion :

[Amir2121]

Bonjour,

Je cherche a faire un truc assez simple mais qui marche pas. Je veux qu'a chaque fois que l'instruction i="a" est rencontree on aille au label "err" or ce qui se passe c'est que la premiere fois que cette instruction est rencontree on va bien a err mais au second passage j obtiens une erreur. Pourant je continue a faire du error handling puisque j ai pas fait on error goto 0. J ai un fusil a une balle et je veux une kalash avec un nombre de balles infinie...


Merci !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim i As Integer
err:
 
    For i = 0 To 0
 
    Next i
 
    On Error GoTo err
 
    i = "a"

[MarcelG]

Bonjour et bienvenu sur le Forum,

J ai un fusil a une balle et je veux une kalash avec un nombre de balles infinie.

Quand même pas à ce point!

Ton étiquette Erreur est placée avant ton GoTo
Quant à ta boucle, 0 to 0..

Quoi qu'il en soit, il serait plus efficace de retourner le code complet en précisant le message d'erreur et la ligne en anomalie (surlignée en jaune).

[Amir2121]

Merci de ta réponse. J'ai modifié le code en conséquence et le problème est le même. Honnêtement le code au complet n'a rien à voir avec le problème que j'expose. Je dirai même que par pure curiosité je veux comprendre ce on error goto car normalement tant que j'ai pas fait on error goto 0 il doit continuer à gérer l erreur....

Une idée ?
Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
On Error GoTo err
    Dim i As Integer
err:
 
    For i = 0 To 1
 
    Next i
 
    i = "a"

[Amir2121]

pour répondre a ta question, la ligne en cause est évidemment i="a" et le message renvoyé est "type mismatch" car integer n est pas string. C est un cas d école qui sera implémenté dans un code beaucoup plus compliqué et que je n ai aps le droit de poster nul part...

[MarcelG]

Dans ce cas bien sûr, si i est déclarée en Integer, alors tu ne peux lui affecter une valeur String.

L'étiquette Err doit être évidemment placée après le code générant une erreur.

Avec ce peu d'éléments, il est difficile, du moins à mon humble niveau, d'en dire plus.

Pour information, tu peux consulter ce tutoriel Gestion des erreurs

[Amir2121]

l affectation d un stringa un integer donne une erreur d'apres le dernier code postee. Le fait que la label erreur soit apres ne regle pas mon pb car je l ai essayer. Si je tombe sur la reponse, je la posterai pour d autres personnes...

Merci pour ton temps.

[jpvba]

Bonjour a vous tous,


i = "a" est automatiquement un string à cause des "" mais la variable est déclaré comme integer ... je presume que vous voulez avoir systématiquement un erreur.


JE suis comme MarcelG j'ai besoin du code complet afin de générer le probleme et ou comprendre afin de pouvoir penser mettre une solution.


À première vue, je suis d'avis que le error Handler devrais être à la fin. Également avez-vous fais du pas à pas afin de voir qu'Est-ce qui clocche la seconde fois à l'aide de F8 ??? Est-ce que la loop marche ???

[Amir2121]

Bonjour a vous tous,


i = "a" est automatiquement un string à cause des "" mais la variable est déclaré comme integer ... je presume que vous voulez avoir systématiquement un erreur.

oui vous presumez bien.

JE suis comme MarcelG j'ai besoin du code complet afin de générer le probleme et ou comprendre afin de pouvoir penser mettre une solution.

Le code est complet et il teste le comportement du goto.

La loop marche et le f8 montre que le goto est fait pour gérer une seule erreur, je présume car en général quand on a une erreur on affiche un msgbox et on termine le programme ou un truc dans le genre. j utilise moi le goto d une maniere differente: Tant qu on a une erreur a une certaine ligne, on va dans une boucle for pour exécuter (ou pas) un code. voila l algorithme.

[Theze]

Bonjour,

Si tu veux reprendre le code suite à une erreur tu peux utiliser un code du genre de celui-ci-dessous mais je ne vois pas l'intérêt de reprendre sans avoir traité l'erreur et comme dis MarcelG () l'étiquette de reprise ne se place jamais avant le gestionnaire, utilise plutôt l'instruction "Resume" et avec bien de prudence de tout façon, il est primordial de traiter l'erreur et non de reprendre le code à un endroit sans avoir rien fait :

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
20
21
22
 
Sub Test()
 
    Dim i As Integer
    Dim J As Integer
 
    On Error GoTo err
 
Reprise:
 
    If J = 20 Then Exit Sub 'permet d'avoir 20 reprises d'erreur
    i = "a"
 
err:
 
    J = J + 1
    Debug.Print J; "Type d'erreur : "; err.Description; ", numéro de l'erreur : "; err.Number
 
    err.Clear 'nettoie le gestionnaire...
    Resume Reprise '...et reprend le code
 
End Sub

[Invité]

Bonsoir,

Tu as testé que ton imprimante était bien en ligne mais manque de chance au moment de l'envoyer elle tombe en panne?

Tu as des coupures réseau intempestifs ?

Qu'est ce qui justifie l'utilisation du on error et pas de qualifier les données que tu fournis à ton programme ?

[unparia]

Bonjour,
Juste pour satisfaire ma curiosité :
C'est quoi, cette variable i de type integer, à laquelle on attribue une chaîne de caractères (un seul, en fait) et qu'on utilise de toutes manières pas ?

[Theze]

Bonjour,

Je pense que notre ami est entrain de tester le gestionnaire d'erreur

[unparia]

Bonjour Theze
Ah oui. Je vois.
Ce serait alors du genre (plus digeste) :

Code :

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

1
2
3
4
5
6
7
8
9
Dim i As Integer
    Dim J As Integer
    On Error Resume Next
    Do While J < 20
      i = "a"
      J = J + 1
      If err Then MsgBox J & "  " & err.Description: err.Clear
    Loop
    On Error GoTo 0

[Theze]

Je pense que Amir2121 s'interroge sur le fait que le gestionnaire ne gère l'erreur qu'une fois mais pour qu'il continu à gérer les erreurs suivantes il faut nettoyer le gestionnaire avec Clear !

[patricktoulon]

Bonjour
puisque la gestion d'erreur est sensée opérer dans la boucle autant la mettre dedans

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
    Dim i As Integer
    Dim J As Integer
    Do While J < 20
        J = J + 1
        On Error Resume Next
        i = "a"
        If Err Then MsgBox J & "  " & Err.Description: Err.Clear
        Err.Clear ' ou On Error GoTo 0
    Loop
 
End Sub

le "on error resume next " passe a la ligne suivante donc le message s'affiche et ensuite l'erreur est effacée de la memoire avec "err.clear" ou meme " On Error GoTo 0"

[unparia]

Pas du tout d'accord avec patricktoulon.
Et voici pourquoi :
1) mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub unparia()
    Dim i As Integer
    Dim J As Integer
    On Error Resume Next
    Do While J < 5
      i = "a"
      J = J + 1
      If err Then MsgBox J & "  " & err.Description: err.Clear
    Loop
    On Error GoTo 0
    MsgBox 1 / 0 ' ----> cette erreur ne sera pas occultée par le on error resume next, qui n'est plus actif
End Sub

2) le code de patricktoulon

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub patricktoulon()
    Dim i As Integer
    Dim J As Integer
    Do While J < 5
        J = J + 1
        On Error Resume Next
        i = "a"
        If err Then MsgBox J & "  " & err.Description: err.Clear
        err.Clear ' ou On Error GoTo 0
    Loop
    MsgBox 1 / 0 ' ---->> cette erreur sera malencontreusement occultée pat le error resume next, qui reste actif
End Sub

le code de patricktoulon ne fonctionnerait qu'avec On error goto 0 en ligne 0 et non err.clear. Mais alors : pourquoi en faire les frais 5 fois ?

[RyuAutodidacte]

Bonjour et bonne année à tous,

Coucou Patrick, je suis d'accord avec Jacques et j'aurais fait de même,
d'ailleurs un exemple qui est plus que probant, car en plus la gestion d'erreur est obligatoire,
concerne les Collections …

• On mettra avant la boucle On Error Resume Next

• Dans la boucle Err.Clear (selon ce que l'on veut)

• Après la boucle On Error Goto 0 permettant que la suite du code ne soit pas impacté
par une gestion d'erreur pouvant alors masquer d'éventuel problèmes …

[Amir2121]

(on voit mal dans quelle circonstances on s'amuserait à reprendre en boucle la même erreur), mais c'est ce à quoi il s'exerce ...

Souvent je change un peu ma question pour pas rentrer dans des debats sans fin a propos de quelque chose dans laquelle je ne veux pas rentrer.

Pour repondre a ta question legitime, le i="a" est en fait dans mon programme un ordre de selection dans un fichier word a qui on aura donne l'ordre (par un shell) de s'ouvrir. Il se trouve que tant que le fichier word n est pas ouvert on aura une erreur a l'ordre selection. Je ne veux pas utiliser un "wait" ou sleep d un nombre de seconde que j aurai choisi. Je veux creer une boucle d attente qui attend TANT qu on a une erreur a une certaine instruction. Je ne veux pas un Resume Next car ca repond pas du tout a la problematique. Je ne veux pas utiliser un documents.open (qui redonne la main une fois que le fichier word est ouvert) car l'avantage de l instruction shell est qu elle choisi le programme adequate pour ouvrir un fichier. Comme certains l auront compris je cherche a faire un programme robuste, maleable....

J'espere que la discussion ne partira pas en sucette et qu on debaterra de comment faire une boucle d attente tant qu on a une erreur a une instruction particuliere....

[pijaku]

Bonjour,

A lire, dans ce cas : https://www.developpez.net/forums/d1...fin-processus/

[Menhir]

Pour repondre a ta question legitime, le i="a" est en fait dans mon programme un ordre de selection dans un fichier word a qui on aura donne l'ordre (par un shell) de s'ouvrir. Il se trouve que tant que le fichier word n est pas ouvert on aura une erreur a l'ordre selection. Je ne veux pas utiliser un "wait" ou sleep d un nombre de seconde que j aurai choisi. Je veux creer une boucle d attente qui attend TANT qu on a une erreur a une certaine instruction.

Au lieu de procéder ainsi avec une méthode vraiment pas propre, je te conseille de procéder ainsi :

1 - Vérifier que le fichier existe en utilisant une fonction Dir() (si le nom de fichier est obtenu par une boite de dialogue, cette phase n'est pas utile).
2 - Ouvrir le fichier avec un GetObject() qui ne nécessite pas de boucle d'attente.
https://docs.microsoft.com/fr-fr/off...bject-function
Ne pas oublier de mettre un Set devant pour placer la référence du fichier ouvert dans une variable (voir les exemples fournis dans le lien).