Comparaison de deux listbox

Question

Bonsoir!
Voila j'ai un soucis avec une listbox.
En faite, j'ai 2 listbox, contenant chacune la meme chose, des numéros de 1 à 15. je voudrais obligé que la seconde listbox ai un chiffre supérieur a la première.
Voici ce que j'ai fais, mais ca ne marche pas  :sad) 


Private Sub LstMax_Click()
If LstMax.List(LstMax.ListIndex) < LstMin.List(LstMin.ListIndex) Then
MonAction
End If
End Sub


Ma seconde listbox s'appelle donc LstMax.
Si quelqu'un pourrais m'aider, ca serais super sympa  ;) 
Merci d'avance & bonne soirée  :) 
AigleNoir  ?-)

Renfield · Answer

Tu peux essayer cela :


Private Sub Form_Load()
    Dim i As Integer
    For i = 1 To 15
        LstMin.AddItem i
        LstMax.AddItem i
    Next i
End Sub

Private Sub LstMin_Click()
    If LstMin.ListIndex = LstMin.ListCount - 1 Then
        LstMin.ListIndex = LstMin.ListCount - 2
    End If
    
    If LstMax.ListIndex < LstMin.ListIndex Then
        LstMax.ListIndex = LstMin.ListIndex + 1
    End If
End Sub

Private Sub LstMax_Click()
    If LstMax.ListIndex = 0 Then
        LstMax.ListIndex = 1
    End If
    
    If LstMin.ListIndex >= LstMax.ListIndex Then
        LstMin.ListIndex = LstMax.ListIndex - 1
    End If
End Sub

cs_liquide · Answer

sincerement je ne comprend pas vraiment ce que tu veux faire exactement. Je ne comprend pas la maniere dont une valeur d'une listbox soit supérieur a l'autre listbox. peut etre que tout vient de "monAction", que l'on ne connait pas.
est ce que c'est quand tu click sur un item, que l'item de l'autre listbox soit supérieur.

peux tu preciser?

liquide

Renfield · Answer

En gros, je crois qu'il veux séléctionner une gamme de valeur.

une valeur Min, et une Valeur Max; chaque listBox jouant le role de l'une des deux valeurs.

si je selectionne par exemple une valeur Min qui vaut 5; c'est incohérent d'avoir une valeur Max à 3..... je dois donc séléctionner la valeur Max à 6...

c'est ce que j'ai codé, en tous cas ;)

DDelec24 · Answer

Oui désolé liquide, j'ai du partir vite, donc j'ai baclé  :sad) 

Merci beaucoup Renfield, je me suis pris la tete alors que c'étais simple, merci beaucoup  ;) 

AigleNoir  ?-)

Comparaison de deux listbox

4 réponses

Discussions similaires