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

osiris150 · 9 Octobre 2018

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 · 9 Octobre 2018

Bonjour,

Avec ListBox

Boisgontier

osiris150 · 9 Octobre 2018

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 · 9 Octobre 2018

Bonjour osiris150, JB,

La boucle de remplissage de la ListView :

Code:

            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 · 9 Octobre 2018

Bonjour Job75

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

ChTi160 · 9 Octobre 2018

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 · 10 Octobre 2018

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 · 10 Octobre 2018

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

job75 · 10 Octobre 2018

Bonjour osiris150, Jean-Marie,

osiris150 à dit:
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 :

Code:

                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 · 10 Octobre 2018

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 · 10 Octobre 2018

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

ChTi160 · 10 Octobre 2018

Re
Je regarde cela des que possible.
Jean marie

job75 · 10 Octobre 2018

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 · 10 Octobre 2018

Re,

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

Code:

    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 · 10 Octobre 2018

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

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

osiris150

XLDnaute Occasionnel

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

osiris150

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

osiris150

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Pièces jointes

osiris150

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

osiris150

XLDnaute Occasionnel

Pièces jointes

osiris150

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

osiris150

XLDnaute Occasionnel

Discussions similaires

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

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency