macro pour date automatique

[matt31]

Bonjour,

est-il possible de créer une macro pour qu'en double cliquant sur une cellule, la date du jour s'affiche automatique dans celle-ci?

Merci pour votre aide.

 

[phlaurent55]

Re : macro pour date automatique

Bonjour Matt

dans la procédure Dbl-clic:
Target.Value = Date

à+
Philippe

 

[JCGL]

Re : macro pour date automatique

Bonjour à tous,

Dans le module de la feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell = Date
End Sub

A + à tous

Édition : Salut Philippe, ravi de te croiser. A++

 

[Gorfael]

Re : macro pour date automatique

Salut à tous
Je dirai même plus :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Date
Cancel = True
End Sub

A+

 

[matt31]

Re : macro pour date automatique

merci à vous 3... quel luxe!
par contre est-il possible d'avoir 2 macro avec double clic mais avec 2 fonctions différentes sur la même feuille et des cellules différentes.

Je m'explique mieux.
Dans une cellule, j'ai une macro qui incrémente à chaque double clic.
Je voudrais que sur la même feuille mais une autre cellule, un double clic affiche la date du jour.

 

[phlaurent55]

Re : macro pour date automatique

Bonjour matt, Jean-Claude, Gorfael

voir fichier joint

à+
Philippe

 

[matt31]

Re : macro pour date automatique

je vous remercie à tous, c'est super, ça fonctionne impecc