Convertir une string en double

[PtitGremy]

Bonjour à tous,

J'ai un petit soucis, j'ai une feuille Excel dans laquelle je marque "12:40:40" (comme une heure) et quand je fait un TypeName j'obtiens un double.
Cependant lorsque j'ai "GMT Start : 12:40:40" et que je fais une extraction du "12:40:40" j'obtiens un type string.

Comment je peux faire pour que le "12:40:40" extrait soit de type double?

Merci d'avance

 

[Pierrot93]

Re : Convertir une string en double

Bonjour,

essaye peut être la fonction vba "CDbl"... sans plus de détails difficile d'en dire plus..

bon après midi
@+

 

[PtitGremy]

Re : Convertir une string en double

Bonjour,

Pour être plus clair je mets le code que j'ai fait et le classeur correspondant.

Dim sta, sto As Double
Dim GMTsta, GMTstp As Double

'---On cherche le type des cellules E1 et E2
sta = Cells(1, 5)
sto = Cells(2, 5)

Cells(1, 6) = TypeName(sta)
Cells(2, 6) = TypeName(sto)

Cells(1, 8) = sto - sta


'---On cherche le type des cellules tronquées A1 et A2
GMTsta = Cells(1, 1)
GMTsta = Mid$(GMTsta, 12, 8)
GMTsta = CDbl(GMTsta)

GMTsto = Cells(2, 1)
GMTsto = Mid$(GMTsto, 11, 8)
GMTsto = CDbl(GMTsto)

Cells(1, 2) = TypeName(GMTsta)
Cells(2, 2) = TypeName(GMTsto)

 

[Modeste geedee]

Re : Convertir une string en double

Bonsour®
sans autre indication des données réellement existantes ...

=1*SUBSTITUE(A1;"GMT Start : ";"")

 

[Pierrot93]

Re : Convertir une string en double

Bonjour,


pas tout compris de ce que tu recherches à faire avec le code que tu donnes... regarde peut être ceci, sil cela peut t'aider à avancer.. pas sûr...

MsgBox Split(Range("A1").Value)(3)

bonne journée
@+

 

[PtitGremy]

Re : Convertir une string en double

En fait ce que je cherche a faire c'est une opération entre les GMT start et stop, en A1 et A2 ce sont deux cellules que je récupère d'un autre fichier et quand j'extrait les heures ça me donne une string et donc je peux pas faire d'opération avec.

Les données a droite sont pour montrer que ça marche si j'écris directement les heures (on voit que la différence des deux est de 50secondes)

 

[Pierrot93]

Re : Convertir une string en double

Re,

regarde ceci, cellule de destination doit être au format "heure" :

Range("F1") = CDate(Split(Range("A2").Value)(3)) - CDate(Split(Range("A1").Value)(3))

 

[PtitGremy]

Re : Convertir une string en double

Merci Pierrot93,

Ca marche niquel 🙂 j'avais pas régler la cellule sur le format heure. Merci beaucoup à la communauté
C'est cool j'apprend des nouvelles fonctions qui sont bien pratiques 🙂

 

[Pierrot93]

Re : Convertir une string en double

Re,

code proposé fonctionne chez moi... mais comme indiqué, la cellule de destination doit être au format HEURE

 

[Modeste geedee]

Re : Convertir une string en double

Bonsour®

attention à la déclaration des variables !!!

Sub Bouton1_Clic()
Dim sta As Double, sto As Double
Dim GMTsta As Double, GMTstp As Double
' chaque variable doit etre typée sinon par défaut=variant
'---On cherche le type des cellules E1 et E2
sta = Cells(1, 5)
sto = Cells(2, 5)
Cells(1, 6) = TypeName(sta)
Cells(2, 6) = TypeName(sto)
Cells(1, 8) = sto - sta


GMTsta = TimeValue(Right(Cells(1, 1), 8))
GMTstp = TimeValue(Right(Cells(2, 1), 8))
Cells(1, 9) = GMTstp - GMTsta
End Sub