is_utf8:1,
High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

VBA filtre automatique

Dernière réponse le 8 aoû 2009 à 16:24:05 capucine, le 9 avr 2009 à 09:36:01 
 Signaler ce message aux modérateurs

Bonjour,

Je souhaiterais utiliser le filtre automatique dans VBA.

J'ai créé une macro de filtrage, lorsque je suis dans le userform Henry (c'est pour un commercial), il y a une liste déroulante et je souhaiterais qu'on affiche dans cette liste que les clients de Henry et que tous ces clients n'aient pas souscrit à l'assurance santé. Je dois aller chercher ces données dans ma base de données (deux critères: que les clients de Henry et que ceux qui n'ont pas l'assurance santé (NON dans la colonne assurance santé)).

Quand on met la macro de filtrage dans la macro d'ouverture du userform, une erreur apparait. Peux t on rattacher cette macro au Row Source de la liste Box? Que dois-je mettre dans Row Source et quelle est ma macro de filtrage?

Voici notre macro de filtrage (avec erreur de débogage):
Sheets("Données").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="NON"
Selection.AutoFilter Field:=10, Criteria1:="HENRY"
Sheets("Analyse").Select

Merci d'avance!

Configuration: Windows XP
Internet Explorer 7.0

Posez votre question Répondre

1

lermite222, le 9 avr 2009 à 10:16:16

Bonjour,
RowSource ne tient pas compte des lignes "cachées" il faut donc employer un autre moyen. 

Private Sub UserForm_Initialize()
Dim DerLig As Long, i As Long
    Sheets("Feuil1").Select
    DerLig = Range("A65536").End(xlUp).Row
    'au cas ou un filtre serait déja actif.
    On Error Resume Next
    Selection.AutoFilter
    On Error GoTo 0
    
    Range("A3").AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="NON"
    Selection.AutoFilter Field:=2, Criteria1:="Henry"
    
    ListBox1.Clear
    For i = 4 To DerLig
        If Not Rows(i).Hidden Then ListBox1.AddItem Cells(i, 1)
    Next i
End Sub

Bien sûr, adapter les adresses et nom feuille
Tu dis...
L'expérience instruit plus sûrement que le conseil. (André Gide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

   
Répondre à lermite222

2

Polux31, le 9 avr 2009 à 11:44:58

Bonjour lermite,

je pense que la suite est là : http://www.commentcamarche.net/forum/affich 11915763 problemes en vba

;o) «Ce que l'on conçoit bien s'énonce clairement, Et les mots p­our le dire arrivent aisément.» 
Nicolas Boileau

   
Répondre à Polux31

5

pascal-77, le 6 aoû 2009 à 15:06:11

Salut lermite222,

Je cherchais à faire le code que tu as donné. ça fonctionne nickel. J'ai juste un problème. Lorsque je sélectionne l'élément de ma listbox :
Private Sub ListBox1_Change()
lig = ListBox1.ListIndex + 3
Label4 = Cells(lig, 4)
Label5 = Cells(lig, 5)
Label8 = Cells(lig, 6)
Mes lig sont simplément incrémentées 1, 2, 3, etc ...
C'est à dire que mes lignes filtrées peuvent être 11, 15, 20 mais ma listbox prends les lignes 1 à 3.

Est ce que tu aurais une solution ?

Merci de ton aide.
Pascal.

   
Répondre à pascal-77

6

lermite222, le 7 aoû 2009 à 09:26:59

Mais oui, y a (presque) toujours une solution..
Tu met 2 colonnes sur ta listbox, r'occupe pas des largeurs je l'ai prévu en code.
tu remplace le remplissage de la lisrbox par 

    ListBox1.ColumnWidths = CStr(ListBox1.Width) & ";0"
    ListBox1.Clear

    For i = 4 To DerLig
        If Not Rows(i).Hidden Then
            ListBox1.AddItem Cells(i, 1)
            ListBox1.List(ListBox1.ListCount - 1, 1) = i
        End If
    Next i

Et pour retrouver..remplacer, 
lig = ListBox1.ListIndex + 3

Par 
lig = ListBox1.List(ListBox1.ListIndex ,1)


A+ L'expérience instruit plus sûrement que le conseil. (André Gide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

   
Répondre à lermite222

7

Pascal, le 8 aoû 2009 à 02:35:48

Salut Lermite222,

D'abord un grand merci pour ton aide précieuse.
Ton code marche nickel. J'ai juste un dernier petit problème à résoudre. J'ai cherché avant de t'embêter mais je sèche ... Une fois de plus.
Mon programme ne veut pas ré initialiser ma listbox ...
Private Sub CommandButton6_Click()
ComboBox1.Value = ""
ComboBox2.Value = ""
ActiveSheet.Range("A:F").AutoFilter Field:=1
ActiveSheet.Range("A:F").AutoFilter Field:=2
ListBox1.Clear
End Sub
J'ai le message : "erreur d'execution 381
Impossible de lire la propriété list.Index de table de propriétés non valide." = sur le code ListBox1_Change()
Je suis proche du bonheur....

D'avance merci.
Pascal.

   
Répondre à Pascal

8

lermite222, le 8 aoû 2009 à 07:16:27

Tu vide la listBox, donc plus d'index !!
Ajoute 

ListBox1.Clear
ListBox1.Enabled = False

Evidement faut remettre à True si tu veux de nouveau la remplir et t'en servir.
A+ L'expérience instruit plus sûrement que le conseil. (André G­ide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas for­cément le pot qui est vide. ;-)(Confucius)

   
Répondre à lermite222

9

 Pascal, le 8 aoû 2009 à 16:24:05

Salut Lermite222,

Géant ... ça fonctionne nickel.
Merci de ton aide.

Pascal.

   
Répondre à Pascal

3

capucine, le 9 avr 2009 à 11:53:37

Ca y'est ca marche pour les check box (plusieurs se cochent en meme temps,), en fait, j'avais mis des optionbox et il fallait mettre des checkbox!

Mon problème reste le filtrage, ca ne marche pas! en fait dans mon combobox, je souhaite mettre deux critères:
que les clients de RENE et que ceux qui n'ont pas l'assurance santé (dans base de données).
Dans ROWSOURCE, on a mis Données!A7:A47 (que les clients de RENE)
et dans le module 2 (module d'ouverture du userform2) on a mis:

Sub ouverture_userform2()


'Activer le UserForm nommé UserForm2

UserForm2.Show

'Filtrer les clients de René

Sheets("Données").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="NON"
Selection.AutoFilter Field:=10, Criteria1:="RENE"
Sheets("Analyse").Select

End Sub


Pouvez vous nous aider svp?

   
Répondre à capucine

4

lermite222, le 9 avr 2009 à 12:48:41

Bonjour Polux,
Effectivement, capucine a l'air de se mélanger les pinceaux :)
Capucine, voir mon poste 1, ça répond à ta question poste 3 poster 2hrs après !!!!
Tu ferais bien de lire les réponses qu'ont te donne si tu souhaite être aidée ultérieurement.
A+ L'expérience instruit plus sûrement que le conseil. (André G­ide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas for­cément le pot qui est vide. ;-)(Confucius)

   
Répondre à lermite222
Posez votre question Répondre
Ils ont besoin de votre aide