VBA goto n rejeté

VBA goto n rejeté - VB/VBA/VBS - Programmation

Marsh Posté le 11-02-2017 à 16:16:06    

Bonjour à tous,
Dans un programme VBA sous excel, j'utilise le code suivant:
   if n=1 then
       goto 1
   elseif n=2 then
       goto 2
   ....
   ....
   elseif n=30 then
      goto 3
   end if
 
Ca marche mais c'est fastidieux!  
Je n'ai pas trouvé la ruse pour qu'un code du type:
   n=25 (par exemple)
   goto n
soit accepté...
 
Quelqu'un aurait-il une idée?
merci, gerard321

Reply

Marsh Posté le 11-02-2017 à 16:16:06   

Reply

Marsh Posté le 11-02-2017 à 17:48:41    

 
            Bonjour,
 
            l'instruction Goto n'existe dans le VBA uniquement par souci de rétro-compatibilité avec le BASIC originel
            mais cela fait au moins 30 ans qu'elle n'est plus utilisée ‼     Si ce n'est pour un code spaguetti
 

Reply

Marsh Posté le 11-02-2017 à 23:58:12    

+1 sur goto qui est à proscrire !  :kaola:  
Par ailleurs, s'il y a autant de if....elseif....else (apparemment 30), il vaut mieux faire un select...case (l'équivalent du switch() du C/C++ ou PHP).
Au passage, c'est un peu bizarre qu'il y en ait autant :/


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed