Combobox recherche affiche listbox

JORDAN

XLDnaute Impliqué

• 24 Février 2009

• #2

Re : Combobox recherche affiche listbox

Bonjour Linuxien

peut etre comme ceci

un code récupéré sur le site de JB

Code:

Private Sub UserForm_Initialize()
  For i = 1 To Sheets(1).[A65000].End(xlUp).Row
      Me.ComboBox1 = Sheets(1).Cells(i, "A")        ' on se positionne dans le combobox
      If Me.ComboBox1.ListIndex = -1 Then           ' Existe t-il?
         Me.ComboBox1.AddItem Sheets(1).Cells(i, "A")
      End If
   Next i
End Sub

 

Vote positif 0 Vote négatif

YannC.

XLDnaute Occasionnel

• 24 Février 2009

• #3

Re : Combobox recherche affiche listbox

Bonjour et merci JORDAN,

C'est ce que le voulais pour ma combobox. Maintenant il ne me reste plus cas réussir à lui dire de m'afficher tous les noms correspondant à la selection de la combo dans une listebox.

Si vous avez une idée.

Et encore merci JORDAN.


P.S. : En parlantde cela, tu as marqué que tu avais trouvé cela sur le site de JB. Est ce que tu pourrais me passer l'adresse de ce site. Merci

 

Vote positif 0 Vote négatif

YannC.

XLDnaute Occasionnel

• 24 Février 2009

• #4

Re : Combobox recherche affiche listbox

Bonjour à tous, j'ai trouvé pour ma deuxieme demande:

Voila ce que j'ai fait et cela fonctionne :

Private Sub ComboBox1_Change()
Dim TempTab As Variant
Dim L As Integer
TempTab = Sheets("Test").Range("A2:B100").Value
ListeBox1.Clear
For L = 2 To UBound(TempTab, 1)
If TempTab(L, 2) = ComboBox1.Text Then
ListeBox1.BoundColumn = 2
ListeBox1.AddItem TempTab(L, 1)
End If
Next L
End Sub

Cliquez pour agrandir...

Merci à tous pour votre aide et votre soutient.

Le linuxien

 

Vote positif 0 Vote négatif

YannC.

XLDnaute Occasionnel

• 24 Février 2009

• #5

Re : Combobox recherche affiche listbox

Hello,

J'ai parlé trop vide, mon code ne me met pas les noms correctement en fonction du choix de la liste du combobox.

😕

 

Vote positif 0 Vote négatif

YannC.

XLDnaute Occasionnel

• 24 Février 2009

• #6

Re : Combobox recherche affiche listbox

HEllo à tous

Je remet le fichier joint modifier mais qui me pose probleme sur cette listebox maintenant.

Pas de chance pour moi.

 

Pièces jointes

• Recherche1.zip

  17.4 KB · Affichages: 69
• Recherche1.zip

  17.4 KB · Affichages: 55
• Recherche1.zip

  17.4 KB · Affichages: 56

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 24 Février 2009

• #7

Re : Combobox recherche affiche listbox

Bonjour le fil, bonjour le forum,

En pièce jointe ton fichier modifié.

 

Pièces jointes

• linuxien_v01.xls

  48 KB · Affichages: 144

Vote positif 0 Vote négatif

YannC.

XLDnaute Occasionnel

• 24 Février 2009

• #8

Re : Combobox recherche affiche listbox

Bonjour et merci Robert pour la modif.

C'est génial, cela est parfait

Merci à tous et bonne journée

Le linuxien

 

Vote positif 0 Vote négatif

YannC.

XLDnaute Occasionnel

• 24 Février 2009

• #9

Re : Combobox recherche affiche listbox

Bonjour le forum, bonjour Robert,

Je reviens vers vous car le macro fonctionnait bien, mais si je remplace 'lycee, college, cfa" par des numeros la listobox n'affiche plus les noms.

Je ne comprend pas pourquoi, pouvez vous m'aider. Merci de votre aide et de vos explications

Le Linuxien

 

Pièces jointes

• linuxien.xls

  40 KB · Affichages: 58

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 24 Février 2009

• #10

Re : Combobox recherche affiche listbox

Bonsoir le Linuxien, bonsoir le forum,

Ton fichier modifié en pièce jointe. j'ai carrément modifié l'alimentation sans doublons de la ComboBox1 car la première méthode lançait Combobox1_change à chaque ligne et ralentissait le code.

L'erreur venait du fait que l'on comparait la valeur de la cellule (Integer) avec la valeur de la ComboBox1 (String). La solution :

Code:

If [COLOR=red]CStr([/COLOR]cel.Value[COLOR=red])[/COLOR] = Me.ComboBox1.Value Then

au lieu de :

Code:

If cel.Value = Me.ComboBox1.Value Then

 

Pièces jointes

• linuxien_v02.xls

  49 KB · Affichages: 89
• linuxien_v02.xls

  49 KB · Affichages: 76
• linuxien_v02.xls

  49 KB · Affichages: 81

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 25 Février 2009

• #11

Re : Combobox recherche affiche listbox

Bonjour a toutes et a tous


Je m'excuse, de squater ce fil,mais c'est juste pour savoir, comment
il faudrait faire ,pour afficher plusieurs colonnes dans la ListBox

Merci a l'avance

Cordialement

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 25 Février 2009

• #12

Re : Combobox recherche affiche listbox

Bonjour le fil, bonjour le forum,

Il faut attribuer 2 à la propriété ColumnCount (maximum 10) de la ListBox, puis ensuite alimenter ses deux colonnes mais là il y plusieurs manières de le faire en fonction du résultat désiré.

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 25 Février 2009

• #13

Re : Combobox recherche affiche listbox

Bonjour Robert

j'ai essayé ,mais , ça n'affiche pas plus de colonnes

simplement, (en exemple)faire afficher les données des colonnes C, D sur la même ligne(j'y ai introduit des données )

Merci de ta réponse

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 25 Février 2009

• #14

Re : Combobox recherche affiche listbox

Bonjour le fil, bonjour le forum,

Un fichier exemple serait le bienvenu ! Pas envie de tout faire...

 

Dernière édition: 25 Février 2009

Vote positif 0 Vote négatif

YannC.

XLDnaute Occasionnel

• 25 Février 2009

• #15

Re : Combobox recherche affiche listbox

Bonjour Robert, Bonjour vaucluse immo et bonjour au forum.

Merci beaucoup Robert pour ton aide et tes explications qui me permettent de mieux comprendre excel et le vba en particulier.

Pour Christina, je pense que l'on peut reprendre le fichier que j'ai fait, mais ce qu'elle voudrait si j'ai tout compris, c'est que lorsque l'on selectionne par exemple cfa, s'affiche les nom plus une info d'une autre colonne comme par exemple la classe.

Voir P.J.

Par contre, je ne sais faire les colonnes, mais pas mettre les deux infos dans la listbox.

Merci Robert pour ton soutient.

 

Pièces jointes

• linuxien_v02(1).xls

  48.5 KB · Affichages: 87

Dernière édition: 25 Février 2009

Vote positif 0 Vote négatif