VBA : Recopier une plage filtrée dans une Listbox de formulaire

Version imprimable

Bonjour,
Exposé de mon problème:
Dans un même classeur, j'ai une feuille "Dossiers" (1 ligne / dossier) et une feuille "Audiences" (1 à n lignes / dossier) avec le n° de dossier en colonne 1
A partir de la feuille "Dossiers",
Je veux récupérer les lignes d'audiences filtrées sur le n° de dossier et les copier pour affichage afficher dans une listbox de mon Formulaire_Dossier
Pour tester ma procédure, je me place par exemple sur un dossier pour lequel je filtre bien les 3 audiences qui lui correspondent
J'ai utilisé plusieurs méthodes mais pas la bonne ... car mon formulaire n'affiche que la ligne titres de ma feuille Audiences et pas les lignes filtrées... (d'ailleurs le compteur iR qui devrait me donner le nb de lignes filtrées me donne toujours 1 ! alors que dans mon test il devrait afficher 4!)
Je ne comprend pas ce qui ne fonctionne pas.

Si quelqu'un peut m'indiquer la solution je le/la remercie d'avance.

Voici mon code :
----------------
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 Sub Lister_Audiences_du_Dossier() ' '-- Sélectionner les audiences du dossier ' ' Audiences_du_Dossier est une Range déclarée en 'Public' dans un autre module Dim iR As Integer Dim iC As Integer Sheets("Dossiers").Select No_Dossier = Range("A99").Value '---Pour tester un dossier avec 3 audiences Nom_Feuille = "Audiences" Nom_Base = "Base_Audiences" Sheets(Nom_Feuille).Activate ActiveSheet.Unprotect Call Libérer_les_volets Call Tri_Audiences_par_Dossier_Date_Heure_Audience ActiveSheet.Range(Nom_Base).AutoFilter Field:=1, Criteria1:=No_Dossier iR = Sheets(Nom_Feuille).Range(Nom_Base).SpecialCells(xlCellTypeVisible).Rows.Count Set Audiences_du_Dossier = Sheets(Nom_Feuille).Range(Nom_Base).SpecialCells(xlCellTypeVisible) 'Dans le Formulaire_Dossier_Initialize : LB_Audiences = Audiences_du_Dossier.value (Copie dans la listbox du formulaire) Formulaire_Dossier.Show '-->Retour sur la feuille "Dossiers" Sheets("Dossiers").Select End Sub

08/06/2015, 18h52
Daniel.C
Bonsoir,

Si la plage n'est pas continue, tu ne peux pas utiiser "List". Fais une boucle sur la plage filtrée. S'il n'y a qu'une colonne :
Code:

1 2 3 4 5 Dim C As Range LB_Audiences.Clear For Each C In Audiences_du_Dossier LB_Audiences.AddItem C.Value Next C
08/06/2015, 19h05
Pipeti

Merci Daniel,

En réalité bien sur, j'ai plusieurs colonnes dans chaque feuille...
Je ne savais pas que .List ne permettait pas de copier une plage discontinue...
Je vais chercher avec ta piste et voir comment je peux copier les autres colonnes qui me sont nécessaires pour chaque ligne de ma listbox
Je débute dans ce genre de pratique...

Un exemple pour 3 colonnes adjacentes :

Code:

1
2
Set Audiences_du_Dossier = Sheets(Nom_Feuille).Range(Nom_Base).Resize(, 1). _
SpecialCells(xlCellTypeVisible)

Plage filtrée (première colonne). Remplissage de la listbox :

Code:

1
2
3
4
5
6
7
Dim C As Range
LB_Audiences.Clear
For Each C In Audiences_du_Dossier
    LB_Audiences.AddItem C.Value
    LB_Audiences.List(Me.lbSup.ListCount - 1, 1) = C.Offset(, 1).Value
    LB_Audiences.List(Me.lbSup.ListCount - 1, 2) = C.Offset(, 1).Value
Next C

09/06/2015, 17h48
Pipeti

Encore Merci Daniel,

Je ne vois pas très bien dans ton exemple de code ce que représente le Me.lbSup.ListCount et
je pense que c'est du à un copier/coller un peu précipité et qu'il s'agit en fait de LB_Audiences.ListCount.
J'avais compris mon erreur concernant la range discontinue et la méthode à adopter : .additem etc...

Par contre, je souhaiterais avoir ton avis sur le point suivant :
l'utilisation de la propriété .SpecialCells(xlCellTypeVisible) pour définir la range des lignes filtrées me retourne, en plus des lignes filtrées, toutes les lignes audiences vides en fin de tableau ce qui ne me convient pas vraiment puisque je ne souhaite traiter que les lignes renseignées donc non vides
Bien sur je peux écrire une boucle pour sortir dès la 1ère ligne vide mais il y a peut-être plus élégant :
- existe-t-il une propriété plus précise qui pourrait me définir, en une seule ligne de code, seulement la plage des lignes filtrées non vides ?
- sans passer par une boucle...
J'ai cherché bien sûr mais je n'ai pas encore trouvé...

Merci encore pour tes conseils éclairés.
09/06/2015, 18h11
Daniel.C

Citation:

je pense que c'est du à un copier/coller un peu précipité et qu'il s'agit en fait de LB_Audiences.ListCount.

Tout à fait.

J'ai supposé que "Audiences_du_Dossier" représentait la plage filtrée. Si c'est une erreur, corrige. J'ai repris cette ligne :

Code:

Set Audiences_du_Dossier = Sheets(Nom_Feuille).Range(Nom_Base).SpecialCells(xlCellTypeVisible)

en la modifiant pour n'avoir que la première colonne. Que représente "Nom_Base" ?

Citation:

- existe-t-il une propriété plus précise qui pourrait me définir, en une seule ligne de code, seulement la plage des lignes filtrées non vides ?

Si tu n'as que des valeurs tu pourrais utiliser "SpecialCells(xlCellTypeConstants)" ou "SpecialCells(xlCellTypeFormulas)" si tu n'as que des formules,mais le plus simple est de rajouter un filtre pour éliminer les lignes vides. D'ailleurs, tu serais obliger de boucler pour remplir la listbox.
"
09/06/2015, 18h36
Pipeti

Daniel,
Merci pour ta confirmation.
On est bien d'accord que la boucle est inévitable pour remplir la listbox, donc un test pour sortir dès la 1ère ligne vide... c'est pas compliqué.

Citation:

Que représente "Nom_Base" ?

"Nom_Base" me permet de nommer les plages de données avec les filtres (menu Formules) que j'utilise dans différentes feuilles.
Cela me permet d'utiliser les mêmes procédures utilitaires génériques sur différentes feuilles, plages, etc simplement en passant un nom de feuille ou de plage différente... bien pratique pour moi (par exemple trier/filtrer les données sur la colonne A ou une autre,...)

Au plaisir de te retrouver sur le forum une autre fois....:)