Bonjour,  
 
Mon application contient 7 label box lié a une list box, j'utilise les  
touche haut et bas pour pouvoir naviguer de l'une a l'autre.  
Ainsi lorsque je tape un nombre dans un text box, la ligne  
correspondante dans la list box devient "selected".  
Tous se passe bien au depart mais lorsque je revient sur mon text box,  
il rentre dans la boucle "If List1.Selected(nombre) = True And  
Text1.DataChanged = True Then" alors que je n'ai meme pas modifier le  
text de la text box.  
 
 
Dans l'évenement LOSTFOCUS, j'ai inseré le code suivant :  
 
 
Private Sub Text1_LostFocus()  
Dim nombre As Integer  
If Text1.Text = "" Then Exit Sub  
bInitialize = True  
nombre = Text1.Text - 1  
 
 
If List1.Selected(nombre) = True And Text1.DataChanged = True Then  
    MsgBox "Ce film a déja été choisit"  
    Text1.Text = ""  
    Text1.BackColor = &HFF&  
    Text2.BackColor = &HFFFFFF  
    Text3.BackColor = &HFFFFFF  
    Text4.BackColor = &HFFFFFF  
    Text5.BackColor = &HFFFFFF  
    Text6.BackColor = &HFFFFFF  
    Text7.BackColor = &HFFFFFF  
    Text1.SetFocus  
    Exit Sub  
End If  
 
 
If List1.Selected(nombre) = False Then  
    List1.Selected(nombre) = True  
End If  
bInitialize = False  
End Sub  
 
 
Pouvez vous m'aidez ?  
 
 
Merci  
Johnson