faire apparaitre la date d'aujourd'hui en cliquant dans 1 cellule

[hervoul]

voilà, tout est dit dans le titre.
Voir la feuille jointe, faite sur excel 2003, mais en fait pour excel 2007 (pas le meme PC).
merci

 

[TempusFugit]

Re : faire apparaitre la date d'aujourd'hui en cliquant dans 1 cellule

Bonjour

A mettre dans le code de la feuille concernée
(Dommage que tu utilises la fusion de cellules)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 3 Then Exit Sub 
If Not Intersect(Target, [G4:G43]) Is Nothing Then
Target = Date
End If
End Sub

 

[fanfan38]

Re : faire apparaitre la date d'aujourd'hui en cliquant dans 1 cellule

Bonjour
Pourquoi ne pas utiliser: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
pour 1 double clic
ou Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
pour 1 clic droit
Target.Value = Date
End Sub

A+ François

 

[hervoul]

Re : faire apparaitre la date d'aujourd'hui en cliquant dans 1 cellule

Merci les amis, toujours aussi rapides pour les réponses...à+
RVoul