Listview ---> HELP

[Seb]

Bonjours au Forum

Ca fait un moment que je suis pas venu mais je suis fidèle 😉

Je suis en train de m'arracher les cheveux sur 3 listview que je triture depuis 4 jours et la je demande du renfort car je comprend pas.... Et pourtant j'en ai déjà fait ... ;-(

J'ai une USF avec 3 listview
La 1ere me liste mes virements
La 2nde mes prélèvements
La 3eme mes transactions intercompte

Je joins le fichier pour meilleure compréhension.

Dans la feuille "AUTOMATIQUE" j'ai une liste de virement/Prelevement/Transaction Intercompte
Dans la colonne AJ j'ai le montant des virement/Prelevement/Transaction Intercompte du mois en cours (FEUILLE COMPTE)

Et je voudrais qu'en cliquant sur le bouton de la feuille compte apparaisse mon USF avec les 3 listview qui :
- Me liste que les virements dans une, mes prelevements dans l'autre et mes transations dans la 3eme
- Une colonne "Montant" me liste le montant du mois en cours (feuille "Automatique" (AJ)
- En rouge ceux qui sont fait, et en bleu ceux qui sont en attente.

J'ai beau essayé je n'y arrive pas du tout...et pourtant je m'y acharne .... Si quelqu'un a une idée ou sait faire ....

Encore merci à ceux qui vont essayer ou me renseigner

Seb

 

[YANN-56]

Re : Listview ---> HELP

Bonsoir Seb, et à ceux qui passeront par là,

Je vois que tu n'as toujours pas eu de réponse, alors je me permets d'intervenir.

Il y a dans ton projet un mélange de gestion via des formules Excel,
et l'utilisation des ListView dans un USF.

Cet imbroglio rend difficile la compréhension de ton Fichier.

De mon coté, je verrais bien une base de données ne comportant que
les rubriques (Exemple: Liste des entêtes pour les ListView),
et des feuilles récapitulatives des mouvements "Prélèvement - Transaction Inter compte... Et c.)

Par la suite, L'USF se chargerait de faire les calculs, les tris et d'écrire où il le faut.

Cependant, cela te demanderait le boulot d'exploser tes Feuilles en plusieurs Fichiers distincts.

J'imagine qu'il n'est pas agréable d'oublier les heures passées, mais c'est à toi de voir.

Amicalement, et disponible si tu le souhaites,

Yann

 

[Seb]

Re : Listview ---> HELP

Bonjours YANN-56

Merci pour ta réponse malheureusement n'étant pas un super pro je ne sais pas trop par ou commencer lol .... Je suis arrivé à triturer un truc et a faire ce que je voulais, mais il me manque le critère que je voulais intégrer, a savoir: les transactions qui sont passées en rouge et les autres en bleu .... Mais ça je suis pas sur d'y arriver ...

Amicalement

 

[YANN-56]

Re : Listview ---> HELP

Re Seb,

Mais ça je suis pas sur d'y arriver ...

Tu es bien parti sur ton projet, et je te suggère vivement de persévérer.
(Mes compliments, au passage, pour ce que tu as déjà fait)

On a tous eu à un moment où à un autre l'envie d'abandonner un projet.
Ce serait oublier, un peu trop vite, le bonheur d'avoir réussi sur un truc que l'on pensait impossible.

Je ne sais faire que ce que je sais faire, et totalement nul sur la manipulation des Feuilles.
Donc, je suis trop "Limite" pour t'aider en partant de ton Fichier.

Rassure-toi!
Cette période de vacances n'est pas la plus propice aux aides,
mais il se trouvera certainement, sur XLD, de nombreux membres compétents disposés à t'aider.

Tiens bien la rampe, mec, tu va y arriver!!!

Amicalement,

Yann

 

[Bebere]

Re : Listview ---> HELP

bonjour Seb,Yann
avec ce code

Private Sub UserForm_initialize()
    Dim cel As Range, x As Long, i As Byte, Lv As ListView
  
    
For i = 1 To 3
    With Me("ListView" & i)

        .View = 3
        .Gridlines = True
        With .ColumnHeaders
            .Add , , "NOM", 80
            .Add , , "COMPTE", 80, 2
            .Add , , "TYPE", 80, 2
            .Add , , "TIERS", 80, 2
            .Add , , "CATEGORIE", 80, 2
            .Add , , "SOUS CATEGORIE", 80, 2
            .Add , , "JOURS", 80, 2
            .Add , , "COMMENTAIRE", 80, 2
            .Add , , "MONTANT", 80, 2
        End With
    End With
Next i

    With Sheets("AUTOMATIQUE")
    derl = .Range("D65000").End(xlUp).Row
        For Each cel In .Range("D2:D" & .Range("D65000").End(xlUp).Row)
            Select Case cel
            Case "VIREMENT"
                i = cel.Row
                Set Lv = ListView1
            Case "PRELEVEMENT"
                i = cel.Row
                Set Lv = ListView2

            Case "INTER COMPTE"
                i = cel.Row
                Set Lv = ListView3

            End Select

            Lv.ListItems.Add , , cel    'NOM
            x = Lv.ListItems.Count
            Lv.ListItems(x).ListSubItems.Add , , .Cells(i, 2)    'COMPTE
            Lv.ListItems(x).ListSubItems.Add , , .Cells(i, 3)    'TYPE
            Lv.ListItems(x).ListSubItems.Add , , .Cells(i, 5)    'TIERS
            Lv.ListItems(x).ListSubItems.Add , , .Cells(i, 6)    'CATEGORIE
            Lv.ListItems(x).ListSubItems.Add , , .Cells(i, 7)    'SOUS CATEGORIE
            Lv.ListItems(x).ListSubItems.Add , , .Cells(i, 8)    'JOURS
            Lv.ListItems(x).ListSubItems.Add , , .Cells(i, 9)    'COMMENTAIRE
            Lv.ListItems(x).ListSubItems.Add , , .Cells(i, "AJ")    'MONTANT
        
    Next cel
    
End With


End Sub

 

[Seb]

Re : Listview ---> HELP

Bonsoir Bebere,

Wayouuuu j'ai essayer de me débrouiller mais ma bidouille est 10 fois plus longue que la tienne et pas du tout performante... Je vais essayer ta macro de suite, merci beaucoup pour le coup de main et pour le temps passé.

Bonne soirée !!
Seb

 

[Seb]

Re : Listview ---> HELP

Re bonsoir Bebere,

je viens de l'essayer et il me met erreur de compilation .... Il reconnait pas "Lv As ListView", en le retirant j'ai que les 2 premieres listview qui marche impec mais la 3eme est vide ... je sais pas pourquoi il ne me le prend pas...

 

[Bebere]

Re : Listview ---> HELP

seb
tu as une version excel supérieur à la mienne(2003)
tu as bien listview1,listview2,listview3
essaye de déclarer lv as object
recherche dans le forum, on y parle des problèmes listview ou demande

 

[Seb]

Re : Listview ---> HELP

RE !

Oui ça marche impeccable .... Je viens de la déclarer "as variant" et ça marche, mais j'aime pas trop cette déclaration, j'avais pas pensé a Object..

1000 mercis

Seb