Appliquer une date à un contenu de cellule
Utilisateur anonyme
-
zefade Messages postés 1 Statut Membre -
zefade Messages postés 1 Statut Membre -
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
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
A voir également:
- Appliquer une date à un contenu de cellule
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Fusionner deux cellules excel en gardant le contenu - Guide
- Aller à la ligne dans une cellule excel - Guide
- Ouvrir un fichier .dat - Guide
- Bloquer une cellule excel - Guide
2 réponses
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.
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.
