Microsoft 365 date fixe

Hasco

XLDnaute Barbatruc

Repose en paix

• 10 Décembre 2021

• #2

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

 

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 10 Décembre 2021

• #3

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

 

Dernière édition: 10 Décembre 2021

Vote positif 0 Vote négatif

P

Proxima34

XLDnaute Nouveau

• 13 Décembre 2021

• #4

merci pour les infos mais je n'arrive pas à utiliser le vba. Merci quand meme.

 

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 13 Décembre 2021

• #5

Proxima34 à dit:

merci pour les infos mais je n'arrive pas à utiliser le vba. Merci quand meme.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif