Discussion :

[racoon971]

Bonjour j'ai une cellule de type datetime dans lequel j'ai quelques choses qui ressemble a ca 3/15/2011 7:55:01 PM.
J'aimerais extraire l'heure cad : 7:55:01 PM et lui enlever une minute : 7:56:01.
Avez vous une idée de comment l'on peut faire ca ?
Merci

[mercatog]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B1").Value = TimeValue(Range("A1").Value) - TimeSerial(0, 1, 0)

[racoon971]

bonne idée, merci, mais ne fonctionne pas car quand je passe la date en mode text j'obtiens un nombre que je ne peux plus convertir en heure.
Merci

[mercatog]

Les dates sont des nombres, ce que tu vois sur excel c'est seulement la forme
Pour imposer le format d'affichage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("B1").NumberFormat = "@"
Range("B1").Value = Format(TimeValue(Range("A1").Value) - TimeSerial(0, 1, 0), "h:mm:ss AM/PM")

Reste à savoir ce que tu cherche à faire.

[amnorian]

pourquoi passe tu la date en mode texte ?

moi cela fonctionne très bien en partant d'une cellule en format texte à la base

[racoon971]

Merci pour votre aide ca marche