Discussion :

[Patrick-P]

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

[gnain]

Bonjour,

Code :

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

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

[Nicolas JACQUIN]

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

Code :

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

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 :

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

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

[Patrick-P]

Bonjour nicoxlsx, gnain,

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

Code :

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

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