Discussion :

[richard_sraing]

Bonjour à tous,

Je souhaiterai savoir, si il est possible, sans utiliser de macro, de réaliser l'ajout de la date/heure de première modification d'une cellule dans une autre cellule.

Je m'explique :

Nom	Enlevé par	Date enlèvement
Pierre
Paul
Jacques

Lorsque je saisi le nom d'une personne dans les cellules "Enlevés par", je souhaiterai que dans la cellule "Date" correspondante, la date et l'heure de la saisie soit renseignée de manière automatique.

J'ai essayé avec la formule suivante, mais dès que je modifie une autre ligne, tout la feuille se recalcule, et je ne connais donc plus la date / heure initiale d'enlèvement.

La formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ESTTEXTE($B2);MAINTENANT();"")

Je souhaiterai également que la valeur de la date ne soit pas mise à jour en cas de modification accidentelle d'une cellule "Enlevé par".

Je ne sais pas trop si je suis clair dans ma demande, mais je vous remercie d'avance pour les lumières qu'il vous sera possible de m'apporter.

[Kimy_Ire]

Bonjour richard_sraing,

Alors, ce n'est pas tout à fait une macro qu'il te faut, mais un événement.
Cela n'implique donc pas d'enregistrer ton classeur en .xlms.
Autrement, je ne vois pas comment il est possible de répondre à ton besoin.

Ainsi, voici ce que je te propose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Application.Intersect(Target, Columns(2)) Is Nothing Then
    If Target.Offset(0, 1) = "" Then
        Target.Offset(0, 1) = Now
    End If
End If
 
End Sub

Place ce bout de code dans l'événement de ta feuille de calcul.
Ici, je check une modification de la colonne B avec Columns(2) en vérifiant si la colonne C est vide lors de l'insertion avec If Target.Offset(0, 1) = "" Then.
Dans le cas d'une modification, ceci ne change donc pas la valeur précédemment insérée.

En espérant que cela te convienne.
N'hésite pas à revenir vers moi.

Cordialement,
Kimy

[richard_sraing]

Quelle solution incroyablement efficace.

Merci à vous.