Appliquer une date à un contenu de cellule

Fermé
Utilisateur anonyme - 22 oct. 2010 à 13:35
zefade Messages postés 1 Date d'inscription mardi 26 octobre 2010 Statut Membre Dernière intervention 26 octobre 2010 - 26 oct. 2010 à 11:08
Bonjour,
Je souhaite applique une date "fixe" à un contenu d'une cellule sur excel :
exemple : si dans une cellule A1 je tape "v" je veux qu'en B1 on affiche la date à laquelle j'ai taper "v" dans A1.
Dans la cellule B1 j'ai tapé la formule suivante : =Si(A1="v";aujourdhui();" ")
Dans la cellule B1 j'ai bien la date du jour mais quand j'utilise ce fichier un autre jour , excel "recalule" la date de jour d'ouverture du ficher c'est à dire
si je tape "v" le 18/10 et que je réouvre mon fichier le 20/10 la date notée en B1 sera le 20/10 et non le 18/10.
Existe-t-il une fonction/option dans excel pour éviter ce problème.
Merci par avance
cordialement
Adeline

2 réponses

g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 574
Modifié par g le 22/10/2010 à 16:30
Bonjour,

Dans ce cas il faut passer par le code VBA.
Le code ci-dessous est à copier dans le module de feuille accessible par Alt+F11.

Pour une saisie sur toute la colonne A:

Private Sub Worksheet_Change(ByVal Target As Range)
i = Target.Row
If Target.Column = 1 And Cells(i, 1) = "v" Then 'Saisie de v en colonne 1
Cells(i, 2).Value = Date 'Date fixée en colonne 2
End If
End Sub

Pour une saisie uniquement en A1:

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = "v" Then 'Saisie de v A1
[B1] = Date 'Date fixée en B1
End If
End Sub

Bonne soirée.
0
zefade Messages postés 1 Date d'inscription mardi 26 octobre 2010 Statut Membre Dernière intervention 26 octobre 2010
26 oct. 2010 à 11:08
Merci beaucoup!!!
C'est super gentil !!
Bonne Journée !!
Cordialement
Adeline
0