ListBox et recherche

[sososo82]

Bonjour tout le monde!

Ma question concerne l'utilisation d'un listbox dans un userform.

Voila je crée un userform qui permettrait à différents utilisateurs de savoir quelles données leurs sont rattachées.

Dans mon userform il y a une combobox un bouton "chercher" une listbox et bouton quitter.

Est-il possible qu'en choisissant un nom dans la combobox et en cliquant sur "Chercher" la listbox affiche toutes les lignes Excel dans lesquelles il y a le nom de l'utilisateur ?

Merci d'avance!

bonne fin de journée

 

[ChTi160]

Re : ListBox et recherche

Salut sososo82
Bonsoir le fil
Bonsoir le Forum

En pièce jointe un exemple

Le Fichier : Regarde la pièce jointe ListboxV1.zip

je n'ai pas mis de commentaire à voir si besoin

le bouton recherche est il indispensable car on pourrait s'en passer à voir

Bonne fin de Soirée

 

[sososo82]

Re : ListBox et recherche

Bonjour forum!

Salut Chti160

Tout d'abord un grand merci pour t'être penché sur mon problème

Pour le bouton "rechercher" c'était juste une idée comme ça mais ce n'est pas indispensable, c'était juste pour le principe.

Je vais regarder ça cette après midi.

Bonne journée!

 

[ChTi160]

Re : ListBox et recherche

Salut sososo82
Bonsoir le fil
Bonsoir le Forum

En pièce jointe le fichier sans le bouton Rechercher et quelques commentaires

Le Fichier :Regarde la pièce jointe ListboxV1.zip


Bonne fin de Soirée

 

[sososo82]

Re : ListBox et recherche

Bonjour Chti160
bonjour forum!

Ah oui zut je viens juste de m'apercevoir que tu m'as envoyé ce fichier...
Et en plus je ne pourrais que le consulter ce soir...


En attendant, j'ai justement un problème pour adapter ton code à mon fichier (le vrai), notament avec le bouton "Rechercher" en fait je ne comprend pas bien le code:

Private Sub Rechercher_Click()

For Ligne = 1 To UBound(TabGeneral, 1)
If TabGeneral(Ligne, 1) = StrName Then
With UsF_Traitement.LstB_Recherche

.AddItem TabGeneral(Ligne, 2)
.Column(1, .ListCount - 1) = TabGeneral(Ligne, 3)
.Column(2, .ListCount - 1) = TabGeneral(Ligne, 4)


End With


End If
Next
End Sub

ça marche pas trop chez moi....

Peux tu m'expliquer rapidemment stp ?

Sinon ça ira mieux peut être avec le dernier fichier que tu m'as envoyé

Merci pour ton aide

 

[sososo82]

Re : ListBox et recherche

Euh.... le deuxième fichier... c'est le même je crois

 

[ChTi160]

Re : ListBox et recherche

Re
Effectivement lol
Excuses !!!!!

le Fichier : Regarde la pièce jointe ListboxV2.zip

Bonne fin de Soirée

 

[sososo82]

Re : ListBox et recherche

Bonjour tout le monde!

Tout d'abord un GRAND MERCI à Chti160 pour ta patience et pour ton aide: ton fichier est génial et fonctionne bien (merci aussi pour les explications qui m'éclairent) !

Toutefois si ton programme fonctionne bien seul lorsque je l'adapte au mien une ligne ne marche plus:

For Ligne = 1 To UBound(TabGeneral, 1)

Sachant que mon tabgeneral est défini par :

TabGeneral = .Range(.Cells(4, 1), .Cells(DerLigne, 10)).Value

(mes noms sont en colonnes 10 et la ligne de départ est la 4)

Une idée du problème?

J'ai "erreur 13: Incompatibilité de type"