indiquer une date fixe dans une cellule

[jerleswatt]

Bonjour, j'aimerai modifier ma macro qui a pour but d'indiquer la date du jour (qui reste fixe) dans une cellule d'une colonne en cliquant dessus, je voudrai que le macro si dessous puisse faire la même chose mais sur plusieurs colonnes choisi ex: col 2, 11 20 29 38 47 ......

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
colonne = ActiveCell.Column
If colonne = 0 Then
ActiveCell.Offset(0, 1).Select
Call macro1
ElseIf colonne = 2 Then
Call macro1
End If
Application.EnableEvents = True
End Sub

Sub macro1()
ActiveCell.Value = Date 'pour la date
'ActiveCell.Value = Time 'pour l'heure
'ActiveCell.Value = Date & " " & Time 'pour la date et l'heure mais avec Now ça marche aussi bien

J'ai bon essayé mais rien y fais , je souhaite qu'un connaisseur VBA vienne à mon secours

Cordialement Jerleswatt

 

[JNP]

Re : indiquer une date fixe dans une cellule

Bonjour Jerleswatt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column
Case 2, 11, 20, 29, 38, 47
If Target = "" Then Target = Date
End Select
End Sub

J'ai rajouté un test pour ne pas écraser une date déjà présente.
Bon dimanche

 

[jerleswatt]

Re : indiquer une date fixe dans une cellule

Magnifique ça marche à merveille, merci JNP vous êtes formidable, encor merci.
Cordialement jerleswatt.