XL 2016 Insertion automatique d'une date

[Phoenix23]

Bonjour à toutes et tous.
Me voici confronté à un Pb pour lequel, je sollicite SVP de l'aide.
A partir d'une donnée dans une colonne, je souhaiterai faire apparaitre automatiquement dans la colonne à coté la date avec la fonction AUJOURD'HUI.
Exemple dans le fichier ci-joint.
D'avance merci
Cordialement.

 

[riton00]

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

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

Slts

 

[Phoenix23]

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

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

Slts

Bonjour,
Merci riton00;
La solution apportée me convient parfaitement.
Bon Dimanche
Cordialement

 

[job75]

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 :

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+

 

[Phoenix23]

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 :

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+

Bonjour job75
Pour l'instant la formule AUJOURD'HUI correspond très bien à mon besoin.
Néanmoins je garde sous le coude votre solution, si je venais à changé d'avis.
Toujours est il que je vous remercie de vous être également penché sur mon problème.
Bon dimanche
Cordialement