Fixer une date sur excel Fermé

Question

Bonjour,   

Débutant sur Excel, je cherche un code ou une formule qui me permettrait de noter automatiquement la date du jour (et que celle-ci ne change plus) lorsque l'avancement d'une tâche est de 100%. 
J'avais d'abord pensé à la formule =Si("avancement"=100%; AUJOURDHUI(); "") mais par définition la date change (et je voudrais conserver les dates de fin de tâches). 
Si quelqu'un pouvait m'aider! Grand merci d'avance! 

Cordialement, 

tom 

Configuration: Windows XP / Internet Explorer 7.0

amiraltom · Answer

N'y a-t-il personne pour m'aider?  
S'il vous plait, vous me seriez d'un grand secours!

ed555 · Answer

salut,

si ta question est toujours d'actualité, tu peux utiliser le bout de code suivant :

'on récupère l'avancement
avancement = Sheets(1).Range("B1").Value

'on remplit la case A1 avec la date et l'heure actuelle
If avancement = "100%" Then
Sheets(1).Range("A1").Value = Now
End if

bonne continuation !

Mike-31 · Answer

Salut,

Cette demande vient d'être évoquée dans cette discussion

https://forums.commentcamarche.net/forum/affich-22183337-figer-une-heure-dans-une-cellule#top

amiraltom · Answer

Merci beaucoup! la demande est toujours d'actualité !! 
Mike, le problème évoqué ne correspond pas tout à fait à ce que je cherche.
Ed, pour ta solution aurais-tu un code entier? Je suis vraiment une biquette incapable de mettre en forme un code. Et ta solution donne-t-elle une date fixe? en d'autres terme, la date qui s'est mise automatiquement dès qu'on a atteint les 100% va-t-elle changer le lendemain?
Et pour avoir cette formule vraie sur une colonne j'imagine qu'on intervient au niveau du Range, non? Range("A1; A45") par exemple?
 
Encore une fois merci !

tom

amiraltom · Answer

Autant pour moi Mike, je n'avais pas lu le sujet jusqu'au bout. 
Du coup il faut adapter un peu le code...mais je ne vois pas où il faut que j'intervienne pour mettre la condition inscrire la date en cellule A1 si la valeur 100% apparait en cellule B1...Tu penses pouvoir modifier ça ? 
merci beaucoup!
tom

Mike-31 · Answer

Re,

tout dépend comment sont saisie les valeurs dans ta plage
exemple si ta plage A1 à A45 est formatée en pourcentage lorsque tu saisis 100 la valeur s'affiche automatiquement 100,00% dans la colonne B sur la même ligne s'affiche automatiquement la date et l'heure mais on peut se limiter à la date ou à l'heure suffit de préciser et si la valeur est inférieure à 100% colonne B reste vide

Clic droit sur l'onglet de ta feuille/Visualiser le code et colle ce code,puis fais des essaies sur la plage A1 à A45

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A45")) Is Nothing Then
If Target = 1 Then
Target.Offset(0, 1) = Now
Else
Target.Offset(0, 1) = ""
End If
End If
End Sub

Mike-31 · Answer

Re,

donne moi la plage qui doit conditionner le déclenchament du code exemple si je saisis entre F2 à F500 une valeur pourcentage la date doit s'afficher dans la colonne C

Mike-31 · Answer

Re,

En supposant que la plage M11 à M291 est formatée en pourcentage et tu saisis simplement 25 pour 25%, si non comment est formatée la plage en standard et tu saisis ex 25%
testes ce code et tiens moi au courrant

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M11:M300")) Is Nothing Then
If Target = 1 Then
Target.Offset(0, -1) = Date
Else
Target.Offset(0, -1) = ""
End If
End If
End Sub

amiraltom · Answer

ça marche !! merci infiniment, j'ai juste changé le nom de la macro (au niveau du "Private Sub Worksheet_Change" j'avais déjà une macro qui commençait comme ça...j'ai mis "Worksheet_Change1" et ça a marché.  
Donc si j'ai bien compris, si je veux changer la colonne où s'inscrit la date, je change le -1 de "Target.Offset(0, -1)" par -2 ou -3, etc...? 
C'est vraiment chouette de ta part en tout cas ! 

Bonne fin de journée à toi ! 

tom

Mike-31 · Answer

Re,

 voila tu as compris - si c'est avant la cellule active et 3 par exemple si tu veux la troisième après la cellule active

amiraltom · Answer

Raaa non !  
J'avais écrit une formule dans la colonne où doit s'inscrire la date. Le code marchait, pas de problème...et j'ai voulu effacer la formule sur toute la colonne, mais ensuite le code ne marchait plus...tu vois une explication ? (j'ai regardé si le format de cellule avait changé, mais non, je suis en format date)

Mike-31 · Answer

Re, 

Si ton fichier comporte des notes confidentielles, masque les et fais moi parvenir ton fichier soit dans un post dans cette discussion ou en message privé (dans ce cas clic sur mon speudo) que je vois 

Avec un de ces deux lien 

https://www.cjoint.com/ ou http://www.cijoint.fr/ 

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

amiraltom · Answer

Bonjour! 

Voici le document type que j'utilise. En fait je pensais que la macro marchait mais c'était parce que j'avais oublié d'enlever ma formule initiale (en K11 ici). J'ai réessayé la macro avec ce document type et ça ne marche pas ...
Je te joins le lien:

http://www.cijoint.fr/cjlink.php?file=cj201105/cijOqc2kIa.xls  

merci pour ton aide!

tom

Mike-31 · Answer

Re,

J'avais zappé ton post excuse,

regarde si c'est ce que tu cherches faire

https://www.cjoint.com/?AFboaHGlfLq

amiraltom · Answer

Merci pour le doc. C'est bien l'idée, mais j'aurais deux questions: 
Est-ce que "Date" signifie qu'il prend la date du jour et ensuite que celle-ci ne change plus? Et est-ce qu'il est possible ici d'appliquer la formule sur une plage de cellule et non pas seulement sur des cellules isolées? c-à-d généraliser le code pour que chaque 100% de la colonne M donne une date en colonne K... 

Merci ! 
bonne journée à vous ! 

tom

Mike-31 · Answer

Re, 

A partir d'un code VBA Date, la date est figée sauf si tu modifies une cellule en M ou la date s'actualisera à la date de la modification 

dans mon code j'ai inclus l'effacement de la date si par exemple en M on à saisie accidentellement 100% et que l'on rectifie cette valeur par rien ou une valeur inférieure ex.50% la date s'efface. 

Mais on peut écrire le code de sorte que s'il existe une date en K cette reste figée dans tous les cas 

il suffira de remplacer le code existant par ces lignes

If Not Intersect(Target, Range("M11:M100")) Is Nothing Then
If Target = 1 And Target.Offset(0, -2) = "" Then
Target.Offset(0, -2) = Date
End If
End If

https://www.cjoint.com/?AFbp6CLBlku
  
A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

amiraltom · Answer

Merci Mike, c'est good! ça fait un petit bog au niveau du "If Target = 1 Then" quand j'insère des lignes mais ça a l'air de fonctionner quand même...
Je te recontacte s'il y a un truc qui cloche!
Merci encore et bonne journée !

Tom

Mike-31 · Answer

Re,

il faut rajouter au code une gestion d'erreur, 

remplace le code par celui ci et tiens moi au courant

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("M11:M100")) Is Nothing Then
If Target = 1 And Target.Offset(0, -2) = "" Then
Target.Offset(0, -2) = Date
End If
End If
End Sub

Fixer une date sur excel

18 réponses

Discussions similaires