Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2320 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA excel] Récupérer dans 1 listbox le resultat d'1 AutoFilter!résolu

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA excel] Récupérer dans 1 listbox le resultat d'1 AutoFilter!résolu

n°1454881
tibot
Posté le 10-10-2006 à 15:33:04  profilanswer
 

bonjour
 
Est-il possible, dans un userform, de récupérer et d'afficher dans une listbox (ou autre) le résultat (sans doublon) d'un filtre automatique ?
 
J'ai un bouton das le userform qui execute les filtres :
 

Code :
  1. Selection.AutoFilter Field:=1
  2. Selection.AutoFilter Field:=8, Criteria1:="="


 
et donc j'aimerais affichier dans le listbox les choix possibles du Field 1
 
 
vous avez une petite idée ?
Merci beaucoup !!


Message édité par tibot le 11-10-2006 à 10:16:05
mood
Publicité
Posté le 10-10-2006 à 15:33:04  profilanswer
 

n°1455214
tibot
Posté le 11-10-2006 à 10:15:11  profilanswer
 

ça fonctionne avec ce code :
 
    Dim Cell As Range
    Dim Unique As New Collection
    Dim Valeur As Range
    Dim i As Integer
     
    'Récupère la derniere ligne non vide dans la colonne A
    i = Range("A65536" ).End(xlUp).Row
     
    On Error Resume Next
    'boucle sur les cellules de la colonne A
    For Each Cell In Range("A8:A" & i)
    If Not Cell.EntireRow.Hidden Then Unique.Add Cell, CStr(Cell)
        'Stocke les données dans une collection
        '(La collection n'accepte que des données uniques et permet donc
        ' de filtrer facilement les doublons).
        'Unique.Add Cell, CStr(Cell)
    Next Cell
    On Error GoTo 0
     
    'Boucle sur le contenu de la collection pour alimenter la ListBox
    For Each Valeur In Unique
        Me.ListBox1.AddItem Valeur
    Next Valeur


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA excel] Récupérer dans 1 listbox le resultat d'1 AutoFilter!résolu

 

Sujets relatifs
récupérer les valeurs d'un Formulaire (UserForm) dans une macroRécupérer le propriétaire d'un fichier
utilise les "nom" excel dans une macro VBA[Batch] [Résolu] Copie de fichiers listés dans un .txt
[RESOLU] tab multidimensionel en paramètre d'une fonctionExporter formulaire HTML en CSV pour Excel sans PHP
[Résolu] [C#] Création puis ouverture d'un fichier => problèmeRécuperer la taille d'un fichier qui se trouve sur un serveur ftp
[Résolu] Enregistrement d'animation 
Plus de sujets relatifs à : [VBA excel] Récupérer dans 1 listbox le resultat d'1 AutoFilter!résolu


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR