comment filtrer une listbox au fur et à mesure des lettre du textbox

[dindin]

bonjour
le forum
j'ai une listbox qui sert à, afficher une base .
comment puis-je la filtrer depuis un textbox au fur et à mesure que je tape de lettre (colonne des noms )
aussi les dates .
merci d'avance
voir pc jointe

 

[dindin]

Re : comment filtrer une listbox au fur et à mesure des lettre du textbox

comme je débute avec VBA , ai modifié la présentation de mes colonnes comme expliqué sur l'image , ai rajouter un combo pour les villes qui se rempli en auto suivant le code postal. les textboxs que je n'arrive pas à supprimer sont en rouge sur la photo

celui qui souhaite me contacter par mail . pas de souci je lui envoi le fichier .
merci

 

[BOISGONTIER]

Re : comment filtrer une listbox au fur et à mesure des lettre du textbox

>j'arrive pas à poster le fichier il fait plus que 2500 ko .

En zippant ou en supprimant les données, on doit pouvoir poster le fichier

JB

 

[Dranreb]

Re : comment filtrer une listbox au fur et à mesure des lettre du textbox

J'ai pu récupérer des versions plus récentes des modules de service (j'émergeais à peine d'un gros souci de matériel)
J'en équiperais à l'occasion votre classeur joint, muni du nouvel UserForm.
La fonction PlgUti y permet d'imposer un nombre minimum de lignes à considérer même si tout est vide. Ça devrait au moins éviter un plantage au CL.Plage. Après il ne restera qu'à utiliser en priorité ces lignes vides au lieu de dupliquer la dernière pour agrandir le tableau.

 

[dindin]

Re : comment filtrer une listbox au fur et à mesure des lettre du textbox





même zippé il fait presque 700 voir photo

 

[dindin]

Re : comment filtrer une listbox au fur et à mesure des lettre du textbox

voilà le fichier je viens de supprimer l'onglet ville , je ne sais pas si ca va fonctionner sans l'onglet

 

[Dranreb]

Re : comment filtrer une listbox au fur et à mesure des lettre du textbox

Bon, ce n'est pas celui avec mes modules de service, alors j'en équipe à tout hasard des plus récents celui que j'avais.

 

[BOISGONTIER]

Re : comment filtrer une listbox au fur et à mesure des lettre du textbox

Bonjour,

Une autre façon de choisir la ville et le code postal
-on choisi la ville en intuitif en frappant les premières lettres de la ville dans le ComboBox de la ville
-Le code postal est affiché automatiquement

Private Sub ComboVille_Change()
 If Me.ComboVille.ListIndex = -1 And IsError(Application.Match(Me.ComboVille, ChoixVille, 0)) Then
  Set d1 = CreateObject("Scripting.Dictionary")
  tmp = UCase(Me.ComboVille) & "*"
  For Each C In ChoixVille
    If C Like tmp Then d1(C) = ""
  Next C
  Me.ComboVille.List = d1.keys
  Me.ComboVille.DropDown
 Else
  p = Application.Match(Me.ComboVille, ChoixVille, 0)
  Me.TextBox18 = Range("CodePostal")(p)
 End If
End Sub

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormSaisieVillesIntuitif.zip
http://boisgontierjacques.free.fr/fichiers/Formulaire/ListBoxInutuitifModif.zip



JB

 

[dindin]

Re : comment filtrer une listbox au fur et à mesure des lettre du textbox

merci , je regarde si je peux l adapter.

 

[job75]

Re : comment filtrer une listbox au fur et à mesure des lettre du textbox

Bonjour dindin, le forum,

Dans ce fichier (2) je reviens sur le 1er fichier de mon post #16 (sans UserForm).

J'ai juste ajouté dans la feuille une ComboBox pour renseigner le code postal et la ville.

Perso quand un UserForm n'est pas vraiment indispensable je préfère m'en passer car ça devient vite une usine à gaz.

D'ailleurs Excel est surtout fait pour travailler sur les feuilles de calcul non ?

Edit : tiens en passant j'ai simplifié cette macro qui en plus marche mieux :

Sub AfficherTout()
TextBox1 = "µ": TextBox1 = "": TextBox2 = ""
End Sub

Bonne fin de soirée.

 

[job75]

Re : comment filtrer une listbox au fur et à mesure des lettre du textbox

Bonjour dindin, le forum,

Bon avec l'UserForm ce fichier (4) ne fait pas encore trop usine à gaz.

J'ai bien sûr mis 2 ComboBoxes dans UserForm2 pour la code postal et la ville.

Par ailleurs j'utilise la propriété RowSource de la ListBox ce qui permet :

- d'afficher les en-têtes de colonnes

- d'afficher les nombres avec les formats de la feuille de calcul, pour le n° de réservation, le code postal, les n° de téléphone, le poids (format personnalisé) et le prix.

Edit : pour alléger le fichier à la fermeture de UserForm1 j'ai ajouté :

Private Sub UserForm_QueryClose(cancel As Integer, closemode As Integer)
Feuil2.Cells.Clear
End Sub

A+

 

[job75]

Re : comment filtrer une listbox au fur et à mesure des lettre du textbox

Message annulé.

 

[job75]

Re : comment filtrer une listbox au fur et à mesure des lettre du textbox

Bonjour dindin, le forum,

J'ai modifié le fichier précédent pour l'utilisation de la propriété .RowSource.

A+