Microsoft 365 date fixe

Proxima34

XLDnaute Nouveau
Bonjour

Je souhaite quand j'inscrit une personne, que la date s'affiche automatiquement dans une case dédié.


=SI(ESTTEXTE(B9);AUJOURDHUI();"")
Cela fonctionne mais la date change tout le temps alors que je voudrais que celle ci se fige.
J'ai compris qu'il fallait utiliser le VBA mais je ne sais pas m'en servir. Quelqu'un aurait il une formule pour m'aider. Je vous joint un exemple.
J'espère avoir été assez clair.
Merci
 

Pièces jointes

  • exemple.xlsx
    16.5 KB · Affichages: 7

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Sélectionnez la cellule et appuyez simultanément sur CTRL+; (contrôle et Point-virgule)
Cette combinaison de touches mettra la date du jour dans la cellule

Supplément pour les intéressés :
pour l'heure -> CTRL+: (contrôle et Deux-point)
Pour les deux CTRL+; Espace CTRL+:

Cordialement
 

RyuAutodidacte

XLDnaute Impliqué
Supporter XLD
Bonjour,

Via Macro avec l'événements de la feuille de travail
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("B4:B" & Rows.Count)) Is Nothing And Target.Count = 1 Then
        If Target.Value <> "" Then Target.Offset(, 15).Value = CDate(CStr(Format(Now, "dd/mm/yyyy"))) Else Target.Offset(, 15).ClearContents
    End If
End Sub
Edit : j'ai fait une modif dans le code pour éviter l'inversion entre jour et mois

1639136274923.png
 
Dernière édition:

RyuAutodidacte

XLDnaute Impliqué
Supporter XLD
merci pour les infos mais je n'arrive pas à utiliser le vba. Merci quand meme.
Bonjour,

Faut aller dans les options d'excel => "Ruban …" et cocher l'onglet "Développeur" => refermer les options
Puis aller dans l'onglet Développeur et cliquer sur Visual Basic
Double cliquer sur la Feuille concernée et y coller le code
PS :
il faudra ré-enregistrer le fichier au format xlsm
La modification se fera automatiquement lorsqu'un nouveau nom sera marqué dans la cellule
 

Discussions similaires

Réponses
5
Affichages
357
Réponses
4
Affichages
491

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla