Discussion :

[byloute]

Bonjour,

Avec l'exemple ci-dessous, si "Mon_Fichier" n'existe pas, les Code 1,2 et 3 vont s'exécuter.
Est-il possible de positionner une directive entre "Else" et "End If", afin de réaliser "Code 0" puis passer à "Code 3" lorsque le fichier existe ?

Code :

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

1
2
3
4
5
6
7
8
9
10
If Dir(Mon_Ficher) = "" Then
 Else
Code 0 puis passer à "Code 3"
End If
 
Code1
 
Code 2
 
Code 3

Merci à tous,

[marot_r]

Bonjour.

Oui, il suffit d'utiliser GoTo Addresse où Adresse est un nom suivi de : ailleurs dans le code comme par exemple ReprseApresCode0:.

Une note à propos des Goto, ils peuvent être la source de ce qu'on appelle du code spaghetti, c-à-d que tu te balades partout dans ton source et il devient difficile de savoir ce que le code fait.

Il est donc recommandé de ne pas les utiliser si on peut faire autrement.

On préférera dans la mesure du possible avoir du code conditionné, quelque chose comme :

Code :

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

1
2
3
4
5
if uneCondition then
     Faire quelque chose
end if
 
faire autre chose

plutôt que

Code :

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

1
2
3
4
5
6
7
8
9
if not uneCondition then 
    Goto SautDeCode
end if
 
Faire quelque chose
 
SautDeCode:
 
Faire autre chose

Et une bonne habitude pour éviter le spaghetti est de n'avoir qu'un seul point d'entrée et un seul point de sortie dans une procédure ou une fonction.

Donc cela donne :

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 MaProcedure()
 
if uneCondition then
    goto Exit_MaProcedure
end if
 
if unAutreCondition then
    goto Exit_MaProcdure
end if
 
exit_MaProcdure:
    exit sub
end sub

Donc un point d'entrée : la définition de la Sub et un point de sortie : Exit_Sub:.

et non

Code :

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

1
2
3
4
5
6
private MaProcdure
   if uneCondition then exit sub
 
   if uneAutreCondition exit sub
 
end sub

Un point d'entrée et 2 points de sorties.

A+

[Philippe Tulliez]

Bonjour,
Personnellement, je proscris l'utilisation de l'instruction GoTo
Je choisirais comme option l'utilisation de procédures indépendantes (Sub ou Function) que l'on invoque ou pas en fonction du résultat d'un test

[Patrice740]

Bonjour,

Ou tout simplement :

Code :

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

1
2
3
4
5
6
7
If Dir(Mon_Ficher) = "" Then
  Code1
  Code2
Else
  Code 0
End If 
Code 3

[Theze]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
If Dir(Mon_Ficher) <> "" Then
 
    Code0
    Code3
 
 Else
 
    Code1
    Code2
 
End If

[Patrice740]

... si "Mon_Fichier" n'existe pas, les Code 1,2 et 3 vont s'exécuter.
Est-il possible de .... réaliser "Code 0" puis passer à "Code 3" lorsque le fichier existe ?

Code :

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

1
2
3
4
5
6
7
8
 
If Dir(Mon_Ficher) <> "" Then
    Code0
    Code3
Else
    Code1
    Code2
End If

le Code3 doit être exécuté dans les 2 cas, soit :

Code :

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

1
2
3
4
5
6
7
8
If Dir(Mon_Ficher) <> "" Then
    Code0
    Code3
Else
    Code1
    Code2
    Code3
End If

ou plus simplement comme j'ai proposé :

Code :

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

1
2
3
4
5
6
7
If Dir(Mon_Ficher) = "" Then
    Code1
    Code2
Else
    Code0
End If
Code3

[Menhir]

Depuis que j'ai abandonné les Basics de première génération pour passer sur des langages structurés, je n'ai JAMAIS rencontré un cas qui nécessite l'utilisation d'un Goto (ou équivalent).
Le plus approchant dans ce que je me laisse aller à utiliser, ce sont les Exit (Exit Sub, Exit Do, Exit For, etc.). Ca n'est pas bien joli algorithmiquement mais ça reste dans les clous question structure.

Pour moi, la seule réponse acceptable à ce cas de figure, c'est le code donné par Patrice740 dans le message #4.

[Theze]

Bonjour tout le monde !


Hello Patrice, tu dis :

le Code3 doit être exécuté dans les 2 cas, soit :

mais quand je lis sa demande :

Est-il possible de positionner une directive entre "Else" et "End If", afin de réaliser "Code 0" puis passer à "Code 3" lorsque le fichier existe ?

j'en ai déduis que c'était Code0 et Code3 ou Code1 et Code2 mais j'ai probablement mal interprété la demande