Discussion :

[dut-dut]

Bonjour,
j'ai voulu utiliser le code du FAQ pour sélectionner une ligne de ma zone de liste "ListeScenarios" selon la valeur de la variable IDsc qui correspond à la 1ère colonne. Malheureusement la condition indiquée dans l'instruction If n'est jamais vérifiée alors que pourtant la valeur attribuée à IDsc existe bien dans la liste...

Quelqu'un pourrait-il m'aider ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        Dim IDsc, listrow as integer
        IDsc = 33
 
        For i = 1 To ListeScenarios.ListCount
            If Me.ListeScenarios.Column(0, i) = IDsc Then
                listrow = i
                Exit For
            End If
        Next i
 
        Me.ListeScenarios.Selected(listrow) = True

[micniv]

salut,

essaie :

Code :

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

1
2
3
...
If cInt(Me.ListeScenarios.Column(0, i)) = IDsc Then
...

[dut-dut]

C'est noté... je teste et je vous tiendrai informé.

[dut-dut]

Merci micniv !

Effectivement ça fonctionne... Le problème venait du type des variables que je compare : Me.ListeScenarios.Column(0, i) renvoie une valeur de type texte alors que IDsc est déclaré Integer.

La solution de micniv est donc de convertir Me.ListeScenarios.Column(0, i) au format Integer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
        Dim IDsc, listrow As Integer
        listrow = 0
        IDsc = 50
 
        For i = 0 To ListeScenarios.ListCount - 1
            If CInt(Me.ListeScenarios.Column(0, i)) = IDsc Then
                listrow = i
                Exit For
            End If
        Next i
 
        Me.ListeScenarios.Selected(listrow) = True

Ou on peut aussi imaginer convertir IDsc en format texte :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
        Dim listrow As Integer
        Dim IDsc As String
        listrow = 0
        IDsc = CStr(50)
 
        For i = 0 To ListeScenarios.ListCount - 1
            If Me.ListeScenarios.Column(0, i) = IDsc Then
                listrow = i
                Exit For
            End If
        Next i
 
        Me.ListeScenarios.Selected(listrow) = True

Voilà pour tous.
@+