besoin de guidage

[yblotiere]

Bonjour à Tous

Ce nouvel appel a vos conseil éclairé je travail toujours sur mon fichier de suivi de mes facture fournisseurs
aujourd'hui après les dernieres modif que j'ai faite pour les factures courante tout va bien quand je reçois ma facture je la saisie met mon échéance mon analyse fournisseurs et banques se remplisse enfin bon tout fonctionne.

l'homme étant féneant de nature j'ai remarqué que j'avais des factures identique tous les mois par exemple des crédit baux ou des location de matériel donc voici ma réflexion je ne vais quand pas les saisir tous les mois?

alors je me suis créé un nouvel onglet opération _récurante qui aurait pour objectif de créer de façon automatique chaque mois un ligne dans saisie facture jusqu’à la fin

j'ai créé un canevas du tableau et j'aimerai votre avis et votre vision sur ce qui peut ou pas être mis en place pour faire avancer le shilblik

je suis a l’écoute de toute les proposition

merci

yannick

 

[fanfan38]

Re : besoin de guidage

Bonjour
J'espère avoir répondu à ton problème
Quand une saisie des opérations récurantes et faite la date est mise en t6
a l'ouverture du fichier (dans thisworkbook macro Workbook_Open) on regarde si le mois en cours et different du mois de cette cellule
si oui une boucle (que tu completera) recopie sur la feuille saisie facture les divers dépenses...
incrementation de la Durée restante en mois et si celle si est à 0 effacement de la ligne
sasie de la date en t6...

A+ François

 

[yblotiere]

Re : besoin de guidage

Bonjour François

tout d abord merci pour le coup de main j'ai compléter la macro
par contre deux choses dans ma feuille opération recurante j'ai une colonne durée restante en mois que l'on pourrait peut être utilisée.
j'ai rajouté un colonne qui medonne la prochaine écheance et depuis cela ne fonctionne plus
j'ai pourtan transformé le T6 en u6 comprend pas
serait il possible lorsque l'on fait la copie de mettre la date au 1 du mois pour la date de facture?


Autre point pour saisir un facture dans ma feuille saisie facture il faut double cliquer sur la derniere ligne de la colonne fournisseur qui déclenche la copie des formule ainsi que la mise en page.
je joint le nouveau fichier.

merci


yanncik

 

[fanfan38]

Re : besoin de guidage

Comme je te l'ai dit plus haut : incrementation de la Durée restante. C'est à dire que chaque j'enlève 1 à cette valeur et quand celle ci est à 0 je supprime la ligne...
pour la date de facture=CDate("01/" & Month(Date) & "/" & Year(Date))
Attention si il y a une date en t6 (ou u6) du même mois sa ne marche pas...
A+ François

 

[yblotiere]

Re : besoin de guidage

Re François

Tous d'abord je souhaite présenter tous mes vœux pour 2013 à l'ensemble des membres du forum
pour en revenir à mon problème j'ai compris la mécanique de ce que tu a fait
je voudrais toute fois allez un petit peu plus loin, lorsque je saisi une facture dans saisie facture je double clic dans la colonne fournisseur sur la derniers ligne et cela déclenche la macro ajoutligne qui copie les formule la mise en page de la 1er ligne
je voudrais savoir si lorsque ta procédure se lance avant chaque ligne à copié il faudrait déclenche la macro ajoutligne

merci

yannick

 

[fanfan38]

Re : besoin de guidage

Bonjour et meilleurs voeux
Tu ajoute juste apres le lancement de la boucle for...
dans la macro Workbook_Open (dans thisworkbook)
For i = 6 To derlig
AjoutLigne

A+ François

 

[yblotiere]

Re : besoin de guidage

Bonsoir François

J'ai fait ce que tu m'a dit mais lorsque je lance la procedure

j'ai le message suivant

erreur 1004
la methode Activate de la classe range a echoué

merci encore pour ton aide car ce genre de chose dépasse met compétence

je te joins le fichier avec la modif

yannick

 

[fanfan38]

Re : besoin de guidage

t'as pas fait la modif au bon endroit

A+ François

 

[yblotiere]

Re : besoin de guidage

Re

dans le fichier que tu as joins elle est au même endroit

A+ yannick

 

[fanfan38]

Re : besoin de guidage

exact j'ai mal vu...
si pb ajoute
Sheets("SAISIE FACTURES").Select
avant la boucle for i....

A+ François

 

[yblotiere]

Re : besoin de guidage

Re

Merci pour l'info cela marche parfaitement

merci

 

[yblotiere]

Re : besoin de guidage

Re francois

Re

Merci pour l'info cela marche parfaitement

merci

je revient vers toi car sans savoir pourquoi le fichier ne fonctionne plus
je ne vois pas d’où vient le problème des l'ouverture erreur 484

je te met la copie du fichier sur le quel je travail

si quelqu'un voit d’où vient le problème

merci

yannick

 

[fanfan38]

Re : besoin de guidage

Bonjour
la seule erreur que j'ai trouvé c'est:
Sheets("SAISIE FACTURES").SelectAjoutLigne
a changer
Sheets("SAISIE FACTURES").Select
AjoutLigne
A+ François

 

[yblotiere]

Re : besoin de guidage

Re François

Effectivement tu as raison j'ai fait la modif et cela fonctionne
par contre lorsque j'ai lancer le fichier cela ma bien créer toute les échéance au 01/01/2013
par contre j'aurais aimé qu'il me créer aussi toute les échéance antérieur plus précisément a partir du 01/11/2012
comment puis je faire

merci

yannick

 

[yblotiere]

Re : besoin de guidage

re François

je viens de découvrir un autre problème lorsque la copie se fait il y a une formule dans l'onglet
opération récurant en Q qui me permet de calculer la date d'échéance par rapport a la date du jour
sauf que la formule que j'utilise m'affiche bien un date mais au format texte.
ci qui fait que lorsque l'on lance la copie cela pose un souci dans l'onglet saisie facture puisque colle du texte et plus des date
j’espère avoir été clair

merci

yannick