Date de saisie

[Jum_o]

Bonjour,

Merci de m'aider un peu. j'aimerais créer une macro qui indique la date de saisie d'une donnée et que cette date se déplace à chaque fois en fonction de l'endroit ou la donnée a été saisie. En PJ un exemple de ce que je voudrais pour mieux me faire comprendre.

merci de votre aide

 

[tototiti2008]

Re : Date de saisie

Bonjour Jum_o

un essai en VBA :

 

[Jum_o]

Re : Date de saisie

Merci Tototiti sur mon exemple le code marche trés bien.

Peux tu m'expliquer cette partie du code stp Merci

If Not Application.Intersect(Target, Range("Tableaux")) Is Nothing Then

 

[tototiti2008]

Re : Date de saisie

If Not Application.Intersect(Target, Range("Tableaux")) Is Nothing Then

signifie:

Target désigne la cellule dont on a modifié la valeur
Range("Tableaux") est la plage que j'ai nommé Tableaux, là où on peut saisir des valeurs

Application.Intersect(...) signifie l'intersection des 2 plages, c'est à dire les cellules communes
s'il n'y a pas de cellules communes, "l'objet" retourné est Nothing

donc tout ça veut dire : si la cellule modifié appartient à la range Tableau

 

[Jum_o]

Re : Date de saisie

Bonjour,

merci Tototiti pour tes reponses. Par contre j'ai un petit souci par rapport a ce que tu me proposes. La macro permet d'indiquer la date d'entréé quand je rentre une donnée dans la colonne, qui est fixe. La colonne que je voudrais se décale mensuellement. Ta macro c'est pour une colonne bien définie alors que la mienne est amenée à se décaler une fois tous les mois. Avez-vous une solution? J'espere avoir été suffisament clair. En PJ un exemple

Merci de vos réponses.

 

[tototiti2008]

Re : Date de saisie

Bonjour Jum_o,

il me semble que tu as modifié mon code... donc forcément ça ne fait plus la même chose qu'avant...

 

[Jum_o]

Re : Date de saisie

Oui ton code je l'ai juste appliquée à une colonne(mois actuel) et de telle sorte que la date soit affichée en haut de cette même colonne mais sinon ca reste le même.

 

[tototiti2008]

Re : Date de saisie

et comme tu as limité la plage à cette colonne, il est logique qu'il ne fonctionne que sur cette colonne.
donc ? je ne comprend pas bien ce que tu veux.

 

[Jum_o]

Re : Date de saisie

Ce qui m'interesse c'est afficher la date a laquelle on a rentré une valeur au mois actuel (Septembre) et pas les mois suivants. La macro que je souhaiterais permettrait de, dés que l'on passe en Octobre, que la macro (ton code) qui affiche la date s'applique sur la colonne du mois d'Octobre donc qu'elle décale en faite la colonne mois_actuel. C'est un peu plus clair ou pas?

 

[tototiti2008]

Re : Date de saisie

dis-moi ce que tu en penses :

 

[Jum_o]

Re : Date de saisie

La tu appliques ta macro sur la colonne mois_actuel mais elle ne se décale pas chaque moi. Tu as enlevé le bout de code pour supprimer la date des mois antérieures.

 

[tototiti2008]

Re : Date de saisie

le nom mois_actuel se décale de mois en mois (va voir comment le nom est défini). j'ai enlevé le code d'effacement parce qu'il n'effaçait pas le mois précédent mais le mois en cours avant de le récrire, ce qui ne servait à rien. si tu veux effacer la date du mois précédent, rajoute la ligne :
Cells(2, Target.Column-1).clearcontents

 

[Jum_o]

Re : Date de saisie

attends mais tu l'as définit ou mois_actuel ??(je suis dsl je rame un peu beaucoup)

 

[tototiti2008]

Re : Date de saisie

va dans Insertion-Nom-Définir
clique sur mois_actuel
regarde dans Fait référence à
la formule devrait décaler en fonction du mois en cours.
pour que ça fonctionne bien, il faudrait tous les mois de l'année, évidement
pour tester, change le mois de ton système et tu verras que la macro ne réagit plus sur le même mois

 

[Jum_o]

Re : Date de saisie

Ben écoutes ton truc c'est exactement ce que je voulais mais quand j'essaie de l'appliquer à ma feuille, il n'identifie pas test alors que je fais bien insert/Nom/Définir en modifiant correctement les cellules??? Peux tu me donner ta démarche?
Merci bcp.