[VBA-E]Probleme "goto"

**Elstak** · 02/05/2006, 11h59

Salut,

j'ai un petit souci avec une instruction "Goto" (je doit certainement mal l'utiliser

)

Voici mon code :

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
 
For iLigne = 1 To MaPlage.End(xlDown).Row
        If Cells(iLigne, 3) = 1 Then GoTo TELECHARGER1
        If Cells(iLigne, 3) = 2 Then GoTo TELECHARGER2
        If Cells(iLigne, 3) = 3 Then GoTo TELECHARGER3
 
TELECHARGER1:
    blabla...
 
TELECHARGER2:
    blabla....
 
TELECHARGER3:
    blabla....
Next

Le soucis est que si je me trouve dans le cas "1" (TELECHARGER1) , il me fait quand meme les 2 suivants (TELECHARGER2 et TELECHARGER3) enfin j'en ai bien l'impression...

comment dire qu'une fois qu'il a fait ce qu'il y a dans le cas, qu'il reparte dans le "for" pour voir la ligne suivant de Maplage.

j'ai tenté de mettre des "next" à la fin de chaque cas mais il n'aime pas...

**ouskel'n'or** · 02/05/2006, 12h05

Hello Erzats, t'a déjà oublié Exit for ?

**ouskel'n'or** · 02/05/2006, 12h11

Alors tu n'utilises pas Goto car avec Goto dans une boucle, tu vas saturer la Pile et planter ton programme.
Avec un select case sur la variable qui définit ton goto, tu auras un programme propre... Arrête de faire des trucs qui se font pas

Si tu as besoin d'aide sur select case, tu dis

**Theocourant** · 02/05/2006, 12h13

Envoyé par Elstak

coucou chmod,

bah oui pour le moment c'est ce que je fais mais comme il y a pas mal de code pour chaque cas, je trouvais cette presentation plus claire mais bon si c'est à éviter... je vais éviter

Dans ce cas sépare tes traitements dans différentes sub :

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
For iLigne = 1 To MaPlage.End(xlDown).Row
        If Cells(iLigne, 3) = 1 Then TELECHARGER1
        If Cells(iLigne, 3) = 2 Then TELECHARGER2
        If Cells(iLigne, 3) = 3 Then TELECHARGER3
Next
 
blabla...
 
End Sub (ou End Function)
 
Sub TELECHARGER1()
    blabla...
End Sub
 
Sub TELECHARGER2()
    blabla....
 End Sub 
 
Sub TELECHARGER3()
    blabla....
End Sub

+

Théo

[EDIT] J'ai corriger une erreur du code (zava oublié de retirer les goto

)

**ouskel'n'or** · 02/05/2006, 12h18

Hello Théo, tu ne trouves pas qu'un Select case est plus propre ?
Pas de if, pas d'appel à d'autre procédure...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
For iLigne = 1 To MaPlage.End(xlDown).Row
        Select case Cells(iLigne, 3)
              Case 1
                    blabla... 1
              Case 2
                    blabla... 2
              Case 3
                    blabla... 3
              Case Else
                  msgbox "N'existe pas"
        End select
Next

Juste une idée

**Theocourant** · 02/05/2006, 12h26

Envoyé par ouskel'n'or

Hello Théo, tu ne trouves pas qu'un Select case est plus propre ?
Pas de if, pas d'appel à d'autre procédure...
[/code]

Juste une idée

Eh bien pas forcément car comme il le dit lui-même, les parties de programme sont importantes au niveau nombre de lognes donc pour éclaicir la structure du programme, personnellement, j'utiliserais des appels à procédures.

+

Théo

**ouskel'n'or** · 02/05/2006, 12h32

Plus clair, pour ma part, je ne trouve pas, mais ce n'est là qu'un point de vue, par contre des appels à procédures sont plus lents, c'est certain.

Mais bon, ainsi Elstak a le choix.
MAIS PAS DE GOTO DANS UNE BOUCLE ! JAMAIS !
Et ce n'est pas un point de vue

A+

**Elstak** · 02/05/2006, 13h45

Recoucou,

Voilà j'ai essayé ce code et j'ai une erreur "else sans if"

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
 
For iLigne = 1 To MaPlage.End(xlDown).Row
    If MenuGeneral.PasDeVerif = True Then
        Select Case 1
    Else
        Select Case Cells(iLigne, 3)
    End If
 
        Case 1            
            'Verification de type1 (aucune vérif)     
        Case 2
            'Verification de type2                       
        Case 3
            'Verification de type3
 
        End Select
Next

Il y a des "if" dans me Verification mais j'ai bien regardéet je les ferme tous.

si je ne laisse que

Code :

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

1
2
 
Select Case Cells(iLigne, 3)

je n'ai aucun souci

(si je vire ma conditionnelle...). Une idée sur la facon dont il faudrait l'écrire??

Ps : ce que je veux c'est que si une case est cochée, il fasse toujours le cas 1