Discussion :

[chmod777]

Bon reveil a tous les visiteurs du forum!

question:
Pourquoi Visual Basic m embete toujouts qvec mes boucles if en me disant qu il manque un bloc end if alors qu il n y a aucun probleme.

Il y a t il une disposition a respecter?

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
22
23
24
 
If ComboBox1 = 1 Then
o = 1
 
    If Sheets("gegevens").Cells(i, 7) = 96 Then GoTo ok
    Else
    End If
 
    If Sheets("gegevens").Cells(i, 7) = 97 Then GoTo ok
    Else
    End If
 
    If Sheets("gegevens").Cells(i, 7) = 98 Then GoTo ok
    Else
    End If
 
    If Sheets("gegevens").Cells(i, 7) = 99 Then GoTo ok
    Else
    End If
 
    If Sheets("gegevens").Cells(i, 7) = 0 Then GoTo ok
    Else
    End If
End If

[jmfmarques]

Code :

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

1
2
3
4
5
If Sheets("gegevens").Cells(i, 7) = 96 Then
        GoTo ok 
    Else 
        .... ce que tu veux......
    End If

car :

Code :

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

If Sheets("gegevens").Cells(i, 7) = 0 Then GoTo ok

est complet et

Code :

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

1
2
else
endif

a un end if sans then
AIDE EN LIGNE

[chmod777]

Code :

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

1
2
3
4
5
If Sheets("gegevens").Cells(i, 7) = 96 Then
        GoTo ok 
    Else 
        .... ce que tu veux......
    End If

car :

Code :

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

If Sheets("gegevens").Cells(i, 7) = 0 Then GoTo ok

est complet et

Code :

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

1
2
else
endif

a un end if sans then
AIDE EN LIGNE

ok merci pour l'explication, je n arrivais pas a comprendre pourquoi parfois ca marchait et parfois non, surtout quand il y a une multitude de if.