[DEB] If Then Else

Version imprimable

[DEB] If Then Else

Bonjour à tous,
Malgré la lecture de de la doc je pédale dans la semoule pour les imbrications.Pour info je teste la position de cellules les unes par rapport aux autres mais là n'est pas le pb.

Mon problème est le Else msgBox "bonsoir" Il devrait être atteint en dernier ressort , lorsqu' aucune des conditions précédentes n'est remplie. Or il est squizzé systématiquement comme s'il faisait parti du dernier elseif.Comment devrais-je l'écrire correctement.
En vous remerciant de m'avoir consacré de votre temps

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
For i = 1 To p - 1
 
  'Teste s'il sont sur la ^m ligne
   If Ro(i) = Ro(i + 1) Then
        MCo = ((Abs(Co(i)) Mod (Abs(Co(i + 1))))) - 16
        If Abs(Co(i + 1) - Co(i)) < 2 Or MCo < 2 Then MsgBox "Bonjour1"
 
      'Teste s'ils sont sur la ^m colonne
 
   ElseIf Co(i) = Co(i + 1) Then
            MRo = (Abs(Ro(i)) Mod (Abs(Ro(i + 1) - Ro(i)))) - 2 
 
            If Abs(Ro(i + 1) - Ro(i)) < 2 Or MRo < 2 Then MsgBox "Bonjour2"
 
      'il ne sont pas sur la ^m ligne et la ^m colonne
   ElseIf Co(i) <> Co(i + 1) And Ro(i) <> Ro(i + 1) Then
        MCo = ((Abs(Co(i)) Mod (Abs(Co(i + 1))))) - 16
        MRo = (Abs(Ro(i)) Mod (Abs(Ro(i + 1)))) - 2
       If Abs(Ro(i + 1) - Ro(i)) < 2 Or Abs(Co(i + 1) - Co(i)) < 2 Or MRo < 2 Or MCo < 2 Then
       MsgBox "Bonjour3"
      End If
 
'Aucune condition n'est remplie
   Else
      MsgBox "Bonsoir"
 
  End If
 
Next i
 
 
 
End Sub

Bonjour Torquemada, bonjour le forum,

Peut-être comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
For i = 1 To p - 1
    'Teste s'il sont sur la ^m ligne
    If Ro(i) = Ro(i + 1) Then
        MCo = ((Abs(Co(i)) Mod (Abs(Co(i + 1))))) - 16
        If Abs(Co(i + 1) - Co(i)) < 2 Or MCo < 2 Then MsgBox "Bonjour1"
        Exit Sub
    End If
    'Teste s'ils sont sur la ^m colonne
    If Co(i) = Co(i + 1) Then
        MRo = (Abs(Ro(i)) Mod (Abs(Ro(i + 1) - Ro(i)))) - 2
        If Abs(Ro(i + 1) - Ro(i)) < 2 Or MRo < 2 Then MsgBox "Bonjour2"
        Exit Sub
    End If
    'il ne sont pas sur la ^m ligne et la ^m colonne
    If Co(i) <> Co(i + 1) And Ro(i) <> Ro(i + 1) Then
        MCo = ((Abs(Co(i)) Mod (Abs(Co(i + 1))))) - 16
        MRo = (Abs(Ro(i)) Mod (Abs(Ro(i + 1)))) - 2
        If Abs(Ro(i + 1) - Ro(i)) < 2 Or Abs(Co(i + 1) - Co(i)) < 2 Or MRo < 2 Or MCo < 2 Then MsgBox "Bonjour3"
        Exit Sub
    End If
    'Aucune condition n'est remplie
    MsgBox "Bonsoir"
Next i

ou, en reprenant ton code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
For i = 1 To p - 1
    'Teste s'il sont sur la ^m ligne
    If Ro(i) = Ro(i + 1) Then
        MCo = ((Abs(Co(i)) Mod (Abs(Co(i + 1))))) - 16
        If Abs(Co(i + 1) - Co(i)) < 2 Or MCo < 2 Then MsgBox "Bonjour1"
        Exit Sub
    'Teste s'ils sont sur la ^m colonne
    ElseIf Co(i) = Co(i + 1) Then
        MRo = (Abs(Ro(i)) Mod (Abs(Ro(i + 1) - Ro(i)))) - 2
        If Abs(Ro(i + 1) - Ro(i)) < 2 Or MRo < 2 Then MsgBox "Bonjour2"
        Exit Sub
    'il ne sont pas sur la ^m ligne et la ^m colonne
    ElseIf Co(i) <> Co(i + 1) And Ro(i) <> Ro(i + 1) Then
        MCo = ((Abs(Co(i)) Mod (Abs(Co(i + 1))))) - 16
        MRo = (Abs(Ro(i)) Mod (Abs(Ro(i + 1)))) - 2
        If Abs(Ro(i + 1) - Ro(i)) < 2 Or Abs(Co(i + 1) - Co(i)) < 2 Or MRo < 2 Or MCo < 2 Then MsgBox "Bonjour3"
        Exit Sub
    Else
        'Aucune condition n'est remplie
        MsgBox "Bonsoir"
    End If
Next i
End Sub

16/10/2014, 09h40
Marc-L

Bonjour, bonjour !

Quand on se mélange dans les If, voir alors du côté de l'instruction Select Case …
16/10/2014, 10h29
Thautheme

Bonjour le fil, bonjour le forum,

Dans le cas de Torquemada le Select Case ne me semble pas le plus approprié car le test ne se fait pas sur les mêmes conditions...

Bonjour à tous et merci à ceux qui m'ont répondu.
En fait ce que je croyais être une erreur de syntaxe est en fait une erreur de logique.La première version du code est du type
Code:

1 2 3 4 5 6 7 8 9 10 11 12 for i= 1 to p if Condition1 then if condition 2 then msgbox Bonjour1 End if Else if Condition3 then if condition 4 then msgbox Bonjour2 endif Else msgbox Bonsoir Endif Nexti
Après réflexion il est clair que si la Condition 1 est vrai mais que la condition 2 est fausse le programme sautera directement à Next i et non pas à Else if Condition3 .

Une solution serait la structure suivante
Code:

1 2 3 4 5 6 7 8 9 10 11 12 for i=1to p if Condition1 then if condition 2 then msgbox Bonjour1 ElseIf Condition3 then if condition 4 then msgbox Bonjour2 Elseif Msgbox Bonsoir Endif Endif Endif Nexti
Merci à tous

16/10/2014, 11h04
Menhir
Citation:

Envoyé par Thautheme

Dans le cas de Torquemada le Select Case ne me semble pas le plus approprié car le test ne se fait pas sur les mêmes conditions...

Il y a une solution pour contourner ce problème :
Code:

1 2 3 4 5 6 Select Case True [Case condition n [statements-n]] ... [Case Else [elsestatements]] End Select