API - "SendMessage" - dans Excel

Bonjour lami,

les APIs, je connais très peu, je comprends le code, et en même
temps je ne sais si ma méthode est "meilleur" ?

J'ai tendance à toujours découper l'objet / diviser pour regner

Si je comprends bien tu veux un filtre automatique sur chaque
lettre ajouter dans la texte box.

à mon dernier cours de VB, on m'avait dit que le tri alphabétique
n'était pas inné chez les objets VBA, en lisant ton code cela me
rappelle qu'il existe quand même...

ceci dit le listbox contient un nombre d'item "visible" fixe, il
faut d'abord le fixer d'aprés la police choisi et la hauteur du
contrôle. Ce nombre devient le pas du controle lui-meme.

ensuite un simple routine de recherche dans les items d'après
les lettres saisies dans le textbox.

pour ton code, alors quelques modifications !

un textbox caché !
txt_hwndlst.Value

Option Explicit
'

Private Sub cmd_Quitter_Click()
    Unload Me
End Sub
'

Private Sub UserForm_Initialize()

    Dim Boucle, Decalage As Long
    Dim lngNbLigne As Long

    lstnom.SetFocus
    lngNbLigne = Sheets("a").Range("B4:B65535").End(xlDown).Row
    Decalage = 4 'B4
    
    For Boucle = 1 To (lngNbLigne - Decalage)
        If (Sheets("a").Cells((Boucle + Decalage), 2).Value <> "") Then
            lstnom.AddItem Sheets("a").Cells((Boucle + Decalage), 2).Value
        End If
    Next
    
    lstnom.ZOrder 0
    txt_hwndlst.Value = FindWindowEx(0, 0, "lstnom", vbNullString)

End Sub
'

Private Sub txtnomsearch_Change()

    Dim nbenter As Long
    Dim txtarechercher As String
    
    txtarechercher = txtnomsearch.Text
    nbenter = SendMessage(txt_hwndlst.Value, LB_SELECTSTRING, 0, txtarechercher)
    
End Sub

et la je ne suis pas sur, je crois que :

Private Sub txtnomsearch_Change()
    Call SendMessage(txt_hwndlst.Value, LB_SELECTSTRING, 0, txtnomsearch.Text)
End Sub

mais je ne réussit pas à le faire fonctionner, je ne connais pas
assez les APIs windows.

Lupin

re:

VB versus API, en effet je n'ai utilisé les API qu'avec VB et
selon des recettes sans trop comprendre.

Avec VBS, on peut instancier pratiquement tout les objets
"windos", alors je crois que oui, VBS est supporté par VBA
qui lui est supporté par VB. Si je ne m'abuse pas c'est le
typage qui est vital !

exemple :

La routine :

Private Sub txtnomsearch_Change()
    Call SendMessage(txt_hwndlst.Value, LB_SELECTSTRING, 0, txtnomsearch.Text)
End Sub

devrait s'en doute s'écrire du genre :

Private Sub txtnomsearch_Change()
    Call SendMessage(CLng(txt_hwndlst.Value), _
                                       LB_SELECTSTRING, 0, _
                                       CStr(txt_hwndlst.Value))
End Sub

afin de garantir le type transmit. Un contrôle de type assureras
un appli plus solide.

bonne continuité

Lupin

re:

désolé je ne puis éditer le message (mon compte est bousillé).

CStr(txtnomsearch.Text)

Lupin

Hello lami20j,

Quelques jours ailleurs... je viens de voir ton invite à faire un tour ici.

J'utilise peu les API pour mes besoins courants.
Juste une question : tu fais saisir quelque chose dans une TextBox, et tu fais contrôler la saisie à partir de la liste de la ListBox, c'est ça ?
Ça revient à utiliser un Combo, ou je me trompe ?
C'est le besoin que je ne vois pas vraiment.

Re,

j'ai essayé avec ByVal mais ça ne marche toujours pas.

Pour l'instant j'ai contourné le problème :

j'ai mis un ComboBox (merci Armojax pour la reprise sur Combo que j'ai laissé tombé ) sur la feuille dont j'ai caché la flèche et j'utilise

Private Sub cbnom_Change()
   On Error Resume Next
   lstnom.Selected(cbnom.ListIndex) = True
End Sub

Pour l'instant j'ai ce que j'ai voulais mais en utilisant un petiti bidouillage.

Merci à Lupin.A ( c'est toi Lupin?!) et Armojax