Discussion :

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

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

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 :

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

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]

Salut, a voir ?

Code :

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

1
2
3
[...]
    sStr = Range("A1") & Application.DecimalSeparator & Range("B1")
[...]

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

<Object doesn't support this property or method>

Pour ma part, ça fonctionne avec :

Code :

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

Application.International(xlDecimalSeparator)

Je suis sur Mac Excel 2011...

JPP.