EXCEL VBA - FILTRER LE CONTENU D'UNE LISTVIEW

Commentaire de klhsri le 27/10/2007 18:01:19

Excellent !
Je me forme à VBA (excel notamment)
Excellent code et directement utile pour toute appli de gestion
Merci

Commentaire de lesly_lodin le 13/11/2007 13:30:24

Il suffit de remplacer [Do Until oRng.Offset(1, 0).Value = ""] par [Do Until oRng.Value = ""] dans la partie "Remplissage de la ListView" de la procédure [LVW_Fill].

Cdlt

Commentaire de card le 26/05/2008 14:06:44

Salut

Super ce petit bout de code  !!!

Pouvez vous m'aider ?
J'ai une colonne status et l'image doit changer en fonction du status
Comment faire puisque dans le code initial il ya un random sur les 4 images stockees dans la imagelist1

Merci d'avance

Commentaire de card le 29/05/2008 16:23:19

Salut
Desolé de t'embeter avec ça ......

j'ai remplacé
Set oItem = ListView1.ListItems.Add(, , oRng.Offset(0, 0), "Key" & iRnd, "Key" & iRnd)

par

Set oItem = ListView1.ListItems.Add(, , oRng.Offset(0, 0), (oRng.Offset(0, 3).Value), (oRng.Offset(0, 3).Value))

mais c'est pas mieux
si tu as une idée ...merci d'avance

Commentaire de Aegidius le 22/06/2008 01:32:19

Bonsoir.
Je suis très très débutant en programmation...
et je n'arrive pas à l'adapter à mon fichier excel (5 colonnes avec titres).
Où taper le code ? L'interface est-elle à créer ?

A vous lire. Merci d'avance.

Commentaire de lesly_lodin le 04/08/2008 13:34:20

BONJOUR,

Dans la ligne de code n° 53, il suffit de retirer les deux derniers paramètres : ["Key" & iRnd] et ["Key" & iRnd].

Cdlt

Commentaire de lesly_lodin le 04/08/2008 14:00:11

Je n'ai pas beaucoup de temps devant mois ces jours-ci. Essaie de voir la documentation VBA sur la fonctionnalité AUTOFILTER de la WORKSHEET.

Bon courage.
Cdlt.

Commentaire de lesly_lodin le 20/10/2008 11:10:41

Salut,

En ligne 52, il suffit de remplacer "If LCase$(Left$(oRng.Offset(0, iCol), Len(sFilter))) = LCase$(sFilter) Then" par "If oRng.Offset(i, j) >= #mm/jj/aaaa# and oRng.Offset(k, l) <= #mm/jj/aaaa#" où oRng.Offset(i, j) contient la date de début et oRng.Offset(k, l) contient la date de fin.
Bon courage.

Commentaire de HAMDANEABDELKADER le 20/10/2008 16:40:39

j'ai déclaré i,j,k,l as date et j'ai introduit laligne:
If oRng.Offset(i, j) >= "#mm/jj/aaaa#" and oRng.Offset(k, l) <= "#mm/jj/aaaa#" then
il n'mz rien donner.
listView vide.
La procedure se fait on principe on créant deux textBox:
1- Date debut
2 Date fin

Commentaire de PCPT le 26/10/2008 19:41:08 administrateur CS

HAMDANEABDELKADER ->lesly_lodin t'a répondu, et t'a indiqué le format => #mm/jj/aaaa#

forcément si tu saisies juste la STRING "#mm/jj/aaaa#", il n'y aura pas de filtre de date....

ps : "j'ai déclaré i,j,k,l as date"
1. bravo pour te relire, c'est impossible de savoir quoi sert à quoi
2. alors seul l est une DATE, le reste est VARIANT

dim dStart as date, dStop as date
dStart = #10/01/2008#
dStop = #10/31/2008#

If (cdate(oRng.Offset(i, j)) >= dStart) and (cdate(oRng.Offset(k, l)) <= dStop) then ...

Commentaire de lesly_lodin le 27/10/2008 10:52:50

Désolé pour le retard dans ma réponse HAMDANEABDELKADER, j'étais un peu pris cette fin de semaine.

Merci d'avoir pris le relai PCPT ;oD

Bonne semaine à tous.

Commentaire de HAMDANEABDELKADER le 27/10/2008 19:42:21

Salut
vraiment desolé de t'embeter avec ça, j'ai pas le droit d'abondonner aussi facilement. J'ai essayé avec ça, rien à afficher.
-------------------------------------------------

Option Explicit

Private Sub TextBox1_Change()
    Call LVW_Fill(Trim$(TextBox1.Text), ComboBox1.ListIndex)
End Sub

Private Sub UserForm_Activate()
    Me.Caption = "Historique des commandes"
    Set ListView1.Icons = ImageList1
    Set ListView1.SmallIcons = ImageList1
    Call CBO_Fill
    Call LVW_Fill("", 0)
End Sub

Private Sub CBO_Fill()
    'Variables locales
    Dim iCnt As Integer
    Dim oRng As Excel.Range

    'Remplit la Combo
    Set oRng = Feuil1.Cells(1, 1)
    For iCnt = 0 To 13 '-- 14 colonnes
        ComboBox1.AddItem oRng.Offset(0, iCnt)
    Next iCnt
    ComboBox1.ListIndex = 0
End Sub

Private Sub LVW_Fill(ByVal sFilter As String, ByVal iCol As Integer)
    'Variables locales
    Dim iCnt As Integer
    Dim iRnd As Integer
    Dim oRng As Excel.Range
    Dim oItem As ListItem
    Dim Dstart As Date, DEnd As Date, l As Date
    Dim i As Variant, j As Variant, k As Variant
    
    Dstart = #1/1/2006#
    DEnd = #12/31/2006#
    
    'Initialisation de la ListView
    ListView1.ColumnHeaders.Clear
    ListView1.FullRowSelect = True
    ListView1.ListItems.Clear
    ListView1.View = lvwReport

    'Remplissage de la ListView
    Set oRng = Feuil1.Cells(1, 1)
    Do Until oRng.Offset(1, 0).Value = ""
        '-- En-têtes
        If oRng.Row = 1 Then
            For iCnt = 0 To 13 '-- 14 colonnes
                ListView1.ColumnHeaders.Add , , oRng.Offset(0, iCnt)
            Next iCnt
        '-- Données
        Else
            iRnd = Int((4 * Rnd) + 1)
    '  If LCase$(Left$(oRng.Offset(0, iCol), Len(sFilter))) = LCase$(sFilter) Then
             If (CDate(oRng.Offset(i, j)) >= Dstart) And (CDate(oRng.Offset(k, l)) <= DEnd) Then
            
                Set oItem = ListView1.ListItems.Add(, , oRng.Offset(0, 0), "Key" & iRnd, "Key" & iRnd)
                For iCnt = 1 To 14 '-- 14 colonnes
                    oItem.ListSubItems.Add , , oRng.Offset(0, iCnt)
                Next iCnt
            End If
        End If


        Set oRng = oRng.Offset(1, 0)
    Loop
End Sub
-----------------
Merci.

Commentaire de HAMDANEABDELKADER le 28/10/2008 16:45:10

salut,
je vais créer deux texteBox: la 1ère:= date du debut et la seconde:=date de la fin
et ensuite un boutton afficher qui contient ce code.
meci pour cette aide
je ne vous oublierez jamais.

Commentaire de lesly_lodin le 05/12/2008 11:54:43

Merci Chapata.
De quoi me remotiver ;oD

Commentaire de lesly_lodin le 03/04/2009 17:07:19

De rien.

Je suis heureux de constater que ce vieux snippet rend toujours service.

Bon WE

Commentaire de lesly_lodin le 12/10/2009 12:03:13

C'est réalisable, pour cela il suffit de créer ta ListBox avec l'attribut MultiSelect, puis de générer la ListView lors d'un clic sur une bouton de commande par exemple.
Bon développement.

Commentaire de lesly_lodin le 12/10/2009 19:22:43

Oui, pour cela il faudra disposer sur la Form cinq zones de texte (une par critère autorisé) ce qui limitera la requête à "au plus 5 critères".

Bon courage.

Commentaire de fredo97893 le 18/10/2009 09:57:04

bonjour et merci pour ce petit prog.
J'aurai juste une petite question.
Pourquoi la listview n'affiche pas la dernière ligne écrite? N° commande 11077 n'apparait pas
merci de me répondre

Commentaire de robinsdesforets le 18/10/2009 21:44:22

Bonjour,
Pour les pros de VBA, il est possible actuellement de filtrer "on the fly" le contenu de cette listview (merci à son auteur).
Mais serait il possible de la filtrer sur plusieurs critères.
je m'explique:
Il faudrait remplacer le TextBox1 existant par une ListBox1 alimenté par les données filltrées sans doublon de la combobox1.
La Listview serait alors partiellement filtrée par le choix de l'utilisateur.
Il faudrait créée ensuite un deuxième ComboBox qui alimenterait une deuxième Listbox2 (toujours alimenté sans doublon) pour un filtrage de nouveau "on the fly" de la Listview déjà filtrée par son premier choix. (Idem que la fonction filtre élaboré d'Excel sur plusieurs critères)
Je corse l'histoire, il me faut 5 comboboxs et 5 Listboxs pour que l'utilisateur trouve automatiquement dans la listview la(es) donnée(s) qu'il souhaite afin de les copier sur une autre feuille Excel.
J'avoue que je demande votre aide, je séche...

Commentaire de lesly_lodin le 21/10/2009 09:42:42

Non les pros de VBA ne dorment pas , mais les temps sont durs et je n'ai que peu de temps à consacrer à ce blog. En bref tu as tout dit dans ta question :

1. A chaque fois que tu listes les champs à filtrer dans la combobox1 tu déclenches un remplissage de ta combobox2 à l'aide d'un "SELECT DISTINCT"

2. Tu testes ensuite quel est le nombre de critères utilisé par l'utilisateur puis tu intègres chaque couple combobox CHAMP et combobox CRITERE dans un clause WHERE pour filtrer ta listview

J'espère que cela t'aidera à avancer.
Bon développement.
Bon

Commentaire de robinsdesforets le 30/10/2009 20:25:45

Bonjour,
bon je relance mon post du 18/10/2009 à 21h44.
Estce que tous le monde est occupé ou ma demande est trop difficile?
Je suis certain que mon projet interesse beaucoup de personnes.
Alors envie d'avoir une notoriété ou je mets mon projet à la poubelle?  

Commentaire de shinpoo7 le 11/01/2010 00:08:57

Bon OK le code est super nickel mais c'est un peu de la triche dans la mesure où la feuille est relue à chaque fois que le texte de la textbox1 change ! C'est pas dynamique !
Le titre devrait être "filtre sur les données d'une feuille de calcul et affichage dans une listview."

Je voudrais faire pareil avec les contacts de Outlook mais la connexion est lente. Je ne veux pas relire tous les contacts à chque fois !
Si quelqu'un a une idée ! Dommage qu'on puisse pas mettre la hauteur de ligne à 0 pour masquer celles qui sont filtrées !