diviser une cellule date et heure

Bonjour,

J'ai une colonne qui contient des dates et un horaires sous la forme : 15/10/2007 10:00

J'aurai besoin d'une colonne DATE et d'une colonne HEURE, comment faire (en VBA) pour séparer les celulles en deux cellules distinctes contenant les bonnes données ?

J'ai déjà essayé de copier les colonnes puis d'effectuer un changement de format, mais ça n'est pas suffisant car la cellule de destination conserve quand même en mémoire la partie heure ou date que je cherche à supprimer. Or, j'ai ensuite besoin de faire un tri sur ces colonnes. En clair, mon but n'est pas simplement de changer le format pour raisons esthétiques, mais vraiment de ne récupérer qu'une partie de la valeur.

Bonjour,
Les dates sont stockées sous la forme d'un nombre dans lequel la partie entière représente le nombre de jours depuis le 31.12.1899, et la partie décimale l'heure sous la forme d'une fraction de jour.

Si la date est dans la cellule A1, la date seule sera donc donnée par la formule

Code:

---

=ENT(A1)

---

et l'heure avec la formule

Code:

---

=A1-ENT(A1)

---

En respectant le format donné pour ta cellule ("15/10/2007 10:00"), pour la date, la formule à placer dans la cellule isolant la date serait «ExtractDate»
et la formule pour la cellule isolant l'heure serait «ExtractTime», à condition d'avoir codé les fonctions appelées de la façon suivante

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Public Function ExtractDate(DateTimeStr As String) As String Dim PosSpace As Integer PosSpace = InStr(DateTimeStr, " ") ExtractDate = Left(DateTimeStr, PosSpace - 1) End Function Public Function ExtractTime(DateTimeStr As String) As String Dim PosSpace As Integer, StrLen As Integer PosSpace = InStr(DateTimeStr, " ") StrLen = Len(DateTimeStr) ExtractTime = Right(DateTimeStr, StrLen - PosSpace) End Function

---

Bonjour

Il y a des fonctions pour tout cela, plutôt que faire de l'extraction de chaîne, comme la fonction Format :

Jour :

Code:

---

Format(wks.Range("A1"), "dd/mm/yyyy")

---

Heure

Code:

---

Format(wks.Range("A1"), "hh:mm:ss")

---

et un peu de lecture : Examen détaillé des fonctions de Date et Heure dans le VBA

Philippe

bonjour,

Merci à vous trois pour ces conseils.
tedo et defluc: vos solutions sont effectivement les plus faciles, mais j'aurais besoin si possible que la cellule finale renvoie une valeur et non une formule :)
Ou alors il existe un moyen (que j'ignore) qui permettrait de ne rendre que le résultat ?

Philippe : je ne comprends pas comment mettre en pratique votre réponse ; j'ai quand même essayé de revenir avec ma propre solution à partir des indications du tutoriel :

Code:

---

Cells(2, 1).Value = DateSerial((Cells(2, 4).Year), (Cells(2, 4).Month), (Cells(2, 4).Day))

---

Mais bien sûr ça ne marche pas. Pourriez vous me dire comment je dois adapter cette solution, ou me donner des précisions et/ou un exemple sur la manière de mettre en oeuvre votre solution ?

Bonjour à tous.

Avez-vous essayé la conversion :

Code:

---

1 2	Columns("A:A").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _ Space:=True, FieldInfo:=Array(Array(1, 1), Array(2, 1))

---

A la question "peut-on ne conserver que les valeurs", j'ai trouvé une réponse ici (je découvre le site peu à peu).
C'est un peu du bricolage, mais ça dépanne bien ^^

Je n'ai pas compris la solution de Philippe (je suis toujours intéressée par l'explication, notemment sur "wks.") mais celle de Victor fonctionne parfaitement. Merci beaucoup !

Re

Wks désigne tout simplement une feuille d'un classeur que j'ai déclaré en amont du code c'est tout.

L'important est la fonction Format dans laquelle on passe la valeur d'une cellule. Les paramètres donnent ce que tu veux.

Philippe

Ah ! je cherchais beaucoup plus compliqué ^^'

En fait le problème d'agir sur le fomat est que ça ne change justement que le format et pas la valeur de la cellule. Dans mon exemple, passer "15/10/2007 10:00" au format "hh/mm/ss" affichera bien 10:00:00, mais la valeur du jour est gardée entière en mémoire dans la cellule.

Ca n'est pas grave si on ne se préoccupe que de l'affichage, mais rend impossible le fonctionnement de certaines opérations sur ces cellules. Exemple à tester : si j'ai des dates en A, les heures correspondantes en B et des noms en C, et que je veux faire un tri par date, puis par nom, puis par heure. Si on ne change que le format, cela revient à ne trier que sur la colonne A (qui contient au final les même information que la colonne B).

Merci à tous pour vos réponses en tout cas !

C'est ce que j'avais compris et c'est pour cela que j'ai proposé mes 2 fonctions.