pb de conversion cellule texte en date

[Polo34]

bonjour le forum,
j'ai un petit souci quand je veux utiliser la fonction cdate() avec une cellule texte représentant une date > 24h
Exemple: A1= 623:24:12 représente un délais de 623h 24mn 12s
cdate (cells(1,1)) me donne un résultat vide avec incompatibilité de type

Quelqu'un peut il m'aider sur ce coup via une function excel ou personnalisée.

Merci d'avance à tous
A+
Polo

 

[KenDev]

Re : pb de conversion cellule texte en date

Bonjour Polo,

Je n'ai pas réussi à reproduire le 'problème' dans un classeur car 623:24:12 est correctement interprété comme date en A1. Idem en y appliquant un cdate qui ne sert donc à rien. En fait quel est le résultat attendu pour cette entrée ?

Si pour une raison qui m'échappe à un moment dans ton code tu as une chaine texte "623:24:12" , tu peux essayer quelque chose comme ça :

Sub test()
Dim v&, s$, d As Date
    s = "623:24:12"
    v = Left(s, Len(s) - 6)
    d = CDate("00:" & Right(s, 5)) + v / 24
End Sub

Cordialement
KD

 

[Polo34]

Re : pb de conversion cellule texte en date

Bonjour KenDev et bonjour le forum

Merci pour ta réponse et afin de compléter mon pb voici un exemple de cellules émanant de mon fichier CSV de données initiales que je souhaite traiter.

Tu constateras que les cellules ne sont pas considérées comme "heure" mais comme "texte" car il n'est pas possible d'effectuer des calculs sur celles ci

Aussi quand je veux extraire mes données par macro et les additionner, j'obtiens une valeur vide avec incompatibilité de type. et la fonction cdate ne marche pas.

Aussi je suis preneur de toutes astuces me permettant de transformer ces cellules en heure.

Merci encore

Polo

 

[KenDev]

Re : pb de conversion cellule texte en date

Bonjour Polo,

Une fonction personnalisée pour additionner :

Function SomHTxt$(s1$, s2$)
Dim t&(1 To 2, 1 To 3), Rt&
t(1, 1) = Left(s1, Len(s1) - 6): t(2, 1) = Left(s2, Len(s2) - 6)
t(1, 2) = Left(Right(s1, 5), 2): t(2, 2) = Left(Right(s2, 5), 2)
t(1, 3) = Right(s1, 2): t(2, 3) = Right(s2, 2)
Select Case t(1, 3) + t(2, 3)
    Case Is >= 60
        SomHTxt = ":" & t(1, 3) + t(2, 3) - 60
        Rt = 1
    Case Else
        SomHTxt = ":" & t(1, 3) + t(2, 3)
End Select
If Len(SomHTxt) = 2 Then SomHTxt = ":0" & Right(SomHTxt, 1)
Select Case t(1, 2) + t(2, 2) + Rt
    Case Is >= 60
        SomHTxt = ":" & t(1, 2) + t(2, 2) + Rt - 60 & SomHTxt
        Rt = 1
    Case Else
        SomHTxt = ":" & t(1, 2) + t(2, 2) + Rt & SomHTxt
        Rt = 0
End Select
If Len(SomHTxt) = 5 Then SomHTxt = ":0" & Right(SomHTxt, 4)
SomHTxt = t(1, 1) + t(2, 1) + Rt & SomHTxt
End Function

Cordialement

KD

 

[Polo34]

Re : pb de conversion cellule texte en date

Salut KenDev

Merci pour ton aide, je pense que ta macro me sera d'un grand secours

A+

Polo

 

[Staple1600]

Re : pb de conversion cellule texte en date

Bonjour le fil

Une autre piste (qui semble OK)

Tu sélectionnes tes données, tu fais Données/Convertir
à l'étape 3/3 de l'assistant de Conversion, tu coches Date : JMA
Ensuite tu appliques ce format personnalisé : [h]:mm:ss

et la tu peux additionner tes dates avec la fonction SOMME.

 

[Victor21]

Re : pb de conversion cellule texte en date

Bonsoir, Polo34, bonsoir à tous

Aussi je suis preneur de toutes astuces me permettant de transformer ces cellules en heure.

En B1 (B1 au format [h]:mm:ss à recopier vers le bas

=A1+0

ou

=A1*1

transforme ton texte en nombre.

Tu peux également copier un "0", et l'ajouter par collage spécial, addition sur ta colonne, (ou copier un "1" , collage spécial, multiplication)

 

[Staple1600]

Re : pb de conversion cellule texte en date

Re, bonjour Victor21

Victor21: c'est plus rapide avec Données/Convertir non ?

PS: t'as peut-être zappé mon précédent message?

 

[Victor21]

Re : pb de conversion cellule texte en date

Re,

Re, bonjour Victor21

Victor21: c'est plus rapide avec Données/Convertir non ?

PS: t'as peut-être zappé mon précédent message?

Je n'avais pas vu l'agrafe... mais abondance de bien ne nuit pas !
😀

 

[Polo34]

Re : pb de conversion cellule texte en date

Bonjour le forum

En fait je connaissais les actuces présentées par victor21 et Staple1600 mais mon pb était de pouvoir traiter ces données via une macro. C'est chose faite avec la proposition de KenDev.

Dans tous les cas merci à vous tous pour votre aide.

A+

Polo