Comment "sauter" une partie de la macro ?

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:

---

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,

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:

---

1 2 3 4 5

if uneCondition then Faire quelque chose end if   faire autre chose

---

plutôt que

Code:

---

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:

---

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:

---

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+

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

Bonjour,

Ou tout simplement :

Code:

---

1 2 3 4 5 6 7

If Dir(Mon_Ficher) = "" Then Code1 Code2 Else Code 0 End If Code 3

---

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

If Dir(Mon_Ficher) <> "" Then   Code0 Code3   Else   Code1 Code2   End If

---

Citation:

---

Envoyé par byloute

... 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 ?

---

Citation:

---

Envoyé par Theze

Code:

---

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:

---

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:

---

1 2 3 4 5 6 7

If Dir(Mon_Ficher) = "" Then Code1 Code2 Else Code0 End If Code3

---

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. :ccool:

Bonjour tout le monde !


Hello Patrice, tu dis :

Citation:

---

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

---

mais quand je lis sa demande :

Citation:

---

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 :(