Insertion Date du jour au double click dans cellule

[14loulou]

Bonjour,

Je suis entrain de faire un ptit fichier pour le travail est je cherche a savoir comment inseré la date du jour dans la cellule on l'on fait un double click.

Merci de vos réponses.

 

[Slade47]

Re : Insertion Date du jour au double click dans cellule

Bonjour Loulou, le Forum,

Essayes ce petit bout de code :

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

Bonne journée,

Alain

 

[14loulou]

Re : Insertion Date du jour au double click dans cellule

Merci cela marche trés bien.

Cependant est'il possible que la fonction ne marche seulement si on se trouve dans la collone C et R ?

Merci

 

[ROGER2327]

Re : Insertion Date du jour au double click dans cellule

Bonjour 14loulou,

Essayez ceci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        If .Column = 3 Or .Column = 18 Then .Value = Date
    End With
    Cancel = True
End Sub

Bonne journée,
ROGER2327

 

[14loulou]

Re : Insertion Date du jour au double click dans cellule

Bonjour,

Merci de votre réponse,

Cela marche trés bien

 

[Kilder]

Re : Insertion Date du jour au double click dans cellule

Bonjour,
J'aimerai utiliser cette commande également, mais je n'arrive pas à comprendre où mettre les lignes de codes dans mon Excel 2010...
Je dois être vraiment nul...

 

[tototiti2008]

Re : Insertion Date du jour au double click dans cellule

Bonjour Kilder, Bonjour à tous,

Clic droit sur l'onglet de feuille concerné - Visualiser le code
Coller le code dans la fenêtre blanche qui s'affiche

Revenir dans Excel pour tester

 

[Kilder]

Re : Insertion Date du jour au double click dans cellule

Nikel ! Ca marche héhé ! C'est tout bête, mais quand on sait pas... lol

Du coup j'ai une autre question :
Lorsque je double clic dans la colonne que j'ai choisi, ça m'affiche bien la date, mais je ne peux plus éditer les cellules des autres colonnes lorsque je fais un double clic.
C'est normal ? Comment faire pour que se soit possible ?

 

[Pierrot93]

Re : Insertion Date du jour au double click dans cellule

Bonsoir à tous,

modifie peut être ainsi, si j'ai bien compris :

    With Target
        If .Column = 3 Or .Column = 18 Then .Value = Date:Cancel = True
    End With

bonne soirée
@+

 

[JNP]

Re : Insertion Date du jour au double click dans cellule

Bonsoir le fil ,
C'est juste du au positionnement du Cancel

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        If .Column = 3 Or .Column = 18 Then .Value = Date: Cancel = True
    End With
End Sub

ne te bloquera pas les autres colonnes ...
Bonne soirée
Ajout : Bing, Pierrot

 

[Kilder]

Re : Insertion Date du jour au double click dans cellule

YES ! Merci les pros, ça fonctionne du tonnerre

 

[Kilder]

Re : Insertion Date du jour au double click dans cellule

Dernière question bête :
Le code marche à merveille. Mais quand je ferme Excel, il me demande d'enregistrer dans un format de fichier qui prend en charge les macros.
Quel format est le plus approprié ? N'est-il pas possible de conserver le .xslx ?
Lorsque j'enregistre en .xltm et que j'ouvre à nouveau mon fichier, il se renomme automatiquement de Fichier.xltm en Fichier1.xltm ...

 

[chris]

Re : Insertion Date du jour au double click dans cellule

Bonjour

Il faut enregistrer en xlsm et et non xltm.

Sachant que CTRL ; permet de faire quasiment la même chose, es-tu sûr de la nécessité de la macro ?

 

[Kilder]

Re : Insertion Date du jour au double click dans cellule

Bonsoir Chris,

Qu'entends-tu par CTRL ?
Si je peux conserver mon fichier en .xlsx, c'est encore mieux.

 

[JNP]

Re : Insertion Date du jour au double click dans cellule

Re ,

Qu'entends-tu par CTRL ?

Si tu saisis Ctrl+";" (la touche Control + le point-virgule), tu auras la date courante dans ta cellule, de même que Ctrl+":" te donneras l'heure courante, et ceci sans VBA ...
Bisous Chris
Bonne journée