[Excel] Date d'aujourd'hui, mais fixe ! [Résolu/Fermé]

Signaler
Messages postés
78
Date d'inscription
lundi 21 juillet 2008
Statut
Membre
Dernière intervention
28 janvier 2017
-
 momolol -
Bonjour les gens !
Voilà, je cherche plus ou moins désespérément une formule qui :
- Rentre au moment que je veux la date (à la minute près)
- Mais que cette date reste fixe

En gros que çà fasse comme la formule =AUJOURDHUI mais que la date donné ne change pas avec le temps ...

Pouvez m'aider ziouplait ?

5 réponses

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 099
Salut Mike, je me casse la nenette pour me rappeler comment fixer la date mais je ne me rappel plus, peut-tu expliquer plus clairement svp.
Merci d'avance
A+
Messages postés
17163
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
14 août 2020
4 174
Salut Lermite222,

Je m'étais absenté, ah les fêtes. Pour en revenir au problème, c'est souvent les solutions les plus simples que l'on oublie

Pour te répondre, au clavier tu clique en même temps sur Ctrl et point virgule (Ctrl et ;)
en Bva

Sub heure()
ActiveCell.Value = Date 'pour la date
'ActiveCell.Value = Time 'pour l'heure
'ActiveCell.Value = Date & " " & Time 'pour la date et l'heure mais avec Now ça marche aussi bien
End Sub

Automatique dans le code feuille si une saisie est opérée en colonne A la date et heure de la saisie en B

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Target.Offset(0, 1) = Now
End If
End Sub

Bonne soirée
Messages postés
78
Date d'inscription
lundi 21 juillet 2008
Statut
Membre
Dernière intervention
28 janvier 2017
3
Eh bien, mille mercis !
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 099
Bonjour, bonjour Mike,
C'est pas tout à fait ça mais ta réponse m'a permis de retrouver, c'était pourtant tout simple (mais les 'trous de mémoire ne font pas de distinguo)
Juste ajouter une conditions...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 And Target.Count = 1 And Target.Offset(0, 1) = "" Then
        Target.Offset(0, 1) = Now
    End If
End Sub

Merci,
A+
Messages postés
17163
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
14 août 2020
4 174
Salut Lermite222,

Ca dépend de l'effet escompter, mon code fixe l’heure si la valeur de la cellule en A change, éventuellement sur un double clic. Ton code fixe l’heure sur un simple clic sur le cellule ou le déplacement de la cellule active.

C’est moins élégant, ce que j’ai également fait sur des formules avec AUJOURDHUI(), c’est un copier/coller de la cellule sur la même cellule suivant condition en VBA.

A+
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 099
C'est voulu ?
Private Sub Worksheet_Change(ByVal Target As Range)
Messages postés
17163
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
14 août 2020
4 174
Salut,

Si tu l'inclus dans une formule, la date s'actualisera automatiquement, à part que tu la saisisses manuellement avec contrôle et point virgule (Ctrl + ; ) ou avec un code VBA mais il faudra un déclencheur du code;

A+