Voici un ptit bout de code simple permettant des saisies semie-automatiques...
Source / Exemple :
'Voici la fonction qui permet de le faire... Vous trouverez dans le ZIP un exemple d'application...
Public Function Saisie()
If st = True Then
If Len(Text1.Text) <> 0 Then
For i = 0 To List1.ListCount - 1
'Analyse et comparaison du texte de la textbox aux elements de la listbox
If LCase(Text1.Text) = LCase(Mid(List1.List(i), 1, Len(Text1.Text))) Then
fin = Len(Text1.Text)
Text1.Text = List1.List(i)
Text1.SelStart = fin
Text1.SelLength = Len(Text1.Text) - fin
Exit Function
End If
Next i
End If
End If
End Function
Conclusion :
Merci par avance pour vos commentaires ... Et pas d'injures ou quoi que se soit dans le genre ...
Thx
A++
DeAtH_-_CrASH
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.