Discussion :

[ericdev67]

Bonjour,

Notre vieux GW-BASIC avait une fonction sympa pour faire des calculs répétitifs : on utilisait la fonction GOSUB - RETURN qui renvoyait à une boucle/programme pour effectuer des procédures répétitives.

J'essaye d'avoir cette fonction en VBA, mais je n'y arrive pas :

je fais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
sub essai()
 Application.Run "'comb.xls'!fonctiongosub"
'petits calculs  exemple (simplifié...) d=a+b+c
 
end sub
fonctiongosub()
 
a=a+1
b=b+2
c=c+5
'exemples de calculs
End sub

Et .....ça ne fonctionne pas et je ne comprends pas pourquoi,

Merci
A+

[Caro-Line]

Je ne connais pas le GW-BASIC ni GOSUB mais peut-être essayes-tu de faire ce qu'on appelle en VBA une fonction.

Ce tutoriel pourrait alors t'aider : Initiez vous au VBA (Partie 03)

[Pierre Fauconnier]

Bonsoir... (Salut Caro... Meilleurs voeux)

Le Gosub de gw-basic n'est rien d'autre qu'un appel de procédure en VB(A)


Structure VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Proc1()
    ...
    ...
    Proc2 ' Appel de procédure
    ... ' l'exécution de proc1 continue après l'exécution de Proc2
End Sub
 
Sub Proc2
    ...
    ...
    ...
End Sub

Structure GW-Basic

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Proc1()
    ...
    ...
    gosub Proc2 ' Appel de procédure
    ... ' l'exécution de proc1 continue après l'exécution de Proc2
End Sub
 
Sub Proc2
    ...
    ...
    ...
End Sub

[ericdev67]

Merci à vous deux,

Tout est très clair, je n'avais pas trouvé le tutoriel....

Merci
A+ pour de prochaines aventures.....

[DarkVader]

Bonjour,

Bonjour,

Notre vieux GW-BASIC avait une fonction sympa pour faire des calculs répétitifs : on utilisait la fonction GOSUB - RETURN qui renvoyait à une boucle/programme pour effectuer des procédures répétitives.

.../..

Si Gosub peut optimiser un code dans quelques rares cas en terme de vitesse,
il est à éviter pour pas dire à fuir - un code spaghetti étant illisible.
=> voir les appels de procédures décrits par Pierre plus haut.

Bonsoir... (Salut Caro... Meilleurs voeux)

Le Gosub de gw-basic n'est rien d'autre qu'un appel de procédure en VB(A)

Non, Gosub n'est pas Call

Exemple de Gosub

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
Sub procTesteGosub()
    Dim x As Long, a As Long
 
    a = 2
    GoSub theGosubAdr
    Debug.Print x
 
    GoSub theGosubAdr
    Debug.Print x
 
Exit Sub
theGosubAdr:
    x = x + a
Return
End Sub

[Pierre Fauconnier]

Salut.

De mon souvenir, le Gosub du GW-Basic ne fonctionne pas comme tu l'as illustré pour VBA, mais je peux me tromper

[DarkVader]

J'ai illustré le gosub tel qu'on peut l'utiliser en VB au sens d'un code linéaire -
tant qu'à mes souvenirs, ils ne concernaient que le GFA Basic (pour la plupart, éradiquée depuis un bail).

[ouskel'n'or]

Comme le dit Dark, le Gosub peut être intéressant dans quelques très rares cas, par exemple pour éviter d'avoir à passer une kyrielle de paramètres à une procédure répétitive, et si l'on ne veut pas déclarer ces paramètres en variables "public".
Enfin, dans VBA, elle s'utilise bien comme l'indique Dark. J'ai eu à l'utiliser une fois pour simplifier un code mais suis là aussi de son avis. Le code spaghetti se justifiait quand les disquettes de 8 pouces 1/2 faisaient 128 ko et qu'il s'agissait d'y caser un logiciel aujourd'hui remplacé par autocad
Enfin, je ne l'ai jamais testé pour remplacer un Call.

[ucfoutu]

Bonjour,

J'ajouterais : encore utilisé par les amateurs de code difficile à maintenir, particulièrement avec On...
Exemple de code casse- cou (je m'arrête à ces 3 lettres)

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
Private Sub Command2_Click()
  Dim no As Integer
  no = 3 'faire varier ce chiffre de 1 à 3 pour mieux voir
  On no GoSub ici1, ici2, ici3
  On no GoSub la1, la2, la3
  GoTo vala
ici1:
    MsgBox "ici1": Return
ici2:
     MsgBox "ici2": Return
ici3:
     MsgBox "ici3": Return
la1:
     MsgBox "la1": Return
la2:
   MsgBox "la2": Return
la3:
   MsgBox "la3"
vala:
   MsgBox "vala"
End Sub

A déconseiller totalement

[ericdev67]

Merci pour tous ces commentaires, je vois qu'effectivement il y a plusieurs possibilités.

J'ai suivi vos conseils et pris celui de Darkvader, et tout fonctionne très bien

Merci,

A+ pour de prochaines aventures......

[Caro-Line]

J'ai suivi vos conseils et pris celui de Darkvader, et tout fonctionne très bien

Pourquoi ?

Tu n'as pas tout lu :

Si Gosub peut optimiser un code dans quelques rares cas en terme de vitesse,
il est à éviter pour pas dire à fuir - un code spaghetti étant illisible.
=> voir les appels de procédures décrits par Pierre plus haut.

DarkVader donnait un exemple pour dire que c'était possible de l'utiliser mais comme il le dit, et comme ucfoutu l'a aussi démontré avec son code, il vaut mieux éviter d'utiliser GoSub...
Il y a en général toujours une méthode plus élégante (et moins casse-cou ((c) ucfoutu))