Améllioration d'une macro

Bonjour Henri et à tous,

L'état Rappr n'est pas réinitialisé après le changement d'année >>> vu

Si colonne I mal saisie, pourrait-on la corriger?

- tu veux dire le N° de bon , non on ne peut pas le changer, il est chronologique. et il vaut

mieux ne pas y toucher, à quoi pensait-tu ?

Seules les colonnes B,C, et D peuvent être modifiées à réception du N° extrait.

- Si erreur de saisie dans les libellés ou dans les valeurs "entrées" ou "sorties", il ne faut pas hésiter à annuler le bon et le re-saisir. (voir annuler un bon)

Sinon, c'est la porte ouverte !!

Les erreurs, bien qu'humaines ne doivent être que l'exception !

Edition des bons : Aujourd'hui, le programme imprime tous les bons ! , ne vaudrait-il pas mieux les imprimer un par un à la demande ? (risque d'éditer plusieurs fois le même)

Vu tes réponse à mon questionnaire, je ne vois rien à modifier pour la saisie.

Essaye de tester tous les cas qui peuvent se produire.

Sachant que l'opérateur ne connait pas le "Ctrl+b"

bonne journée

Claude.

Bonjour Claude et à tous,

Ma remarque concernait la colonne i et non 1, mais ta réponse me convient.

Concernant l'édition des bons, les opérateurs ont le choix d'éditer les bons 1 par 1 ( en allant sous le feuiilet BON_CCP et imprimer). Ils connaissent la méthode.

ou d'attendre la clôture comptable en imprimant tous les bons, donc pas de soucis.

Je vais faire une session test de bout en bout (je vais ressaisir ma propre trésorerie 2007) et je te la joindrai dès que j'aurai fini.

Je m'absente jusqu'à dimanche soir

Bon 15 aôut à tous et merci encore

Henri

Bonjour Claude et à tous,

Je te joins un nouveau fichier qui retrace en partie ma trésorerie 2007(j''ai été obligé de supprimer des lignes dans le feuillet CCP afin de le joindre).

https://www.excel-pratique.com/~files/doc/Tresorerie_AFEH_6_test.zip

Pour changer d'année j'ai modifié une donnée dans la macro 'Change-année" car l'état de rapprochement ne se faisait pas pour la dernière ligne saisie. Au lieude If[A65536] j'ai mis C65536 et ça a marché. Ai-je bien fait et à quoi correspond cette cellule?

Sub Changer_A() 'CHANGER L'ANNEE (enregistre sous un nouveau nom et remet à zéro)

Dim rep, an As Integer

Sheets("CCP").Activate

Range("A1").Select

Application.ScreenUpdating = False

If [C65536].End(xlUp).Offset(0, 1) = "" Then

MsgBox ("L'etat de rapprochement va se mettre à jour !" & Chr(10) & _

"Vous pourrez ensuite changer d'année.")

Je dois rectifier certaines formules dans BON_CCP afin de dépasser les 25 lignes.

Amicalement

Henri

Bonjour Henri et au forum,

Pour la modif de la macro, c'est une erreur !

je contrôlais la présence d'une date à coté du dernier bon.

If [A65536].End(xlUp).Offset(0, 1) = "" Then

alors qu'avec ta modif, tu contrôle la présence d'un chèque à coté du dernier N° extrait

If [C65536].End(xlUp).Offset(0, 1) = "" Then

ce qui n'est pas bon !!

le [A65536].End(xlUp) signifie : en partant du bas (ligne 65536) End(xlUp) la 1ère cellule

non vide de la colonne A.

Tu as du faire une fausse manip, entrer une ligne sans passer par "Saisie" en utilisant

le Ctrl+b ,non ?

ou alors il y avait une date sans N° extrait.

On pourrait mettre cette ligne , qui contrôlerait la présence d'un n° extrait ou 1-2007 à coté

du dernier bon.

If [A65536].End(xlUp).Offset(0, 2) = "" Then

remarque le .Offset(0, 2) à la place de .Offset(0, 1)

Je comprends pas l'histoire des formules et des 25 lignes !

Attention, je viens de m'apercevoir qu'il y a les lignes 25 et 26 cachées dans le Cpt R

à part çà, tu n'est pas très bavard sur l'ensemble et comment çà s'est passé pour les saisies !

alors qu'est-ce que je fais maintenant ?

amicalement

Claude.

Je n'ai jamais été très bavard en effet!

Pour la correction que j'ai effectuée, je comprends maintenant, mais ne vaudrait-il pas mieux de contrôler, au regard des derniers N°s de Bons, la colonne C si vide ou non pour déclencher l'état de rapprochement.

Pourquoi? tout simplement parce que l'opérateur aura surement saisi la date du 31/12 de l'année en cours sans N° de CCP pour les opérations de chèques non débités.

Concernant la rectif du BON-CCP:

cellule C9=SI(SOMME($G$5)=0;"";SI(DECALER(CCP!$G$11;EQUIV($G$5;CCP!$A$12:$A$250);;;)>0;DECALER(CCP!$B$11;EQUIV($G$5;CCP!$A$12:$A$250);;;);""))

cellule C10=SI(SOMME(DECALER(CCP!$G$11;$G$5;;;))=0;"";SOMME(DECALER(CCP!$G$11;EQUIV($G$5;CCP!$A$12:$A$250);;;)))

cellule H9=SI(SOMME($G$5)=0;"";SI(DECALER(CCP!$H$11;EQUIV($G$5;CCP!$A$12:$A$250);;;)>0;DECALER(CCP!$B$11;EQUIV($G$5;CCP!$A$12:$A$250);;;);""))

cellule H10=SI(SOMME(DECALER(CCP!$H$11;$G$5;;;))=0;"";DECALER(CCP!$H$11;EQUIV($G$5;CCP!$A$12:$A$250);;;))

Concernant la saisie:

Pour quelqu'un qui maitrise un peu Excel, c'est un plaisir

Pour un débutant, ne vaudrait-il pas mieux interdire la navigation en dehors des cellules F13 à F20 et des boutons entrée/sortie et Validez?

J'ai modifié également des formules dans les colonnes B et E du Cpt R afin que les résultats attendus soient dans la bonne ligne.

A te relire

Amicalement

Henri

re,

contrôler, au regard des derniers N°s de Bons, la colonne C si vide ou non pour déclencher l'état de rapprochement.

c'est ce que fait la nouvelle ligne de code que je t'ai envoyé.

le A.offset(0,2) signifie décaler de deux colonnes, donc A+2 = C

il vaut mieux laisser comme çà, (facilite la lecture générale du code). A étant le départ de tout.

vu pour les formule dans Bon_CCP (je vais corrigé çà, le 250 à la place du 25 ne me plait

pas non plus)

même erreur pour les formules ENTREE et SORTIE dans CCP, je corrige.

pour la feuille saisie, on va la verrouiller aussi.

Une petite formation pour l'opérateur débutant est nécessaire.

formules du Cpt R. comme je ne sais pas ce que tu as corrigé, je te renverrais ton fichier mis à jour avec le reste.

Avec un fichier plein, je m'aperçois qu'en faisant "Afficher tout" , on ne vois pas la dernière ligne, c'est un peu gênant , je regarde ce qu'on peut faire.

Nouvelle version demain.

amicalement

Claude.

Bonjour Henri et à tous,

Version 7 :

https://www.excel-pratique.com/~files/doc/Tresorerie_AFEH_7.zip

• J'ai donc repris le fichier que tu m'a envoyé hier,
• les formules bon_CCP sont corrigées, mais ATTENTION, il y a un problème dans ces

plus avec les N° Extrait et tout est faux !),

Il faudrait donc revoir ces formules avec un spécialiste, (moi, je sais pas)

J'ai ajouter un code pour re-verrouiller les feuille avec Ctrl+n

La feuille "Saisie" est maintenant protégée.

Il faut tester à nouveau pour voir si ces modifs ne génèrent pas de bogues !

amicalement

Claude.

Bonjour Claude,

J'ai testé ta nouvelle version

L'état de rapprochement est OK

Le changement d'année aussi

J'ai testé également la possibilité d'ajouter des lignes budgétaires dans "Balance" en modifiant dans choix_liste:

If [Balance!L5] < 2 Or [Balance!L5] = 13 Or [Balance!L5] = 35 Then Exit Sub

et en incrémentant les formules.

QUESTION:

Pourquoi dans "Change_année" on a ceci

'***** réinitialise **********

[b12:k20].Name = "base"

[a11:k20].Name = "BDbase"

[a12:a20].Name = "Bon"

et dans "Base_CCP" on a cela

Sub initialise()

Sheets("CCP").Activate

Dim DerLig As Long

DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row

Application.ScreenUpdating = False

Application.EnableEvents = False

Range("a12:a" & DerLig).Name = "Bon"

Range("b12:j" & DerLig).Name = "base"

Range("a11:j" & DerLig).Name = "BDbase"

Range("i12:i" & DerLig).Name = "Libelle_compte" 'formules dans "Balance"

Range("g12:g" & DerLig).Name = "entrées" 'formules dans "Balance"

Range("h12:h" & DerLig).Name = "sorties" 'formules dans "Balance"

Application.EnableEvents = True

End Sub

Je n'ai pas trouvé d'anomalie à part dans la feuille "saisie", tout d'un coup le N° extrait de compte s'est mis à se convertir en date. J'ai sans doute fait une mauvaise manip. J'ai résolu le problème en corrigeant dans Format, Cellule=Standart

Je pense qu'on est au terme de nos recherches et qu'on va pouvoir demander la validation de tes travaux.

Ci-joint le fichier testé:

https://www.excel-pratique.com/~files/doc/Tresorerie_AFEH_7TEST.zip

En attendant de te lire

Amicalement

Henri

Bonsoir Henri et au forum,

Feuille "balance", tu t'es bien débrouillé pour ajouter à la liste !

- incrémenter les N° et les formules.

Quand tu fais çà, il faut aussi vérifier les formules en vert RECHERCHEV, si elles prennent

bien en compte toutes les lignes de la liste. (là c'est bon).

Mais il faut y aller sur la pointe des pieds sur cette feuille, qui est le moteur de tout

le programme !

Pourquoi dans "Change_année" on a ceci

'***** réinitialise **********

[b12:k20].Name = "base"

Parce-que au changement d'année le nouveau fichier est vide, alors, je lui est alloué

20 lignes, à la 1ère saisie, c'est réinitialisé.

J'ai vu 3 ou 4 lignes de code en vert (annulées), je vais refaire un tour général de toutes les macros, et te retourner un fichier propre.

Veux-tu que l'on verrouille aussi le VBA (macros) ?

çà serait plus prudent et toujours le même mot de passe ?

à te lire

Claude.

Merci.

Je suis un sénior assez maniaque de 60 ans et j'ai toujours fait attention à ce que je faisais. Mais quand je ne maitrise pas quelque chose, je n'ai aucun scrupule à demander de l'aide, et c'est ça qui fait avancer les choses.

Le verrouillage est indispensable à ce niveau. C'est pour ça que j'ai voulu "révolutionner" ma 1ère version, car trop d'utilisateurs(connaissant un peu excel) avaient commencé à manipuler les fichiers et la version originale avait du plomb dans l'aile.

Si cette version est validée(ce que je souhaite) la maintenance ne pourra se faire que par mon intermédiaire et ensuite je te contacte si difficultés.

Tu me diras comment on peut se recontacter sur le forum.

Bonne nuit et encore merci

Henri

Bonjour Henri et à tous,

Version8 :

https://www.excel-pratique.com/~files/doc/Tresorerie_AFEH_8.zip

J'ai refait un petit tour général des codes, RAS.

Seule modif :

J'ai ajouté une ligne qui permet d'afficher à l'écran les 20 dernières lignes

Je te laisse le soin de retirer les "lignes essais" dans la liste "balance"

(tu supprime les lignes et tu réincrémente les N°)

Si problème, tu pourras toujours me joindre sur ce forum, en ré-ouvrant ce fil (même résolu)

ou en MP.

Surtout, n'hésite pas !

Amicalement et bon vent à votre association.

Claude.

Bonsoir Claude,

J'ai re-testé de long en large la version 8.

Pas de problèmes visibles pour l'instant.

Comme tout est verrouillé, les autres opérateurs n'auront qu'à suivre le mode opératoire qui leur sera fourni lors de la livraison de cette version.

En tout cas, je te remercie ainsi que le forum de m'avoir bien aidé à réaliser ce projet.

Comme convenu, je te tiendrai au courant de son évolution.

Bonnes vacances si ce n'est dèjà fait.

Amicalement

Henri

Bonjour Claude

Notre projet a été étudié au plan national et suite à notre AG de la semaine dernière, voici les commentaires.

La notion "ANNULER UN BON" n'est pas retenu.

Il faudrait remplacer cette fonction par "MODIFIER UN BON"

En effet, une saisie faite avec un mauvais "Libellé de compte" (colonne i) doit pouvoir se corriger en ressaissant un nouveau "Libellé de Compte" sans annuler le bon.

Autre désavantage: Lors de l'édition des bons, les bons qui seraient annulés s'imprimeraient aussi.

Je te joins la dernière version au cas où.

TOUT LE RESTE EST CONFORME A NOTRE SOUHAIT.

Merci

Bonjour Henri et à tous,

Je ne te suis pas pour cette requête !

Sinon, c'est pas la peine d'avoir toutes les protections.

à la limite, on pourrait modifier tous les bons ! !

Quel est le problème ?

• une erreur de saisie je pense ? , et impossibilité de corriger.
• Quelles explications a donner l'AG ?
• -------------------------------------------

• ajouter une colonne cachée avec date de saisie.
• ajouter un bouton "modifier un bon" à la place de "annuler". (ta demande)

passé cette date, aucune modif possible.

Peu-être, conserver les 2 boutons ?

ton avis ?

PS: Tu n'as pas joint ton fichier, je considère que tu n'a rien modifié.

Amicalement

Claude.

Bonjour Claude et au forum

AVIS de la cellule "compta nationale"

La version est OK pour les sections départementales MAIS:

Au mois de janvier, les 86 sections adressent leur fichier au siège national, où tout est vérifié.

A chaque erreur constatée, la comptable aurait préférée pouvoir modifier le bon en défaut (souvent erreur d'imputation de compte) plutôt que de l'annuler et de le ressaisir avant de renvoyer le fichier validé à la section pour archivage.

Tant pis, ce n'est pas bien grave.

J'avais pensé qu'en associant les boutons "ANNULER UN BON" et "DOUBLE-CLIC....", on aurait pu faire un bouton "MODIFIER UN BON" avec la liste déroulante en choix.

De toute manière, ta version est retenue pour 2009, et 5 sections sont "pilote" pour 2008, dont la mienne.

https://www.excel-pratique.com/~files/doc/L0OHZTresorerie_AFEH_8.zip

MERCI encore

Cordialement

Henri

Bonsoir Henri et à tous,

Tant pis, ce n'est pas bien grave.

Attends, on ne baisse pas les bras comme çà !

Tu me donne là, des infos que j'ignorais.

Deux points :

1 - la saisie

2 - la vérification comptable

Proposition :

Point 1 Saisie : possibilité de modifier dans les 48 h (sans annuler)

Point 2 Vérif :

- Au changement d'année, le programme crée un nouveau bouton (spécial comptable) lui permettant de modifier

n'importe quel bon erroné.

Je ne sais pas encore comment mettre ces 2 points en place, mais dis-moi si çà irait pour le principe.

Faudra t'il modifier tout ou partie du bon ?

Amicalement

Claude.

Bonjour Claude,

Je ne baisse pas les bras. Je suis blindé depuis bientôt 25 ans avec les problèmes et les galères que j'ai vécus avec ma fille handicapée.

Revenons à notre soucis.

Point 1

OK sur le principe, modification possible de toutes les colonnes

Point 2

OK également, modification possible sur entrées, sorties, libellé de comtpe(liste déroulante) avec mise à jour automatique du compte affecté (col J)

Par exemple: CREER UNE NOUVELLE FEUILLE "Modif" à l'identique du feuillet "Saisie" avec appel du N° de BON à modifier,

Où étendre le "double-clic" à toutes les colonnes.

Amicalement

Henri

Bonsoir Henri et à tous,

Bon, comme nous sommes d'accord sur le principe, je regarde pour articuler tout çà.

laisse-moi une bonne semaine.

amicalement

Claude.

Bonjour à tous,

Rien ne presse, Claude.

Bonne journée.

Henri

Bonsoir Henri et à tous,

J'ai eu un accident avec le fichier que tu m'a joint, je ne sais pas si tu l'avais modifié ?

Je suis donc reparti de mon fichier.

Nouveautés :

• ajout d'un bouton "Modifier un bon"
• Ajout d'une colonne "date de saisie"
• ajout d'une feuille "modif" . (masquée.)

Cela permet de corriger sans annuler (erreur, fautes de frappe etc…)

au-delà , j'ai laissé le bouton "annuler".

• Au changement d'année, le bouton "Modifier un bon" permet au comptable du siège de corriger tous les bons.
• Un autre bouton apparaît : "FIN de contrôle" , celui-ci devra être cliqué à la fin du contrôle pour remettre

Tu ne t'en est pas apperçu, la version8 protégeait la feuille "CCP", mais les cellules n'étaient pas verrouillées !!

j'ai corrigé çà, ce qui m'a posé des problèmes pour la suite,

C'est pourquoi tu vas devoir tester à nouveau !

Lis la procédure nouvelle avec le bouton "Aide boutons".

Fichier :

https://www.excel-pratique.com/~files/doc/pNxnUTresorerie_AFEH_9.zip

PS: tu devrais changer de mot de passe, on le vois partout sur les titres et logos !

Amicalement

Claude.