Discussion :

[getstarted]

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.

[tedo01]

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 :

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

=ENT(A1)

et l'heure avec la formule

Code :

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

=A1-ENT(A1)

[defluc]

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 :

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

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

[Victor21]

Bonjour à tous.

Avez-vous essayé la conversion :

Code :

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

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