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

[Invité]

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 :

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

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

Heure

Code :

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

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

[getstarted]

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 :

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

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 ?

[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))

[getstarted]

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 !

[Invité]

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

[getstarted]

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 !

[defluc]

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