Bonjour le forum,
Depuis le temps il faut bien que je vienne vous "taquiner" un peu!!!
Dans la colonne D je ne tape plus un NOMBRE mais du texte donc il faut modifier la ligne 2 de la macro je pense.
Quelqu'un a t-il une idée?
Merci d'avance pour vos lumières.
Bien cordialement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Private Sub Worksheet_Change(ByVal Target As Range) 'Cette Macro inscrit la date Automatiquement en tapant ECBU If Target.Count > 1 Then Exit Sub If Not Intersect(Range("D3:D" & Rows.Count), Target) Is Nothing Then Range("A" & Target.Row) = IIf(Target = "", "", Date) End If End Sub
Partager