Discussion :

[orion_]

Bonsoir,

Petite explication:

J'ai deux List, un bouton entre les deux et je souhaite qu'au moment de l'appui du bouton la valeur de la List de gauche (List58) ne soit pas presente dans la List de droite (List69), et si c'est de cas afficher un MsgBox. J'ai donc fait une petite boucle de test pour cela.
Le probleme c'est que quand le test devrait renvoyer le MsgBox il ne le fait pas. J'ai un peu farfouiller et je me suis rendu compte que quand les valeurs testes sont bien egales mon test l'ignore.

Voici le code:

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
 
Private Sub Command71_Click()
'add a part number
Dim AddPn As String
Dim i As Integer
 
NI = List69.ListCount
 
'read the select item in list58
AddPn = List58.Value
 
For i = 0 To NI - 1
    If List69.ItemData(i) = AddPn Then
        MsgBox "Mon message"
    End If
Next i
 
'add the select item in the list 69
List69.AddItem AddPn
 
End Sub

Ca me parait pourtant simple, mais je ne vois pas mon erreur.
Si vous pouvez m'eclairer, merci.

[jfontaine]

Bonjour,

Essai en supprimant les espaces

Code :

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

If trim(List69.ItemData(i)) = trim(AddPn) Then

Il y a peut etre une casse différente entre les 2 listbox. Dans ce case met tout en minusule ou majuscule

[orion_]

Merci c'est excatement ca !