1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Filtre des données dans un combobox [Résolu]

Signaler
Messages postés
2
Date d'inscription
dimanche 20 avril 2008
Statut
Membre
Dernière intervention
29 mai 2008
 -
Messages postés
2
Date d'inscription
dimanche 20 avril 2008
Statut
Membre
Dernière intervention
29 mai 2008
 -
J'ai crée un userform nommé client. Dans celui ci, il y a un combobox1. Pour alimenter le combobox, j'ai écrit les lignes:

 For i = 2 To j
        ComboBox1.AddItem Sheets("clients").Cells(i, 1)
    Next

Donc mon combobox est alimenté.
J'aimerai pouvour filtrer le contenu de ce combo.
J'aimerai que s'affiche la première colonne de la feuille clients en fonction de la valeur qui se trouve dans la 12ème colonne de cette même page.
Le critère de ce filtre se situe dans le textbox12 de ce même userform.

J'ai tapé pour filtrer la ligne

Worksheets("clients").Cells(i, 12).AutoFilter Field:=12, Criteria1:=TextBox12

Le but final est d'afficher le nom des clients en fonction du code postal qui se trouve dans la 12ème colonne

2 réponses

Réponse 1 / 2
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
 18
Soit tu utilises le filtre sur ta feuille avec SpecialCells(xlCellTypeVisible)

soit tu mets une condition dans ta boucle qui vérifie la valeur en colonne L
 For i = 2 To j
    If Sheets("clients").Range("L" & i) = Textbox12.text Then
        ComboBox1.AddItem Sheets("clients").Cells(i, 1)
    End If
 Next

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Réponse 2 / 2
Messages postés
2
Date d'inscription
dimanche 20 avril 2008
Statut
Membre
Dernière intervention
29 mai 2008
Super sympa

Ca fonctionne

Merci
Répondre Posez votre question