Convertir une string en double

Pierrot93

XLDnaute Barbatruc

• 18 Octobre 2012

• #2

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
@+

 

Vote positif 0 Vote négatif

P

PtitGremy

Guest

• 19 Octobre 2012

• #3

Re : Convertir une string en double

Bonjour,

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

Code:

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)

 

Pièces jointes

• conversion.xlsm

  16.1 KB · Affichages: 40
• conversion.xlsm

  16.1 KB · Affichages: 46
• conversion.xlsm

  16.1 KB · Affichages: 45

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 19 Octobre 2012

• #4

Re : Convertir une string en double

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

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Octobre 2012

• #5

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...

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

P

PtitGremy

Guest

• 19 Octobre 2012

• #6

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)

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Octobre 2012

• #7

Re : Convertir une string en double

Re,

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

Code:

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

 

Vote positif 0 Vote négatif

P

PtitGremy

Guest

• 19 Octobre 2012

• #8

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 🙂

 

Dernière modification par un modérateur: 19 Octobre 2012

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Octobre 2012

• #9

Re : Convertir une string en double

Re,

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 19 Octobre 2012

• #10

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

 

Vote positif 0 Vote négatif