XL 2016 Insertion automatique d'une date

Phoenix23

XLDnaute Occasionnel
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.
 

Pièces jointes

  • Classeur1.xlsx
    10.5 KB · Affichages: 5

job75

XLDnaute Barbatruc
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+
 

Pièces jointes

  • Classeur1.xlsm
    16.4 KB · Affichages: 5

Phoenix23

XLDnaute Occasionnel
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+
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
 

Discussions similaires

Réponses
23
Affichages
1 K

Statistiques des forums

Discussions
313 221
Messages
2 096 326
Membres
106 570
dernier inscrit
caisse