choix TextBox dans LisBox

[albert]

Bonjour à tous, bonjour Forum,

J’ai trouvé un code, sommes toutes, fort intéressant, sur

http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&threadm=eh9iiQAMBHA.1164%40tkmsftngp07&rnum=1&prev=/groups%3Fq%3Dlistbox%2Bcomment%2Bfaire%2Bapparaitre%2Bles%2Bdonnees%2Bgroup:microsoft.public.fr.excel%26hl%3Den%26lr%3D%26ie%3DUTF-8%26group%3Dmicrosoft.public.fr.excel%26selm%3Deh9iiQAMBHA.1164%2540tkmsftngp07%26rnum%3D1


...l’adresse, déjà donne une idée de la complexité 🙂)

… je reproduis l’exemple…
« J'ai une Userform (Userform1), Une TextBox (NoClient), Un
Bouton (chercher) et une ListBox1 ?2 colonnes. »

Avec le code :
dans l'événement du bouton "chercher".

Private Sub chercher_Click()
N = 0
For Each wCell In ActiveSheet.UsedRange.Columns(1).Cells
If wCell.Value = CInt(NoClient.Value) Then
ListBox1.AddItem , N
ListBox1.List(N, 0) = wCell.Offset(0, 1)
ListBox1.List(N, 1) = wCell.Offset(0, 2)
N = N + 1
End If
Next wCell
End Sub


marche pas….
J’ai supprimé les références dans RowSource… sans plus de succès

Quelqu’un aurait une idée ???

Merci d’avance

PJ : MFElistbox.zip 8 Ko
albert

 

[Zon]

Salut,


Normal que cela ne fonctionne pas, le bouton chercher n'exite pas. En fait c'est dans le commandbutton1_click qu'il faut mettre ton code. Je pense que tu confonds la propriété name et Caption. Ton bouton a pour name commandbutton1 et pour caption chercher. Il en est un peu pareil pour Noclient, ta combo c'est combobox1.

A+++

 

[albert]

merci Zon,
erreur sur les principes de base...
j'ai corrigé, c'est une merveille
je joins le zip pour ceux qui seraient intéressés

cordialement
albert