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 : 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
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