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

hervoul · 20 Octobre 2011

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 · 20 Octobre 2011

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)

Code:

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 · 20 Octobre 2011

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 · 20 Octobre 2011

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

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

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

hervoul

XLDnaute Occasionnel

Pièces jointes

TempusFugit

XLDnaute Impliqué

fanfan38

XLDnaute Barbatruc

hervoul

XLDnaute Occasionnel

Discussions similaires

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

hervoul

XLDnaute Occasionnel

Pièces jointes

TempusFugit

XLDnaute Impliqué

fanfan38

XLDnaute Barbatruc

hervoul

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency