Ne prend pas en compte le Else avec un ElseIF vba excel

Version imprimable

Bonjour,

Dans mon code j'ai une condition qui n'est pas pris en compte et je ne comprend pas pourquoi.

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
34
35
36
37
38
39
40
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Numéro As String
Dim I As Byte
With ListBox1
   For I = 1 To 9
If ListBox1.Selected(I) = True Then
Numéro = .List(.ListIndex, 0)
 
    If .List(.ListIndex, 1) = "FTS" Then
        FTSConsult.TextBoxNfiche.Value = Numéro
        AffichRecherche.Hide
        FTSConsult.Show
        Exit Sub
 
 
    ElseIf .List(.ListIndex, 1) = "FTA" Then
        FTSConsult.TextBoxNfiche.Value = Numéro
        AffichRecherche.Hide
        FTSConsult.Show
        Exit Sub
 
 
    ElseIf .List(.ListIndex, 1) = "IT" Then
        ITConsult.TextBoxNfiche.Value = Numéro
        AffichRecherche.Hide
        ITConsult.Show
        Exit Sub
 
 
    Else
        dosConsult.TextBoxNfiche.Value = Numéro
        AffichRecherche.Hide
        dosConsult.Show
        Exit Sub
 
    End If
End If
Next I
End With
End Sub

Cette partie n'est pas pris en compte et je ne sais pas pourquoi :

Code:

1
2
3
4
5
6
 
    Else
        dosConsult.TextBoxNfiche.Value = Numéro
        AffichRecherche.Hide
        dosConsult.Show
        Exit Sub

J'ai bien essayer de faire ça a la place :

Code:

1
2
3
4
5
 ElseIf InStr(1, DOS.Value, "DOS") <> 0 Then
        dosConsult.TextBoxNfiche.Value = Numéro
        AffichRecherche.Hide
        dosConsult.Show
        Exit Sub

Mais cela ne fonctionne pas non plus.
Une solution ?:D

05/07/2018, 17h01
Jean-Philippe André

Salut,

Quand tu dis que ce n'est pas pris en compte, c'est que ton code rentre dans la partie Else et n'execute pas les lignes ou que le code ne rentre meme pas dans le Else ?

En mode pas à pas ?

Tu peux remplacer ton If ElseIF par un Select Case aussi :)

Citation:

Envoyé par Jean-Philippe André

Tu peux remplacer ton If ElseIF par un Select Case aussi :)

Bonjour,

d'accord avec la question soulevée : est-ce que le code ne rentre pas dans le bloc Else ou c'est un autre souci ?
proposition avec Select Case, à adapter, j'ai viré la variable numéro avec accent, c'est déconseillé

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
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Numero As String
Dim I As Byte
    With ListBox1
        For I = 1 To 9
            If .Selected(I) = True Then
                Numero = .List(.ListIndex, 0)
 
                Select Case .List(.ListIndex, 1)
                    Case "FTS", "FTA"
                        FTSConsult.TextBoxNfiche.Value = Numero
                        FTSConsult.Show
                    Case "IT"
                        ITConsult.TextBoxNfiche.Value = Numero
                        ITConsult.Show
                    Case Else
                        dosConsult.TextBoxNfiche.Value = Numero
                        dosConsult.Show
                End Select
 
                AffichRecherche.Hide
                Exit Sub
            End If
        Next I
    End With
End Sub

05/07/2018, 17h38
Passepartout007

Bonjour à tous les deux,
Je voulais dire par la que même pas à pas cela ne passais pas par le Else.
Cela en revanche fonctionne avec le case. C'est à ne rien comprendre xD
Merci pour m'avoir montrer la méthode case que je ne connaissais pas.
Par rapport à if qu'elle son ses avantages ?
Cordialement,
Passepartout007