XL 2010 Combobox de recherche

[Scorpio]

Bonjour à vous tous,

J'ai ici, un classeur que j'ai récupéré sur le net, bien sur qui m'intéresse, je suis pas un as en VBA, et j'aimerais bien un coup de pouce s'il vous plaît, pour finaliser ce classeur.
En fait, j'aimerais faire dans le Combobox qui est dans le formulaire une recherche par nom, qui se trouve en colonne A, voilà
Merci à qui voudrais bien me donner de l'aide
A+++++

 

[Scorpio]

Merci pour tes conseils JBARBE
A++++

 

[Scorpio]

Private Sub ComboBox1_click()

Cette ligne ci-dessous est jaune dans le code
Dim Tbl(): ReDim Tbl(1 To Application.CountIf(f.[A:A], Me.ComboBox1), 1 To 5)

For i = 1 To UBound(BD)
If BD(i, 1) = Me.ComboBox1 Then
j = j + 1: c = 0
For Each k In Array(1, 3, 6, 8, 9)
c = c + 1: Tbl(j, c) = BD(i, k)
Next k
End If
Next i
Me.ListBox1.List = Tbl
End Sub

 

[Lone-wolf]

Bonjour tout ce beau monde 🙂

Nicole, la première macro que tu as proposé, causait déjà une erreur sur 2013. Le classeur que tu viens de proposé(de Jacques Boisgontier), cause problème aussi.

Scorpio, je n'ai pas testé toutes les macros, mais celle de Pilippe est fonctionnelle.

 

[JCGL]

Bonjour à tous,
Salut Jeune Loup,

Le fichier de Nicole fonctionne chez moi.

A+ à tous

 

[Scorpio]

Salut Lone-Wolf,
J'ai cette version qui je crois fonctionne, enfin pour moi
A++++

 

[Scorpio]

Bonjour tout ce beau monde 🙂

Nicole, la première macro que tu as proposé, causait déjà une erreur sur 2013. Le classeur que tu viens de proposé(de Jacques Boisgontier), cause problème aussi.

Regarde la pièce jointe 985840

Scorpio, je n'ai pas testé toutes les macros, mais celle de Pilippe est fonctionnelle.

Qui est Philippe

 

[Lone-wolf]

Re Scorpio

Philippe c'est phlaurent55, l'un des intervenants sur ton fil. En retour ton fichier avec sa macro que j'ai mis dans une private sub à part et la combo y faisant appel.

Re Jean-Claude, si c'est celui de Jacques Boisgontier, je suis étonné. Chez moi l'erreur est bien là, l'image le confirme. Même sur 2010, il y avait le même problème.

 

[JCGL]

Bonjour à tous,

Si l'image peut confirmer :

A+ à tous

 

[Lone-wolf]

Re,

Je ne porte aucun jugement. Je ne comprends pas pourquoi il y a cette erreur. 🙄

Edit: en supprimant ces 2 lignes: x = x + f.Columns(k).Width * 1.1 et temp = temp & f.Columns(k).Width * 1.1 & ";" , plus d'erreur.

 

[Scorpio]

Re Scorpio

Philippe c'est phlaurent55, l'un des intervenant sur ton fil. En retour ton fichier avec sa macro que j'ai mis dans une private sub à part et la combo y faisant appel.

Re Jean-Claude, si c'est celui de Jacques Boisgontier, je suis étonné. Chez moi l'erreur est bien là, l'image le confirme. Même sur 2010, il y avait le même problème.

Merci Lone-Wolf,
Super gentil.
Je regarde ça un peux plus tard et te redit.
Bonne soirée et merci

 

[Scorpio]

Salut à tous,
Je voudrais remercier les membres ci-dessus, qui ont participés à me donner un coup de main se samedi, en particulier:
Robert, Lone-Wolf, Dranreb, phlaurent55, JCGL, JBARBE,et Bisson Nicole.
Un grand merci à vous et bon dimanche
A++++