XL 2016 Insertion automatique d'une date

riton00 à dit:

Bonjour,
En D3 tester cette formule puis tirer vers le bas avec la poignet de recopie

VB:

=SI(NB.SI($C3;"<>"&"")=1;AUJOURDHUI();"")

Slts

Cliquez pour agrandir...

job75 à dit:

Bonjour Phoenix23, riton00;

Si l'on utilise une formule avec AUJOURDHUI() celle-ci est recalculée à chaque ouverture.

Utilisez plutôt le fichier .xlsm joint avec cette macro :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [C3:C6])
If Target Is Nothing Then Exit Sub
For Each Target In Target 'si entrées ou effacements multiples
    Target(1, 2) = IIf(Target = "", "", Date)
Next
End Sub

Modifiez ou validez les noms en colonne C.

A+

Cliquez pour agrandir...