Recomposer un nombre à partir de ses parties entières et décimales [Résolu]

[jppeltier]

Bonjour,

J'ai deux chaînes "123" et "45". Je souhaite créer le Double "123,45" quel que soit l'environnement de travail. Pour résumer mon soucis, un CDbl("123" & "," & "45") ne fonctionnera pas en environnement anglo-saxon qui attend "123.45".

Existe-t-il une fonction à la DateSerial(an, mois, jour) qui me permettrait de recomposer un Double à partir de ses parties entière et décimale ?

Merci,

JPP.

[kiki29]

Salut, a voir ?

Code :

1
2
3
4
5
6
7
Option Explicit
 
Sub Tst()
Dim sStr As String
    sStr = Range("A1") & Application.DecimalSeparator & Range("B1")
    Range("C1") = sStr
End Sub

[Eskehnach]

J'ai une solution à la con.
Par contre cela suppose que tes valeurs après la virgule soit fixe

Enfin voici rapidement ce que je ferais
en gros je multiplie le nombre après la virgule par 0.01 que j'ajoute à ma valeur entière et je passe de string en float.
Je suis sorti un peu de vb donc j'ai plus les noms de variable en tete

Code :

1
2
3
4
5
6
7
8
9
 
Dim str1 as string
Dim str2 as string
Dim result double
 
str1=10
str2=55
 
result = Cint(str1)+(Cint(str2)*0.01)

Et donc result vaudrais 10.55

[jppeltier]

Envoyé par kiki29

Salut, a voir ?

Code :

Bonjour, très séduisant en effet mais malheureusement :

<Object doesn't support this property or method>

Pour ma part, ça fonctionne avec :

Code :

Application.International(xlDecimalSeparator)

Je suis sur Mac Excel 2011...

JPP.