XL 2013 insérer ligne vide sur listvew en fonction d'un critère

[osiris150]

Bonjour à tous,

J'utilise une listview avec beaucoup de lignes et pour des raisons de visibilité je souhaiterais pouvoir insérer une ligne vide entre chaque référence de commande. Je vous ai mis en pièce jointe le fichier test de ma listview actuelle + une copie d'écran avec ce que je souhaiterais comma résultat. Je ne sais pas si c'est possible et compliqué. En tous cas si quelqu'un pouvait regarder si c'est faisable.
Merci par avance.
Cordialement

 

[BOISGONTIER]

Bonjour,

Avec ListBox

Boisgontier

 

[osiris150]

Bonjour Mr Boisgontier et merci pour votre exemple qui répond à ce que je recherche mais je travaille avec des listview uniquement car tout mon outil de travail en utilise avec beaucoup d'options et du coup je ne peux pas tout rechanger pour passer sur des listbox.
Pensez-vous que sur une listview cela soit possible ? Sinon tans pis je me résignerai
Merci

 

[job75]

Bonjour osiris150, JB,

La boucle de remplissage de la ListView :

            For L = 1 To UBound(TabTemp, 1)
                If L > 1 Then
                    If TabTemp(L, 11) <> TabTemp(L - 1, 11) Then
                        .ListItems.Add , , ""
                        For Vcol = 1 To 9
                            .ListItems(X).ListSubItems.Add , , ""
                        Next
                        X = X + 1
                    End If
                End If
                .ListItems.Add , , TabTemp(L, 1)
                .ListItems(X).ListSubItems.Add , , TabTemp(L, 3)
                .ListItems(X).ListSubItems.Add , , TabTemp(L, 4)
                .ListItems(X).ListSubItems.Add , , TabTemp(L, 6)
                .ListItems(X).ListSubItems.Add , , Format(TabTemp(L, 7), "# ##0.00")
                .ListItems(X).ListSubItems.Add , , TabTemp(L, 8)
                .ListItems(X).ListSubItems.Add , , TabTemp(L, 11)
                .ListItems(X).ListSubItems.Add , , TabTemp(L, 13)
                .ListItems(X).ListSubItems.Add , , TabTemp(L, 14)
                .ListItems(X).ListSubItems.Add , , TabTemp(L, 15)
                X = X + 1
            Next

Le tableau source est supposé trié sur les références (colonne K).

Fichier joint.

A+

 

[osiris150]

Bonjour Job75

C'est parfait !! Merci beaucoup à vous et Mr Boisgontier pour votre aide.
Cordialement

 

[ChTi160]

Bonsoir osiris150
Bonsoir le Fil, le Forum
Une autre version (Perfectible)
je n'ai rien compris à la mise en couleur des éléments de la ListView (si tu veux expliquer Lol)
Bonne fin de Soirée
jean marie

 

[osiris150]

Bonjour Jean-Marie

Votre version est excellente et fonctionne parfaitement. Votre code est pour moi trop complexe à comprendre mais je vais tout de même essayer de l'adapter à mes besoins. Celui de Job75 marchait aussi mais j'avais un souci lorsque je lançais une recherche. Le code ne fonctionnait plus correctement au niveau tri.... Pour les couleurs, ce n'est pas très important j'avais laissé cette partie dans l'exemple mais ne pas s'en préoccuper.
Merci pour votre aide !! Passez une excellente journée
Cordialement.

 

[ChTi160]

Bonjour osiris150
Bonjour le Fil,le Forum
N'hésite pas si besoin !(commentaires dans code)
jean marie

 

[job75]

Bonjour osiris150, Jean-Marie,

Celui de Job75 marchait aussi mais j'avais un souci lorsque je lançais une recherche. Le code ne fonctionnait plus correctement au niveau tri....

Vous voulez insérer des lignes vides même avec la recherche ? Pas compliqué, ajoutez le même code dans la TextBox1_Change :

                If L > 1 Then
                    If TabTemp(L, 11) <> TabTemp(L - 1, 11) Then
                        .ListItems.Add , , ""
                        For I = 1 To 9
                            .ListItems(X).ListSubItems.Add , , ""
                        Next
                        X = X + 1
                    End If
                End If

Bonne journée.

 

[osiris150]

Bonjour job75

J'ai mis comme vous m'avez dit le code dans la partie TextBox1_Change mais ça ne marche pas bien.
en effet si je fais une recherche par exemple avec le libellé "lampe" j'ai des espaces important entre chaque ligne.
Voir copie écran et fichier.
Merci

 

[osiris150]

Merci Jean-Marie oui vos commentaires m'aident bien. Je suis en train de travailler dessus
Bonne journée

 

[ChTi160]

Re
Je regarde cela des que possible.
Jean marie

 

[job75]

Re,

Je pensais osiris150 que vous étiez capable d'insérer le code du post #9 mais ce n'est pas le cas.

Votre dernier fichier en retour.

A+

 

[job75]

Re,

Mais non ça n'allait pas, en fait il faut mémoriser la dernière référence filtrée :

    For L = 1 To UBound(TabTemp, 1)
 
        If UCase(TabTemp(L, 3)) Like UCase(TextBox1 & "*") Or _
         UCase(TabTemp(L, 4)) Like UCase("*" & TextBox1 & "*") Or _
         UCase(TabTemp(L, 11)) Like UCase("*" & TextBox1 & "*") Or _
         UCase(TabTemp(L, 14)) Like UCase("*" & TextBox1 & "*") Then
        
                If memo <> "" Then
                    If TabTemp(L, 11) <> memo Then
                        .ListItems.Add , , ""
                        For I = 1 To 9
                            .ListItems(X).ListSubItems.Add , , ""
                        Next
                        X = X + 1
                    End If
                End If
               
                .ListItems.Add , , TabTemp(L, 1)
                .ListItems(X).ListSubItems.Add , , TabTemp(L, 3)
                .ListItems(X).ListSubItems.Add , , TabTemp(L, 4)
                .ListItems(X).ListSubItems.Add , , TabTemp(L, 6)
                .ListItems(X).ListSubItems.Add , , Format(TabTemp(L, 7), "# ##0.00")
                .ListItems(X).ListSubItems.Add , , TabTemp(L, 8)
                .ListItems(X).ListSubItems.Add , , TabTemp(L, 11): memo = TabTemp(L, 11) 'mémorisation
                .ListItems(X).ListSubItems.Add , , TabTemp(L, 13)
                .ListItems(X).ListSubItems.Add , , TabTemp(L, 14)
                .ListItems(X).ListSubItems.Add , , TabTemp(L, 15)
         
               X = X + 1
        End If
       
    Next

Fichier (2).

A+

 

[osiris150]

Re Job75

En fait si j'avais bien insérer votre code du post #9 dans le nouveau fichier en PJ.
Du coup je vais tester votre dernier fichier et je vous redis
merci