Bonjour,

Le code ci-dessous me permet de changer la date, dans une cellule nommée Doc_Date,
Avec un format personnalisé. Mais cette macro m’empêche de pouvoir faire du copié-collé.
Pouvez-vous s’il vous plaie m’indiquer comment je peux contourner ce problème.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'----------------------
' Format date
'----------------------
Range("Doc_Date").Value = Application.Proper(Format(Date, "d mmmm yyyy"))
    If Not Intersect(Target, Range("Doc_Date")) Is Nothing Then
        Target = Doc.DateDuJour
        MsgBox prompt:="La date a été modifiée !", Buttons:=vbExclamation, Title:="ATTENTION"
    End If
Range("Doc_Date").NumberFormat = "@"
End Sub
Je vous remercie de votre aide,

Cordialement,

Patrick