Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Insertion date du jour

4 réponses
Avatar
Sofien Djelassi
Bonjour à toutes et à tous.

Est il possible, grace à une macro, d'insérer automatiquement la date du
jour dans une cellule en cliquant une ou deux fois dessus ?

Merci d'avance pour vos réponses
--
Sofien

4 réponses

Avatar
AV
Est il possible, grace à une macro, d'insérer automatiquement la date du
jour dans une cellule en cliquant une ou deux fois dessus ?


Par double-clic
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal zz As Range, Cancel As Boolean)
zz = Date
Cancel = True
End Sub

AV

Avatar
Ellimac
Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Excel.Range, Cancel As Boolean)
If Target.AddressLocal = "$A$1" Then Target = Date
End Sub

Camille

-----Message d'origine-----
Bonjour à toutes et à tous.

Est il possible, grace à une macro, d'insérer
automatiquement la date du

jour dans une cellule en cliquant une ou deux fois
dessus ?


Merci d'avance pour vos réponses
--
Sofien
.



Avatar
Sofien Djelassi
Merci pour vos réponses!!!

Est ce qu'il est possible de restreindre la zone à une colonne seulement ?



Est il possible, grace à une macro, d'insérer automatiquement la date du
jour dans une cellule en cliquant une ou deux fois dessus ?


Par double-clic
Dans le module de la feuille :
Private Sub Worksheet_BeforeDoubleClick(ByVal zz As Range, Cancel As Boolean)
zz = Date
Cancel = True
End Sub

AV






Avatar
AV
Est ce qu'il est possible de restreindre la zone à une colonne seulement ?


Pour restreindre à la colonne A :

Private Sub Worksheet_BeforeDoubleClick(ByVal zz As Range, Cancel As Boolean)
If zz.Column <> 1 Then Exit Sub
zz = Date :Cancel = True
End Sub

AV