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 un listbox

Liste filtrée dans un listbox

5 réponses
Avatar
Florian
Je souhaite faire apparaître le résultat d'une liste filtrée dans un
listbox,
le résultat se trouve dans une feuille nommée Travail et commence de la
cellule C2
Comment dois-je m'y prendre ?
Merci de votre aide.
Flo riant
Signaler un problème avec ce contenu

5 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
Polemos
Salut Florian

boucle jusqu'a cellule vide
listbox.AddItem(valeurcellule)
cellule suivante
fin boucle

Cordialement
Polemos

On Sat, 27 Nov 2004 09:48:10 +0100, "Florian"
wrote:

Je souhaite faire apparaître le résultat d'une liste filtrée dans un
listbox,
le résultat se trouve dans une feuille nommée Travail et commence de la
cellule C2
Comment dois-je m'y prendre ?
Merci de votre aide.
Flo riant



Avatar
Florian
Merci Pomelos
peux-tu m'indiquer la marche à suivre ?
Flo riant

"Polemos" <mail : http://cerbermail.com/?9Gy7Dd1t9W> a écrit dans le message
de news:

Salut Florian

boucle jusqu'a cellule vide
listbox.AddItem(valeurcellule)
cellule suivante
fin boucle

Cordialement
Polemos

On Sat, 27 Nov 2004 09:48:10 +0100, "Florian"
wrote:

Je souhaite faire apparaître le résultat d'une liste filtrée dans un
listbox,
le résultat se trouve dans une feuille nommée Travail et commence de la
cellule C2
Comment dois-je m'y prendre ?
Merci de votre aide.
Flo riant






Avatar
AV
Avec ta listbox sur "Feuil1" :

Sub zzz()
With Sheets("Feuil1") 'à adapter !
For Each C In .Range("A2", [A65536].End(3)).SpecialCells(xlCellTypeVisible)
.ListBox1.AddItem C.Text
Next
End With
End Sub

AV
Avatar
Florian
Bonjour AV
En fait le listbox se trouve sur un userform
je n'arrive pas à faire fonctionner ta procédure.
Merci
Flo riant



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

Avec ta listbox sur "Feuil1" :

Sub zzz()
With Sheets("Feuil1") 'à adapter !
For Each C In .Range("A2",
[A65536].End(3)).SpecialCells(xlCellTypeVisible)
.ListBox1.AddItem C.Text
Next
End With
End Sub

AV




Avatar
AV
En fait le listbox se trouve sur un userform


Dans le module de l'UserF

Private Sub UserForm_Initialize()
With Sheets("Feuil1") 'à adapter !
For Each C In .Range("A2", [A65536].End(3)).SpecialCells(xlCellTypeVisible)
Me.ListBox1.AddItem C.Text
Next
End With
End Sub

AV