A voir également:
- Date de saisie automatique Excel 2013
- Word 2013 free download - Télécharger - Traitement de texte
- Excel 2013 gratuit - Télécharger - Tableur
- Liste déroulante excel - Guide
- Powerpoint 2013 - Télécharger - Présentation
- Si et excel - Guide
4 réponses
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 418
Modifié le 5 déc. 2017 à 20:36
Modifié le 5 déc. 2017 à 20:36
Bonsoir
il n'y a pas de solution pour obtenir une date fixe par formule
Essayez avec;
sélection du nom de l'onglet / clic droit / "visualiser le code"
et collez ce texte:
Private Sub Worksheet_selectionchange(ByVal Target As Range)
If Target.Column = 3 Then
ActiveCell.Offset(-1, -2) = Date
End If
End Sub
crdlmnt
La qualité de la réponse dépend surtout de la clarté de la question, merci!
il n'y a pas de solution pour obtenir une date fixe par formule
Essayez avec;
sélection du nom de l'onglet / clic droit / "visualiser le code"
et collez ce texte:
Private Sub Worksheet_selectionchange(ByVal Target As Range)
If Target.Column = 3 Then
ActiveCell.Offset(-1, -2) = Date
End If
End Sub
crdlmnt
La qualité de la réponse dépend surtout de la clarté de la question, merci!
M-12
Messages postés
1331
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
283
5 déc. 2017 à 20:26
5 déc. 2017 à 20:26
Bonsoir,
du genre
=si(Cx<>"";AUJOURDHUI();"")
du genre
=si(Cx<>"";AUJOURDHUI();"")
y.a.n.g
Messages postés
5
Date d'inscription
mardi 5 décembre 2017
Statut
Membre
Dernière intervention
30 décembre 2017
5
5 déc. 2017 à 20:31
5 déc. 2017 à 20:31
Euh... avec cette formule la date va changer tous les jours...
Donc, c'est OK uniquement si ce besoin est ponctuel (dans la journée). Sinon, lors de la saisie en colonne C, seule une macro pourra figer une valeur en colonne A.
Donc, c'est OK uniquement si ce besoin est ponctuel (dans la journée). Sinon, lors de la saisie en colonne C, seule une macro pourra figer une valeur en colonne A.
The_boss_68
Messages postés
929
Date d'inscription
dimanche 15 novembre 2015
Statut
Membre
Dernière intervention
3 décembre 2024
178
5 déc. 2017 à 22:19
5 déc. 2017 à 22:19
Bonsoir
Peu-être comme ça,
Slts
Peu-être comme ça,
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [c1:c1000]) Is Nothing Then
Target(1, -1) = Now
End If
End Sub
Slts