listbox

T

titiborregan5

XLDnaute Accro

• 25 Avril 2013

• #2

Re : listbox

bonjour,
si tu mets une combobox qui reprends tous tes agents, tu peux taper dedans et ça te sort les résultats correspondants...
je ne sais pas si ça répond à ta question?

 

Pièces jointes

• test liste.xlsm

  23.2 KB · Affichages: 73
• test liste.xlsm

  23.2 KB · Affichages: 76
• test liste.xlsm

  23.2 KB · Affichages: 57

Dernière édition: 25 Avril 2013

Vote positif 0 Vote négatif

S

salhisarra

Guest

• 25 Avril 2013

• #3

Re : listbox

Non je souhaite vraiment le faire a travers une listbox

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 25 Avril 2013

• #4

Re : listbox

Bonsoir salhisarra, titiborregan5,

Je ne sais pas si j'ai compris, mais pourquoi pas comme dans la pièce jointe ... 😕

 

Pièces jointes

• test liste (2).xls

  48 KB · Affichages: 75

Vote positif 0 Vote négatif

S

salhisarra

Guest

• 26 Avril 2013

• #5

Re : listbox

Salut c'est tout à fait ce dont je recherchais, sa m'aide énormément. J'aimerais perfectionner cette liste avec les noms et prenoms bien a ligner de part et d'autre de la listbox. Serait-il possible que tu puisse m'aider stp ?

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 26 Avril 2013

• #6

Re : listbox

Bonjour salhisarra, le forum,

Peut-être en utilisant un tableau à 2 dimensions pour "charger" le contenu dans la ListBox à 2 colonnes?
Teste ce code en lieu et place du précédent:

VB:

Private Sub TextBox1_Change()
ListBox1.Clear
    With Sheets("Feuil2")
        Dim tablo()
        ListBox1.ColumnCount = 2
        lig = 0
        For Each c In .[C2].Resize(Application.CountA(.[C:C]) - 1)
            If UCase(Left(c, Len(TextBox1.Value))) = UCase(TextBox1.Value) Then
                ReDim Preserve tablo(1, lig)
                tablo(0, lig) = c
                tablo(1, lig) = c.Offset(0, 1)
                lig = lig + 1
            End If
        Next c
        ListBox1.Column() = tablo
    End With
End Sub

 

Vote positif 0 Vote négatif

S

salhisarra

Guest

• 26 Avril 2013

• #7

Re : listbox

oui c'est exactement ce que je voulais mais y a un soucis lorsque j'ecris des lettres qui ne commence par la première du nom le programme bloque

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 26 Avril 2013

• #8

Re : listbox

Re-bonjour,

lorsque j'ecris des lettres qui ne commence par la première du nom le programme bloque

Cliquez pour agrandir...

Je suis parti du principe que tu ferais des adaptations au code proposé, en fonction de tes tests 😛

Ca devrait fonctionner si tu ajoutes:

Code:

On Error Resume Next

... juste avant

Code:

ListBox1.Column() = tablo

 

Vote positif 0 Vote négatif

S

salhisarra

Guest

• 26 Avril 2013

• #9

Re : listbox

Merci c gentil c tout a fais ce que j'avais besoin. 🙂 je t'en remercie

 

Vote positif 0 Vote négatif

S

salhisarra

Guest

• 26 Avril 2013

• #10

Re : listbox

je suis desolé mais j'ai une autre question stp je suis vraiment nul mais j'arrive pas a debloquer dans mon programme voila mon fichier lorsque j'ecris bail en haut dans le textbox et que je selectionne pr le faire apparaitre ds le textbox correspodant nom et prenom j'ai un decalage mais je ne trouve pas de solution pr extraire les elements selectionner pck si je pars d'une liste trop longue j'aimerai pouvoir la récuperer facilement avec un textbox

 

Pièces jointes

• test2.xls

  52.5 KB · Affichages: 68
• test2.xls

  52.5 KB · Affichages: 73
• test2.xls

  52.5 KB · Affichages: 74

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 26 Avril 2013

• #11

Re : listbox

Re²,

Tu te souviens que tu as demandé à améliorer ma première proposition? Dans le dernier fichier que tu déposes, tu n'utilises pas le code qui te convenait, en définitive 😱😕

Je suppose que ce que tu voudrais faire, maintenant, c'est sélectionner un nom-prénom dans la liste et faire apparaître ces deux infos dans tes deux TextBox?
- Si tu utilises, dans la ListBox, le premier code fourni, nom et prénom sont concaténés avec une espace comme séparateur. Tu vas faire comment pour les "splitter", si tu as des noms composés?
- Si tu as saisi les premiers caractères d'un nom dans le TextBox1, tous les noms de la Feuil2 n'apparaissent plus dans la ListBox. Ta boucle For i = 0 To Nb - 1 n'est donc pas adaptée.
- Pour des raisons semblables, le i dans UserForm1.ListBox1.Selected(i) ne correspond pas à la position du nom sélectionné dans la colonne C de la Feuil2 !!
- Quand tu écris Sheets("Feuil2").Range("A" & i + 2).Select, ... Pourquoi la colonne A ?? Et pourquoi i + 2
- Avec Controls("TextBox" & Y + 1), si Y vaut 0, au premier tour, tu pointes sur ton TextBox1!? Ca ne doit sans doute pas être ce que tu voulais!?

Je n'ai absolument pas le temps de tout corriger au fur et à mesure ... si quelqu'un veut prendre le relais, il/elle est le/la bienvenu(e)!

 

Vote positif 0 Vote négatif

S

salhisarra

Guest

• 26 Avril 2013

• #12

Re : listbox

si j'ai bien sur utiliser la formule du tableau que tu m'a fournis mais la feuille que je transmet et juste une feuille qui est une feuille de test que j'adapte en fonction de la feuille que je veux réaliser, c'est un fichier client. Dans lequel je voudrais ajouter des clients, supprimer des clients ............ Je vois bien que mon programme cloche bien car mon code est décaler mes je ne sais pas comment extrait le numéro de selection de la liste et obtenir les information de la deuxieme feuille pr les faire parvenir ds les textbox.

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 26 Avril 2013

• #13

Re : listbox

salut

autre façon avec un contrôle "ListBox" multicolonne (nom, prénom et N° de ligne)

 

Pièces jointes

• RechercheListBox.xls

  39 KB · Affichages: 71

Vote positif 0 Vote négatif