[Excel] Date d'aujourd'hui, mais fixe !

Résolu
Naflin Messages postés 88 Statut Membre -  
 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 ?
A voir également:

5 réponses

Réponse 1 / 5
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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+
0
Mike-31 Messages postés 19570 Statut Contributeur 5 136
 
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
0
Réponse 2 / 5
Naflin Messages postés 88 Statut Membre 9
 
Eh bien, mille mercis !
0
Réponse 3 / 5
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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+
0
Réponse 4 / 5
Mike-31 Messages postés 19570 Statut Contributeur 5 136
 
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+
0
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
C'est voulu ?
Private Sub Worksheet_Change(ByVal Target As Range)
0
momolol
 
ouai c sa
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
Mike-31 Messages postés 19570 Statut Contributeur 5 136
 
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+
-1