Bonjour,

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

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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?