Un fichier qui compte beaucoup pour moi.

[13GIBE59]

Bonjour à tous.

Juste pour le fun, je vous joins deux captures d'écran plus parlantes qu'un discours, et un pdf du code vba du filtre (âmes sensibles s'abstenir...)

[Océane]

Je le garde au chaud et te dirai ce que j'en pense, parait intéressant.

[13GIBE59]

Bonjour à tous.

Je vous livre la suite, avec une gestion des prélèvements plus conviviale.

La version pour Excel 2007 (à la demande de JNP) est ici :
Cijoint.fr - Service gratuit de dépôt de fichiers

La version pour Excel 2003 est là :
Cijoint.fr - Service gratuit de dépôt de fichiers

Le fichier d'aide a été bien sûr complété.

Les deux versions sont en .xls et peuvent être ouvertes indifféremment par les deux versions 2003 et 2007, même si ce n'est pas prévu pour ça (moins beau).

Prochaine étape : les graphiques (mais je ne sais pas quand).

[Jocelyn]

Bonjour le fil,
Bonjour 13GIBE59, jeanpierre, david84, JNP, MJ13, Lii, Océane,

Bravo 13GIBE59, oula la je suis toujours aussi admiratif de ceux qui comme toi manipule le VBA avec une telle dextérité et arrive a obtenir un tel résultat vraiment encore une fois bravo.

Jocelyn

[JNP]

Re ,

Envoyé par 13GIBE59

La version pour Excel 2007 (à la demande de JNP) est ici :
Cijoint.fr - Service gratuit de dépôt de fichiers

Merci pour tant d'honneur
Mais le lien est en erreur 500 ...
Bon WE

[13GIBE59]

Bonsoir JNP.

Chez moi, le lien fonctionne.
Si tu le souhaites, envoie moi ton mail par mp, je te transmettrai le fichier.

A +

[JNP]

Re ,
C'est bon, ça refonctionne, il y avait peut-être une panne chez ci-joint .
Beau travail. Je serai plus prolixe après quelques tests.
Bon dimanche

[13GIBE59]

Bonjour à tous.

Me voilà de retour, car mon fichier ‘Comptes’ est enfin terminé, puisque j’y ai intégré les graphiques.

Pour les pressés, je vous livre le lien vers ce fichier.
Voilà :
http://www.cijoint.fr/cjlink.php?file=cj201003/cijPFArfH7.xls

Pour les autres, je dois souligner que l’intégration des graphiques que je considérais au départ comme le plus facile a priori, m’a causé le plus de soucis a posteriori, plus en matière d’ergonomie et de mise en forme que le code lui-même (encore que…)

Pour intégrer les graphiques dans un userform (formule plus esthétique que le graphique collé sur la feuille, et plus souple en matière de choix), j’avais deux possibilités.

1) Les Office Web Components (OWC)
Faciles d’utilisation, souples à l’usage, ils souffrent de deux défauts rédhibitoires :
- obligation d’installer le composant sur sa machine, via la boîte à outils de vba
- impossibilité de jouer sur la mise en forme du graphique (couleurs, étiquettes, etc…)

2) J’ai donc opté pour la solution qui intègre une image du graphique dans le userform.
Ce principe impose donc pour que ça marche que vous enregistriez le fichier sur votre PC avant de l’utiliser à cause du code ThisWorkbook.Path :

Set CurrentChart = Sheets("Comptes").ChartObjects(1).Chart
Fname = ThisWorkbook.Path & "\Graphique.gif"
CurrentChart.export Filename:=Fname, FilterName:="GIF"
Image1.Picture = LoadPicture(Fname)

En fonction de votre PC, la procédure de création peut varier ente 0 et 2 secondes…La taille du userform a été optimisée pour mon écran 22 pouces à domicile, résolution 1920 x 1080. Mais il se peut que pour une autre résolution, les graphiques ‘secteurs’ n’apparaissent pas tout à fait de forme circulaire. C’est le cas à mon bureau, où la résolution de mon écran 22 pouces n’est que de 1600 x 900. A vous de voir (dans tous les sens du terme !)

J’en ai profité pour ajouter des petites choses :
- un spin button dans le userform ‘prélèvements’ qui modifie les années, en plus de celui qui modifie les jours.
- une touche ‘supprimer’ dans la barre de menu, qui supprime la ligne dont une cellule est sélectionnée.

J’attire votre attention sur un demi-bug : le calendrier du userform ‘Ajouter ‘ ne fonctionne pas si l’éditeur vba est ouvert…Nul ne sait pourquoi à ce jour malgré les recherches de tous les scientifiques du monde entier.

Pour ceux d’entre vous qui ont eu le courage de lire ce petit laïus, je remets le lien :
http://www.cijoint.fr/cjlink.php?file=cj201003/cijPFArfH7.xls

Le fichier comporte volontairement quelques lignes qui vous permettront de tester et de visualiser.
Il suffira de les supprimer pour commencer vos saisies.

[Staple1600]

Bonjour


Une petite remarque en passant.

Pourquoi conserves-tu les Select dans ton code


Sinon bravo pour ta persévérance et ton œuvre.

[13GIBE59]

Salut Staple.

J'ai gardé les Select parce que j'ai été victime de moults bugs et que je n'ai pas allégé mon code, par lassitude, tout simplement.