Liste Fichiers dans ListView suite à tri sélectif

YANN-56 · 20 Août 2010

Bonsoir à ceux qui passeront par ici,

Je pose ma question, car à force de m'arracher les cheveux,
je vais bientôt m'attaquer aux sourcils!!! 😛

Dans ma ListView je récupère une liste de classeurs présents dans
un dossier, en pompant au passage des données écrites dans leurs propriétés.

Pour ce qui est de l'utilisation du "Séparateur" les personnes informées vont comprendre.

Je cherche désespérément, et en vain, que ne soit chargé dans ma ListView que
les jours "j" avec leur cumul d'additions. (Et non comme ici; le détail...)

L'exemple est extirpé d'une appli un peu lourde,
j'ai donc eu du mal à résumer,comme à m'expliquer ici.

Si quelqu'un accepte de regarder d'un peu plus prés...

Grand Merci d'avance.

Et bonne fin de soirée à tous.

Yann

YANN-56 · 21 Août 2010

Re : Liste Fichiers dans ListView suite à tri sélectif

Bonjour Staple, et à eux qui passeront par ici,

A mon avis, tu as travaillé sur le Fichier adapté par Habitude : QUESTION(1)

Dans mon exemple initial, la mise en forme de la date "Lisible"
dans le premier SubItem est correcte.

A noter que je n'ai rien touché à celui-ci avec "Split"
Par prudence, car malgré la lourdeur sans ce dernier, cela fonctionne par ailleurs.

Dans mon appli en cours, je suis parvenu à visualiser les jours existants sans doublons.

Il restera à trouver le moyen de voir en face de ceux-ci la totalisation de leurs Additions.

Je vais reconstruire "QUESTION" avec la dernière évolution.
(Je marne un peu, car dans mon appli, les variables ont des noms différents... C'est pas malin! 🙁)

A plus tard, et Merci pour ton boulot; c'est sympa de ta part.

Yann

Staple1600 · 21 Août 2010

Re : Liste Fichiers dans ListView suite à tri sélectif

message édité

YANN-56 · 21 Août 2010

Re : Liste Fichiers dans ListView suite à tri sélectif

Re Staple, et à ceux qui auraient pu s'intéresser à ce Fil

Ci-après:
Le dernier Classeur modifié, et le détail effectif des Additions.

Il va bien falloir que je m'en sorte, mais sans vous; je suis mal barré!

Au plaisir de lire la solution qui me sera certainement proposée ici. 🙂 🙂 🙂

Amicalement

Yann

Staple1600 · 22 Août 2010

Re : Liste Fichiers dans ListView suite à tri sélectif

message édité

YANN-56 · 22 Août 2010

Re : Liste Fichiers dans ListView suite à tri sélectif

Bonjour Staple, et à ceux qui passeront par ici.

A ces derniers; un petit rappel, il ne faut pas oublier de charger le dossier "CHIFFRES"
joint à ma question initiale.

Staple, je suis bien étonné que la mise en forme "Lisible" ne se fasse pas avec ton Excel,
car il me semble que c'est une écriture basique sempiternelle. (J'espère que tu auras une réponse...)

De mon coté, je parviens au bon résultat en faisant une boucle sur des SubItems ajoutés
correspondant au jour (Ex. 01,16,29), mais avec de l'ordre de 500 Additions mensuelles,
on a le temps d'aller prendre un verre au bistrot du coin!!!
Ceci avec toutes les Additions chargées dans la ListView... Ce qui n'est pas mon but!

De plus, si la traduction de l'instant numérique ne se fait pas chez toi,
il y a de forte chance que cette dernière solution soit aussi impossible chez d'autres utilisateurs. (Inquiétant!)

Je vais quand-même m'en servir comme base pour tenter, par ce biais, de trouver la solution.

A plus tard, et Merci pour ton aide.

Yann

Staple1600 · 22 Août 2010

Re : Liste Fichiers dans ListView suite à tri sélectif

message édité

Fo_rum · 22 Août 2010

Re : Liste Fichiers dans ListView suite à tri sélectif

Salut

Staple1600 à dit:
Bonjour à tous

Est-ce que d'autres personnes sous Excel 2000 peuvent me confirmer qu'avec ce nouveau fichier de YANN-56 le phénomène décrit précédemment persiste ?

Ce lien n'existe plus

V 2002 :même problème d'affichage avec la dernière proposition.

Un essai avec ce que j'ai compris de

YANN-56 à dit:
...
Je cherche désespérément, et en vain, que ne soit chargé dans ma ListView que
les jours "j" avec leur cumul d'additions. (Et non comme ici; le détail...)
...

kjin · 22 Août 2010

Re : Liste Fichiers dans ListView suite à tri sélectif

Bonjour,

YANN-56 à dit:
Pour ce qui est de l'utilisation du "Séparateur" les personnes informées vont comprendre.

Sympa pour les autres 🙄
En fait je n'ai strictement rien compris !
A+
kjin

YANN-56 · 22 Août 2010

Re : Liste Fichiers dans ListView suite à tri sélectif

Bonsoir Fo_rum,

Merci d'avoir pris la peine de regarder mon souci.

Il est vrai que le format de la date m'interpelle toujours,
car chez moi c'est aujourd'hui: "dimanche 22" tel qu'écrit dans le premier SubItem.
(Par suite de la validation d'une addition à ce jour), Et non 22 08 2010.

Je suis en Excel 2003, donc ni ancestral, ni avant-gardiste.

Je suis de plus en plus inquiet, d'autant que mon bout de macro est du plus simplissime.

1) Car je ne trouve pas par moi-même la solution.
2) Que la traduction du nom du fichier en date lisible soit si différente chez vous que chez moi.

Code:

.ListItems(.ListItems.Count).ListSubItems.Add , , Format(FICHIERS_EXISTANTS, "DDDD DD ") ' TRADUCTION LISIBLE

C'est pas possible VBA quelque fois!!!
Maths sup + maths spé ne servent plus à grand chose!!! 🙁

1 + 1 font 2........... Sauf qu'ici: n'importe quoi!!! 😡

Bigre de bigre il va bien falloir trouver une solution!

Merci à toi, amicalement et à suivre.

Yann

kjin · 22 Août 2010

Re : Liste Fichiers dans ListView suite à tri sélectif

re,
As tu regardé #26 ?
A+
kjin

YANN-56 · 22 Août 2010

Re : Liste Fichiers dans ListView suite à tri sélectif

Bonsoir kjin, ou bonjour suivant l'heure;

1) Il m'étonne que tu n'aies pas pigé l'utilisation du Yen séparateur.
Ce dernier me permet d'écrire à sa gauche le montant dont la TVA imputable est
à taux réduit, et sur la droite celui à taux normal.
Cette propriété est écrite lors de la validation de l'addition par l'utilisateur.

J'estime plus rapide de lire dans les propriétés que d'ouvrir les Classeurs!

2) Je n'ai pas la librairie DSO; donc je ne peux pas tester ton exemple.
Ne s'agissant pas dans mon projet de lire ou d'écrire dans les propriétés avancées,
je n'ai pas besoin de charger la DLL requise.(Ni d'en contraindre l'utilisateur)

Ton allusion au Post #26, me dérange un peu... 🙄 Euphémisme.

Mais je ne doute que c'est amical, n'est-il pas? 🙂

Il en sera de même quant à mes souhaits de bonne journée à toi pour le lundi 23.
(Jour de mes 60 ans)

Et merci pour le temps que tu as investi à me construire ton aide,
car il y a effectivement là beaucoup de choses à apprendre.

Au plaisir.

Yann

Guest · 23 Août 2010

Re : Liste Fichiers dans ListView suite à tri sélectif

Bonjour tous,

J'ai utilisé le fichier QUESTION2.xls

L'index de propriété pour la TVA est chez moi 22 et non 11. Retrouvé avec la boucle suivante:

Code:

            [COLOR=blue]For[/COLOR] i = 0 To 34
                [COLOR=blue]If[/COLOR] DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, i) <> [I]""[/I] [COLOR=blue]Then[/COLOR] _
                   Resultat = Resultat & i & [I]" - "[/I] & DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, i) _
                 & [I]":  "[/I] & DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, i) & vbLf
            [COLOR=blue]Next[/COLOR]

Et pour le reste, jour et addition, pas de problème chez moi avec:

Code:

            A_TVA_REDUITE = [COLOR=blue]CDbl[/COLOR](Left(DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, 22), _
                                      InStrRev(DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, 22), SEPARATEUR, -1) - 1))
            A_TVA_NORMALE = [COLOR=blue]CDbl[/COLOR](Right(DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, 22), _
                                       (Len(DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, 22)) _
                                      - InStrRev(DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, 22), SEPARATEUR, -1))))
            ADDITION_TTC = A_TVA_REDUITE + A_TVA_NORMALE
            CUMUL_ADDITIONS_TTC = CUMUL_ADDITIONS_TTC + ADDITION_TTC
            JOUR = Val(Left(ELEMENT, InStr(1, ELEMENT, [I]","[/I]) - 1))
            JOUR2 = Val(Left(.ListItems(.ListItems.Count), InStr(1, .ListItems(.ListItems.Count), [I]","[/I]) - 1))
            [COLOR=blue]If[/COLOR] Format(JOUR, [I]"DD"[/I]) <> Format(JOUR2, [I]"DD"[/I]) [COLOR=blue]Then[/COLOR]
                .ListItems.Add , , ELEMENT    [COLOR=green]' CES FICHIERS ONT POUR NOM LEUR [COLOR=blue]DATE[/COLOR] NUMERIQUE DE CREATION[/COLOR]
                .ListItems(.ListItems.Count).ListSubItems.Add , , Format(JOUR, [I]"DDDD DD "[/I])    [COLOR=green]' TRADUCTION LISIBLE DE LA [COLOR=blue]DATE[/COLOR][/COLOR]
                .ListItems(.ListItems.Count).ListSubItems.Add , , CUMUL_ADDITIONS_TTC
            [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]

P.s. j'ai pas vérifié manuellement le résultat des additions.

A+

YANN-56 · 23 Août 2010

Re : Liste Fichiers dans ListView suite à tri sélectif

Merci Hasco,

Je suis très heureux que tu aies regardé mon souci, et pris la peine de me rédiger ce code. 🙂

J'ai testé: Mais les résultats sont aussi erronés. Les bons sont:

Le vendredi 16 = 42 (17 + 25)
Le vendredi 23 = 18 (18)
Le samedi 24 = 46,40 (36,40 + 10)
Le mercredi 28 = 57,50 (57,50)
Le jeudi 29 = 330,10 (185 + 145,10)

J'avoue que je commence à avoir un doute sur ma sénilité!
D'autant que je reste persuadé que l'affaire n'est pas des plus complexes.

La totalisation des additions est logique.
De dire d'ajouter les jours sans doublons l'est aussi.

Pourquoi est-il aussi difficile de mettre en face de ces jours la totalisation de leurs additions.

Je deviens fou... 😡

Je n'ai pas souvenir d'avoir passé tant d'heures à me planter.

Je n'ose pas dire "Au Secours" mais ça y ressemble!!!

A nouveau Merci, et au plaisir.

Yann

Guest · 23 Août 2010

Re : Liste Fichiers dans ListView suite à tri sélectif

Bonjour Yann,

Magie du Debug.Print avec le code ci-dessous.

Code:

        [COLOR=blue]For[/COLOR] [COLOR=blue]Each[/COLOR] ELEMENT [COLOR=blue]In[/COLOR] DOSSIERS_EXISTANTS.Items
            JOUR = Val(Left(ELEMENT, InStr(1, ELEMENT, [I]","[/I]) - 1))
            JOUR2 = Val(Left(.ListItems(.ListItems.Count), InStr(1, .ListItems(.ListItems.Count), [I]","[/I]) - 1))
 
            a_TVA_REDUITE = [COLOR=blue]CDbl[/COLOR](Left(DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, 22), _
                                      InStrRev(DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, 22), SEPARATEUR, -1) - 1))
 
            A_TVA_NORMALE = [COLOR=blue]CDbl[/COLOR](Right(DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, 22), _
                                       (Len(DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, 22)) _
                                      - InStrRev(DOSSIERS_EXISTANTS.getDetailsOf(ELEMENT, 22), SEPARATEUR, -1))))
            ADDITION_TTC = ADDITION_TTC + a_TVA_REDUITE + A_TVA_NORMALE
 
           [B][COLOR=blue]Debug[/COLOR].[COLOR=blue]Print[/COLOR] Format(JOUR, [I]"dd mmm yyyy"[/I]), a_TVA_REDUITE, A_TVA_NORMALE, ADDITION_TTC[/B]
 
            [COLOR=blue]If[/COLOR] Format(JOUR, [I]"DD"[/I]) <> Format(JOUR2, [I]"DD"[/I]) [COLOR=blue]Then[/COLOR]
                .ListItems.Add , , ELEMENT    [COLOR=green]' CES FICHIERS ONT POUR NOM LEUR [COLOR=blue]DATE[/COLOR] NUMERIQUE DE CREATION[/COLOR]
                .ListItems(.ListItems.Count).ListSubItems.Add , , Format(JOUR, [I]"DDDD DD "[/I])    [COLOR=green]' TRADUCTION LISIBLE DE LA [COLOR=blue]DATE[/COLOR][/COLOR]
                .ListItems(.ListItems.Count).ListSubItems.Add , , ADDITION_TTC
            [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR]
        [COLOR=blue]Next[/COLOR] ELEMENT

Resultat du debug.print:
16 juil 2010 25 0 42
23 juil 2010 18 0 60
24 juil 2010 32,4 4 96,4
24 juil 2010 7 3 106,4
28 juil 2010 50,5 7 163,9
29 juil 2010 128,5 56,5 348,9
29 juil 2010 121,5 23,6 494

Où l'on voit que si le cumul (494) est correct et correspond à ce que tu donnais dans ton précédent post, le dernier fichier n'est pas afficher dans la liste, son cumul n'y est pas par conséquent. Tu n'as qu'un cumul affiché par jour, alors qu'il existe plusieurs fichier par jour.

Je te laisse marner un peu là-dessus. Ta condition d'affichage ou ta boucle doit être modifiée

Note au passage la suppression de CUMUL_ADDITIONS_TTC qui était inutile.

A+

YANN-56 · 23 Août 2010

Re : Liste Fichiers dans ListView suite à tri sélectif

Bonsoir Hasco,

Sans doute, par mes posts successifs, et mes re-bidouilles, j'ai mis un peu de désordre,
et tout ceci devient de moins en moins compréhensible par ma faute.

Dans

Resultat du debug.print:
16 juil 2010 25 0 42
23 juil 2010 18 0 60

Et c.

On retrouve un cumul successif avec tous les jours apparents,
et non un récapitulatif. En l'occurrence le 23 n'est pas 60, mais 18, and So on

Voici une autre façon de voir issue de mes moult tentatives. (Fichiers joints)

A l'initialisation de l'USF, la ListView1 se charge du détail des Additions.

Par la suite, avec un Double Clic sur un jour de celle-ci, la totalisation journalière est correcte.

Je cherche donc à passer à cette deuxième étape directement, sans avoir à passer
par la ListView1 et son Double Clic.
En réalité incorporer cette dernière action à l'initialisation de la ListView1.

Dans cette ListView1, je souhaite voir les jours nommés une seule fois, avec leur propre total.

J'ai viré l'initialisation de l'USF, ainsi que le chargement de la ListView1 dans un module
pour plus de lisibilité.

Merci à toi, c'est sympa de m'aider.

Yann

Liste Fichiers dans ListView suite à tri sélectif

YANN-56

XLDnaute Barbatruc

Pièces jointes

YANN-56

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

YANN-56

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

YANN-56

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Fo_rum

XLDnaute Accro

Pièces jointes

kjin

XLDnaute Barbatruc

Pièces jointes

YANN-56

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

YANN-56

XLDnaute Barbatruc

Guest

Guest

YANN-56

XLDnaute Barbatruc

Guest

Guest

YANN-56

XLDnaute Barbatruc

Pièces jointes

Liste Fichiers dans ListView suite à tri sélectif

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Accro

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Guest

Guest

XLDnaute Barbatruc

Guest

Guest

XLDnaute Barbatruc

Pièces jointes

Privacy & Transparency

Privacy & Transparency