Discussion :

[mashu]

Bonjour,

Je souhaite afficher la date à laquel il y a eu une activité sur la cellule (c'est une liste) : par ex, si l'utilisateur choisit un champ de la liste, il s'affichera la date du jour dans une cellule à coté (la date ne doit pas changer dans le temps !, sauf si l'utilisateur réactive la cellule)

Voila ce que j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$H$27" Then
           If Target.Value <> "N.E." Then
            Worksheets("Feuille 1").Range("J27").Formula = "=AUJOURDHUI()"
 
            Else
            Worksheets("Feuille 1").Range("J27").Value = ""      
    End If
End If
End Sub

1) Est ce que ca marche pour figer la date?
2) Quoique je mette après le FORMULA, j'ai constamment #NOM?
Si je tape directement =AUJOURDHUI() dans la cellule ca marche, si je passe par ma macro, marche pas

Merci pour vos éclaircissements...

[Invité]

Bonjour

Remplaces Formula par FormulaLocal pour voir.

Philippe

[zyhack]

bonjour

essaye de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=AUJOURDHUI()"

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=TODAY()"

[mashu]

Bravo a tous les 2, vos 2 méthodes fonctionnent impec !

[zyhack]

la formule Aujourd'hui() dans la feuille donne la date à laquelle la feuille est rafraichie donc elle changera

pour qu'elle ne change pas utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuille 1").Range("J27") = date