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

dindin

XLDnaute Occasionnel

• 6 Novembre 2015

• #31

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

 

Dernière édition: 6 Novembre 2015

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 6 Novembre 2015

• #32

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Novembre 2015

• #33

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.

 

Vote positif 0 Vote négatif

dindin

XLDnaute Occasionnel

• 6 Novembre 2015

• #34

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





même zippé il fait presque 700 voir photo

 

Pièces jointes

• Capture2.jpg

  55.2 KB · Affichages: 55

Vote positif 0 Vote négatif

dindin

XLDnaute Occasionnel

• 6 Novembre 2015

• #35

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

 

Pièces jointes

• ListBoxInutuitifModif - Copie.xls

  69.5 KB · Affichages: 37

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Novembre 2015

• #36

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.

 

Pièces jointes

• CBxLiéesDindin.xlsm

  124.8 KB · Affichages: 46
• CBxLiéesDindin.xlsm

  124.8 KB · Affichages: 49

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 7 Novembre 2015

• #37

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

Code:

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

 

Pièces jointes

• ListBoxInutuitifModif - Copie.zip

  794.3 KB · Affichages: 93

Dernière édition: 9 Novembre 2015

Vote positif 0 Vote négatif

dindin

XLDnaute Occasionnel

• 7 Novembre 2015

• #38

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

merci , je regarde si je peux l adapter.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Novembre 2015

• #39

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 :

Code:

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

Bonne fin de soirée.

 

Pièces jointes

• Gest abbat avec filtre automatique(2).xlsm

  877.1 KB · Affichages: 149

Dernière édition: 7 Novembre 2015

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Novembre 2015

• #40

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é :

Code:

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

A+

 

Pièces jointes

• Gest abbat avec filtre automatique et Userform(4).xlsm

  955.8 KB · Affichages: 171

Dernière édition: 9 Novembre 2015

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Novembre 2015

• #41

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

Message annulé.

 

Dernière édition: 9 Novembre 2015

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Novembre 2015

• #42

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+

 

Vote positif 0 Vote négatif