XL 2010 Date et Heure

kan3pz

XLDnaute Occasionnel

• 13 Février 2017

• #2

Bonjour Scorpio,
PJ à tester.
A+

 

Pièces jointes

• DateEtHeure.xlsx

  10.6 KB · Affichages: 28

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 13 Février 2017

• #3

Bonjour, Scorpio, kan3pz, le Forum,

Avec ce code ( ? ), logé dans le module de l'onglet :

VB:

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If c.Address = "$C$6" And IsDate(c) Then c(1, 2) = Time
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 13 Février 2017

• #4

Bonjour à tous,

Un essai en pièce jointe

JHA

 

Pièces jointes

• DateEtHeure.xlsx

  11.1 KB · Affichages: 33

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 13 Février 2017

• #5

Bonjour DoubleZero
Merci de ton aide, mais chez moi ça ne fonctionne pas, de plus je n'ai pas que la cellule C6, qui est un ex, mais toute une colonne, tu vois,
A+++++

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 13 Février 2017

• #6

JHA à dit:

Bonjour à tous,

Un essai en pièce jointe

JHA

Cliquez pour agrandir...

Bonjour JHA
J'ai coché comme tu ma dit, mais ça vas pas, la date tourne

 

Pièces jointes

• Capture.PNG

  7.7 KB · Affichages: 69

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 13 Février 2017

• #7

Bonjour à tous,

Est ce que cela fonctionne sur le fichier envoyé en #4?
Si oui, regarde bien la formule en "D8"

JHA

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 13 Février 2017

• #8

bonjour

en D6
=si(ou(c6=0;c6="");"";maintenant())
format D6 : heures minutes secondes

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 13 Février 2017

• #9

JHA à dit:

Bonjour à tous,

Est ce que cela fonctionne sur le fichier envoyé en #4?
Si oui, regarde bien la formule en "D8"

JHA

Cliquez pour agrandir...

Re bonjour,
OK, ça fonctionne pil poil.
Merci à toi
A++++

 

Vote positif 0 Vote négatif