Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel liste filtrée dans 1 Listbox

liste filtrée dans 1 Listbox

6 réponses
Avatar
Alain
Bonjour,
j'ai une feuille Excel que je dois souvent filtrer, je=20
d=E9sire que le r=E9sultat de ce filtrage aille dans mon=20
listbox, mais voil=E0 bien que ma feuille soit filtr=E9e,=20
toute la feuille non filtr=E9e appara=EEt dans mon listbox.
Comment faire afin de ne voir appara=EEtre dans mon listbox=20
que la partie filt=E9e de la feuille.
Merci beaucoup.
Alain

Private Sub CommandButton4_Click()
Label9.Visible =3D True
Label9 =3D ComboBox3.Value
Sheets("Tableau").Select
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3D2, Criteria1:=3DLabel9
ListBox1.Visible =3D True
End Sub
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bonsoir Alain,
Et avec, non testé :

Private Sub CommandButton4_Click()
Label9.Visible = True
Label9 = ComboBox3.Value
Sheets("Tableau").Select
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1
Range("A1:M500").SpecialCells (xlCellTypeVisible):=Label9
ListBox1.Visible = True
End Sub

Est ce convenable ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Alain" a écrit dans le message de news:5b9501c474b0$94daa640$
Bonjour,
j'ai une feuille Excel que je dois souvent filtrer, je
désire que le résultat de ce filtrage aille dans mon
listbox, mais voilà bien que ma feuille soit filtrée,
toute la feuille non filtrée apparaît dans mon listbox.
Comment faire afin de ne voir apparaître dans mon listbox
que la partie filtée de la feuille.
Merci beaucoup.
Alain

Private Sub CommandButton4_Click()
Label9.Visible = True
Label9 = ComboBox3.Value
Sheets("Tableau").Select
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Label9
ListBox1.Visible = True
End Sub
Avatar
Alain
Merci beaucoup Philippe de t'intéresser à mon cas
Je teste et t'explique.
Merci
Alain

"Philippe.R" a écrit dans le message de
news:uJS%
Bonsoir Alain,
Et avec, non testé :

Private Sub CommandButton4_Click()
Label9.Visible = True
Label9 = ComboBox3.Value
Sheets("Tableau").Select
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1
Range("A1:M500").SpecialCells (xlCellTypeVisible):=Label9
ListBox1.Visible = True
End Sub

Est ce convenable ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Alain" a écrit dans le message de
news:5b9501c474b0$94daa640$

Bonjour,
j'ai une feuille Excel que je dois souvent filtrer, je
désire que le résultat de ce filtrage aille dans mon
listbox, mais voilà bien que ma feuille soit filtrée,
toute la feuille non filtrée apparaît dans mon listbox.
Comment faire afin de ne voir apparaître dans mon listbox
que la partie filtée de la feuille.
Merci beaucoup.
Alain

Private Sub CommandButton4_Click()
Label9.Visible = True
Label9 = ComboBox3.Value
Sheets("Tableau").Select
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Label9
ListBox1.Visible = True
End Sub




Avatar
Alain
Désolé, Philippe, cela ne fonctionne pas mais je pense que c'est presque
cela
En fait, je souhaite filtrer une liste qui se trouve B2:B500, je souhaite
que dans mon listbox j'ai la liste filtrée C2:500.
Le critère de filtre se trouve dans le label9
Merci beaucoup
Alain



"Philippe.R" a écrit dans le message de
news:uJS%
Bonsoir Alain,
Et avec, non testé :

Private Sub CommandButton4_Click()
Label9.Visible = True
Label9 = ComboBox3.Value
Sheets("Tableau").Select
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1
Range("A1:M500").SpecialCells (xlCellTypeVisible):=Label9
ListBox1.Visible = True
End Sub

Est ce convenable ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Alain" a écrit dans le message de
news:5b9501c474b0$94daa640$

Bonjour,
j'ai une feuille Excel que je dois souvent filtrer, je
désire que le résultat de ce filtrage aille dans mon
listbox, mais voilà bien que ma feuille soit filtrée,
toute la feuille non filtrée apparaît dans mon listbox.
Comment faire afin de ne voir apparaître dans mon listbox
que la partie filtée de la feuille.
Merci beaucoup.
Alain

Private Sub CommandButton4_Click()
Label9.Visible = True
Label9 = ComboBox3.Value
Sheets("Tableau").Select
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Label9
ListBox1.Visible = True
End Sub




Avatar
Philippe.R
Comme ci, Alain, alors ?

Private Sub CommandButton4_Click()
Label9.Visible = True
Label9 = ComboBox3.Value
Sheets("Tableau").Select
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Label9
ListBox1.ListFillRange = Range("c1:c500").SpecialCells (xlCellTypeVisible)
ListBox1.Visible = True
End Sub

--
Amicales Salutations

"Alain" a écrit dans le message de news:
Désolé, Philippe, cela ne fonctionne pas mais je pense que c'est presque
cela
En fait, je souhaite filtrer une liste qui se trouve B2:B500, je souhaite
que dans mon listbox j'ai la liste filtrée C2:500.
Le critère de filtre se trouve dans le label9
Merci beaucoup
Alain



"Philippe.R" a écrit dans le message de
news:uJS%
Bonsoir Alain,
Et avec, non testé :

Private Sub CommandButton4_Click()
Label9.Visible = True
Label9 = ComboBox3.Value
Sheets("Tableau").Select
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1
Range("A1:M500").SpecialCells (xlCellTypeVisible):=Label9
ListBox1.Visible = True
End Sub

Est ce convenable ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Alain" a écrit dans le message de
news:5b9501c474b0$94daa640$

Bonjour,
j'ai une feuille Excel que je dois souvent filtrer, je
désire que le résultat de ce filtrage aille dans mon
listbox, mais voilà bien que ma feuille soit filtrée,
toute la feuille non filtrée apparaît dans mon listbox.
Comment faire afin de ne voir apparaître dans mon listbox
que la partie filtée de la feuille.
Merci beaucoup.
Alain

Private Sub CommandButton4_Click()
Label9.Visible = True
Label9 = ComboBox3.Value
Sheets("Tableau").Select
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Label9
ListBox1.Visible = True
End Sub








Avatar
Alain
Merci pour ta célérité,
mais voilà, elle plante au niveau du Listfillrange.
Alain


"Philippe.R" a écrit dans le message de
news:
Comme ci, Alain, alors ?

Private Sub CommandButton4_Click()
Label9.Visible = True
Label9 = ComboBox3.Value
Sheets("Tableau").Select
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Label9
ListBox1.ListFillRange = Range("c1:c500").SpecialCells (xlCellTypeVisible)
ListBox1.Visible = True
End Sub

--
Amicales Salutations

"Alain" a écrit dans le message de
news:

Désolé, Philippe, cela ne fonctionne pas mais je pense que c'est presque
cela
En fait, je souhaite filtrer une liste qui se trouve B2:B500, je
souhaite


que dans mon listbox j'ai la liste filtrée C2:500.
Le critère de filtre se trouve dans le label9
Merci beaucoup
Alain



"Philippe.R" a écrit dans le message de
news:uJS%
Bonsoir Alain,
Et avec, non testé :

Private Sub CommandButton4_Click()
Label9.Visible = True
Label9 = ComboBox3.Value
Sheets("Tableau").Select
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1
Range("A1:M500").SpecialCells (xlCellTypeVisible):=Label9
ListBox1.Visible = True
End Sub

Est ce convenable ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Alain" a écrit dans le message de
news:5b9501c474b0$94daa640$

Bonjour,
j'ai une feuille Excel que je dois souvent filtrer, je
désire que le résultat de ce filtrage aille dans mon
listbox, mais voilà bien que ma feuille soit filtrée,
toute la feuille non filtrée apparaît dans mon listbox.
Comment faire afin de ne voir apparaître dans mon listbox
que la partie filtée de la feuille.
Merci beaucoup.
Alain

Private Sub CommandButton4_Click()
Label9.Visible = True
Label9 = ComboBox3.Value
Sheets("Tableau").Select
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Label9
ListBox1.Visible = True
End Sub












Avatar
Alain
En fait Philippe, comme cela ça fonctionne
Mais s'il y a un seul élément dans la liste filtrée, la macro plante au
niveau de :

myArray = Sheets("Tableau").Range("C2:c500").SpecialCells

Comment dois-je faire stp afin de contourner cela ?
Alain

Dim myArray() As Variant
ListBox1.Visible = True
Label9.Visible = True
Label9 = ComboBox3.Value
Sheets("Tableau").Select
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Label9


myArray Sheets("Tableau").Range("C2:c500").SpecialCells(xlCellTypeVisible).Value

With Me.ListBox1
.List() = myArray
End With



"Philippe.R" a écrit dans le message de
news:
Comme ci, Alain, alors ?

Private Sub CommandButton4_Click()
Label9.Visible = True
Label9 = ComboBox3.Value
Sheets("Tableau").Select
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Label9
ListBox1.ListFillRange = Range("c1:c500").SpecialCells (xlCellTypeVisible)
ListBox1.Visible = True
End Sub

--
Amicales Salutations

"Alain" a écrit dans le message de
news:

Désolé, Philippe, cela ne fonctionne pas mais je pense que c'est presque
cela
En fait, je souhaite filtrer une liste qui se trouve B2:B500, je
souhaite


que dans mon listbox j'ai la liste filtrée C2:500.
Le critère de filtre se trouve dans le label9
Merci beaucoup
Alain



"Philippe.R" a écrit dans le message de
news:uJS%
Bonsoir Alain,
Et avec, non testé :

Private Sub CommandButton4_Click()
Label9.Visible = True
Label9 = ComboBox3.Value
Sheets("Tableau").Select
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1
Range("A1:M500").SpecialCells (xlCellTypeVisible):=Label9
ListBox1.Visible = True
End Sub

Est ce convenable ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Alain" a écrit dans le message de
news:5b9501c474b0$94daa640$

Bonjour,
j'ai une feuille Excel que je dois souvent filtrer, je
désire que le résultat de ce filtrage aille dans mon
listbox, mais voilà bien que ma feuille soit filtrée,
toute la feuille non filtrée apparaît dans mon listbox.
Comment faire afin de ne voir apparaître dans mon listbox
que la partie filtée de la feuille.
Merci beaucoup.
Alain

Private Sub CommandButton4_Click()
Label9.Visible = True
Label9 = ComboBox3.Value
Sheets("Tableau").Select
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Label9
ListBox1.Visible = True
End Sub