Macro dans Worksheet_SelectionChange

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:

---

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

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

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 If Range("Doc_Date").NumberFormat <> "@" Then Range("Doc_Date").NumberFormat = "@" End Sub

---

Bonjour en mettant tout simplement le code ci-dessous dans le code de la feuille en question

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   Range("Doc_Date").Value = (Format(Date, "d mmmm yyyy"))   End Sub

---

OU

dans le code du classeur this wookbook

Code:

---

1 2 3 4 5

Private Sub workbook_open()   Range("Doc_Date").Value = (Format(Date, "d mmmm yyyy"))   End Sub

---

mais après cela dépend ou est le but exactement

pardon gnain à déjà répondu

Bonjour nicoxlsx, gnain,

Je vous remercie, j'ai donc modifié ma macro comme cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit   Private Sub Worksheet_SelectionChange(ByVal Target As Range) '---------------------- ' Format date '----------------------   Range("A1").Value = Application.Proper(Format(Date, "d mmmm yyyy")) If Not Intersect(Target, Range("A1")) Is Nothing Then MsgBox Prompt:="La date a été modifiée !", Buttons:=vbExclamation, Title:="ATTENTION" End If If Range("A1").NumberFormat <> "@" Then Range("A1").NumberFormat = "@" End Sub

---

Elle fonctionne très bien et m'a permis de supprimer un module.
Elle me permet d'avoir la date avec le mois en majuscule, chose qui est impossible avec mon Excel 97.

Merci encore,

Bonne soirée et bon dimanche,

Cordialement,

Patrick