Bonjour, tout d'abord merci pour ton aide !
Mais il me dit "Utilisation incorrecte de la propriete ListIndex" (erreur d'execution '7777')
Voici ma fonction :
Function SelectionListe(zoneDeListe As ListBox, nbLignesTotal As Integer, texteRecherche As String)
Dim i
Dim valeurTmp
For i = 0 To nbLignesTotal
valeurTmp = zoneDeListe.Column(0, i)
If valeurTmp = texteRecherche Then
zoneDeListe.Selected(i) = True
zoneDeListe.ListIndex = i
End If
Next
End Function
CA Y EST ! Merci il manquait juste le setFocus avant
Message édité par kiwi44 le 05-10-2005 à 09:28:47