Discussion :

[zoumzoum59]

Bonjour a tous,

Je voudrais utiliser un GoTo avec une variable et sur deux sub pour faire un saut conditionnel, je ne sais pas si c'est faisable ou si il y a une autre solution pour y arriver.
je vous met un exemple raccourci de ce que j'ai essayé de faire sans succès :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Public saut as string
---------------------------
Sub macro1
 
code
code
code 
 
saut = saut1
Call macro2
 
code
code
code
 
saut1:
 
code
code
code
 
saut = saut2
Call macro2
 
code
code
code
 
saut2:
 
code
code
code
 
saut = saut3
Call macro2
 
code
code
code
 
saut3:
 
code
code
code
 
End Sub
-----------------------

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub macro2
 
code
code
code
 
If ----------Then
GoTo saut
End If
 
End Sub
---------------------

En espérant avoir été assez clair, je n'ai pas mis le code entier car il est assez long et de plus je cherche déjà a savoir si c'est possible de faire cela comme ça.
Donc toutes les infos peuvent me servir, et l'utilisation d'un GoTo n'est peut être pas la solution

[joe.levrai]

Bonjour,

comment pourrions-nous savoir si ton utilisation de Goto "n'est peut être pas la solution" ?
tu n'expliques pas quel type de projet tu cherches à développer

déjà, les Goto sont à proscrire, sauf pour un usage ponctuel sur une ou deux lignes de codes. Mais sur un ensemble de procédures ....

en l'état, je n'ai qu'une chose à dire : c'est difficilement réalisable, c'est une usine à gaz, il y a visiblement un problème de conception et de modélisation qui t'orientes vers des Goto. Revoit ta conception pour mieux gérer ton projet, sans Goto.


dans l'attente d'une explication un peu plus précise, je n'ai rien d'autre à dire hélas



EDIT : je n'arrivais pas à donner une image parlante ... ça vient de me faire tilt

tu utilises des Goto comme on utiliserait des blocs If/Else/End if

[unparia]

Bonjour
Je pense très franchement que personne ici (bien au contraire) n'encouragera un tel mécanisme "spaghetti", non recommandable du tout pour mille et une raisons.
Si tu y tiens toutefois : intéresse-toi alors aux instructions On...GoSub, On...GoTo, instructions, mais n'attends pas de moi (en tout état de cause à titre personnel) que j'aide à mettre en place un tel "machin", qui que puisse être le demandeur d'une telle "aide".

[zoumzoum59]

Merci pour ta réponse joe.levrai

Tu m'as déjà donné un aperçu de réponse en me disant que utiliser des GoTo n'était pas la solution.

et en y réfléchissant je me suis dit que ça pourrait peut être fonctionner avec des If Then Else End If.

Et je m'aperçois dans ton EDIT tu en parle, donc je vais creuser dans ce sens a moins que tu perçoit une autre solution de faire des sauts conditionnels, malgré j'en suis contient du peu d'info que je donne sur le code réel.
Mais je recherche plus un angle de recherche et savoir s'il était pertinent d'utiliser un GoTo.

Merci unparia d'ajouter ta contribution malgré le mécanisme "spaghetti"

Mais je cherche juste (et n'étant un pro en VBA, je crois que ça ce voit ) comment réaliser le plus simplement possible un saut de quelque ligne de code en fonction d'un test.

[Marc-L]

Bonjour, bonjour !

Rien qu'en consultant l'aide VBA (tout y est !) concernant l'instruction If … Then … Else !

Voilà, voilà !

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Invité]

Bonjour,
Nous avons bien compris que tu veux faire un code en étages! On ce place au dernier étage et on descend, à défaut d'une information de saut on déroule tout le code, si non on se place sur l'étiquette appelée.

C'est exactement la définition du langages spaghetti, on tire sur une nouille et toute l'assiette vient!

Au niveau de la maintenance curative et/ou évolutive bonjours!

[AdmChiMay]

Mes 2 centimes en passant.
Tu viens donc d'énoncer :

Code :

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

1
2
3
4
5
Si (test == vrai) alors
    goto quelques lignes plus loin
    blabla blibli
fin_si
Arrivée du goto

Ce que j'écrirai

Code :

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

1
2
3
Si (test == faux) alors
    blabla blibli
fin_si

Enfin, un truc du genre.
Même que "blabla blibli" pourrait être dans le corps d'une procédure appelée.

[zoumzoum59]

Ok et merci a tous

Pour mon code je vais continuer a pédaler dans les nouilles , car je ne vais pas tout remanier et en plus j'en ai pas forcément le niveau.
Je vais donc me tourner vers des bloc If Then End If qui apparemment est la moins mauvaise des solutions.

Encore merci a tous

[unparia]

Je vais donc me tourner vers des bloc If Then End If qui apparemment est la moins mauvaise des solutions.

Bien. C'est déjà cela.
Intéresse-toi maintenant également à la rubrique Select Case, instruction de ton aide VBA.