Discussion :

[ericdev67]

Bonjour,

Je suis encore et toujours en comparaison entre le VBA et notre bon vieux GWBASIC (j'ai été formé (et/ou déformé ?) avec ce language et lorsque je suis perdu, je reviens vers ces lignes de programmes que j'ai souvent utilisé....(quelle joie de voir un petit point se déplacer sur l'écran....ça c'était un clin d'oeil pour ceux qui ont connu le Commodore64 avec ses K7....qui s'arrêtaient jamais au bon moment....).

Bref, voici un exemple de code :

Code :

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

1
2
3
4
5
6
7
10 cls
20 a=a+1
30 if a=10 then a=0:b=b+1
40 if b=10 then goto 60
50 goto 20
60 print b
70 end

Naturellement, je fais simple comme exemple et je sais que je pourrais utiliser la fonction FOR....NEXT.
Mais je cherche à savoir s'il est possible d'avoir un renvoi sur une ligne et/ou instruction précise : dans mon exemple, il y a une boucle entre la ligne 20 et 50. Donc comment avoir ce même type de boucle (hormis l' utilisation de la fonction FOR....NEXT).

Dans le forum, j'ai souvent vu "on error goto 0", qui doit renvoyer à la dernière ligne certainement....j'ai fait différents essais....sans succès....

Merci,
A+

[Fvandermeulen]

Bonjour,
Etant aussi un acien GW, ça fait plaisir de répondre...
Tu peux tout a fait utiliser ce principe (je le fais souvent d'ailleurs)
Il suffit tout simplement de mettre les numéros que tu souhaites en tout début de ligne.
Si tu veux un exemple, n'hésites pas.

[Jannus]

La numérotation des lignes ayant disparu, le GOTO aussi.

Il ne faut pas chercher à remplacer GOTO, mais utiliser les test conditionnels de manière à ce que le logiciel effectue les opérations prévues.
La solution sera différente selon ce que le logiciel sera censé faire.

Ici, il faut incrémenter A jusque 10, Quand A=10, incrémenter B de 1 et remettre A à zéro et boucler jusqu'à ce que B=10
À partir de cela, tu peux construire ton programme avec les insctructions dont tu disposes dans le langage que tu utilises.
Ça pourrait donner quelque chose comme ceci :

Code :

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

1
2
3
4
5
6
7
Boucle Tant Que B<10
  Boucle Tant Que A<10
     A++
  Fin Boucle
     B++
Fin Boucle
Affiche B

ps : le C64... toute ma "jeunesse"

[ouskel'n'or]

Juste une précision.
Aujourd'hui on ne se sert, quand on s'en sert, qu'en gestion d'erreur pour sortir d'une procédure. Il n'est donc pas question de l'utiliser dans une boucle.
Le problème du goto est que l'adressage qu'il génère n'est jamais supprimé.
Dans une boucle, ceci a pour effet de saturer la pile. On dit qu'un goto ne se "dépile pas" (contrairement au Gosub... en passant). Ce qui peut avoir pour effet de planter le programme voire le pc.
Ceci est valable quelque soit le langage.

j'ai souvent vu "on error goto 0", qui doit renvoyer à la dernière ligne certainement

Non, ce code sert à annuler une gestion d'erreur initiée par On error resume next ou par On error goto étiquette:
Quand au "conseil" de Fvandermeulen, je ne saurais trop te conseiller de pas le suivre

[Fvandermeulen]

RE,
En effet, j'ai répondu un peu vite j'avais pas fait gaffe qu'on parlait de boucle, si ça peu vous rassurer, je n'utilise JAMAIS le goto dans une boucle
En tout cas c'est bien de voir qu'il y a moyen de perdre ses mauvaises habitudes. (c'est ce qu'on appelle le progrès non ?)

[ericdev67]

Merci Guardian,

Donc, si j'ai bien compris ton message, je peux utiliser la boucle IF, style :

Code :

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

1
2
3
4
5
6
if b>10 then
a++
end if 
if a>10 then
b++
end if

Mais justement, c'est là que ça bug : le END IF ne se fait pas sur le bon IF...

(ça fait plaisir de retrouver des "anciens" de C64...!!!)

Merci,
A+

[ericdev67]

Bonjour ouskel'n'or,

Merci une fois de plus pour tes précisions et/ou conseils.

Merci aussi à toi, Fvandermeulen. Effectivement ça fonctionne, j'avais essayé, mais je cherche à venir et à construire avec le VBA et de "sortir" du GWBASIC et de ses numéros de lignes....

Donc, pour résumer, il faut crééer une boucle. Les boucles que je connais sont : FOR..NEXT, IF....END IF, .....et existe-t-il encore une autre instruction ?

Merci,
A+

[AlainTech]

Les boucles que je connais sont : FOR..NEXT, IF....END IF, .....et existe-t-il encore une autre instruction ?

Il n'y a pas de boucle If...
If est une instruction décisionnelle.

Les boucles en VBA sont:
For ... To ... Next
For Each ... In ... Next
Do ... Loop
While ... Wend

Concernant cette dernière, voici ce qu'en dit l'aide en ligne:

Conseil L'instruction Do...Loop permet d'exécuter une itération de manière plus structurée et plus souple.

[ericdev67]

Merci à tous,

J'arrive enfin a y voir de plus clair !!!!

Excusez le retard de ma réponse, mais mon Packard Bell m'a encore laché.....et j'ai du tout réinstaller.... vivement que je puisse me payer un Apple....

A+ pour de prochaines aventures !!!

[ouskel'n'or]

Que veux-tu obtenir ?
Si tu démarres avec B = 0 ou A = 0 tu sors aussi sec puisque ni l'un ni l'autre n'est supérieur à 10...

"L'algorithme" de Gardian traduit en basic de vba

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test()
Do While B < 10
    Do While A < 10
        A = A + 1
    Loop
    B = B + 1
Loop
MsgBox B
End Sub