Goto + Variable

Résolu
Bonjour,

Je cherche à utiliser GoTo avec une variable comme appel d'étiquette.

Je m'explique, voici le code que je voulais faire...

For x = 1 to 100

Goto x

1:

Variable1 = valeur
Variable2 = Valeur
Goto Suite

2:

Variable1 = valeur
Variable2 = Valeur
Goto Suite

.
.
.
.

100:

Variable1 = Valeur
Variable2 = Valeur
Goto Suite

Suite:

Long code utilisant les valeurs des variables

Next

... Seulement apparemment une variable après un Goto ne fonctionne pas, je suis débutant, quelqu'un aurait-il une idée pour outrepasser ce petit soucis? Je programme avec vb6.0.

Merci

2 réponses

  1. Contributeur
    Fais un Select Case :
    For i = 1 To 10
     Select case i
      case 1 : msgbox "a"
      case 2 : msgbox "b"
      ...
     End select
    Next i