Discussion :

[sambrook]

Bonjour,

je n'arrive pas a convertir un String en nombre

voici mon code mais ca marche pas

Code :

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

1
2
3
4
5
6
7
8
Public Sub convertir()
 
 
With Sheets(Feuil1)
.cell(1, 16).Value = CCur(.cell(1, 16).Value)
End With
 
End Sub

l'erreur qque 'ai "incompatible du code"

c'est la cellule que je veux convertir
+00000038450.56
et le resultat que je veux avoir apres convertion
38450,56

Merci pour votre aide

[QuestVba]

Bonjour

As-tu essayer

Code :

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

x = Val(Cells(1, 16).Value)

[sambrook]

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub convertir()
 
 
With Sheets(Feuil1)
.cell(1, 16).Value = Val(Cells(1, 16).Value)
End With
 
 
End Sub

avec ce code aussi la meme erreur de type 13 "incompatiblité du code"

[QuestVba]

Re

Attention "" et Cells

Code :

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

1
2
3
4
5
Public Sub convertir()
With Sheets("Feuil1")
.Cells(1, 16).Value = Val(Cells(1, 16).Value)
End With
End Sub

[sambrook]

Merci bcp pour ta réponse

le code il marche sur les cases de ce genre +00000014804.00

pour convertir ce genre de case

de 003.813027 "format string"

il me retourne que deux chiffres apres le virgule c'a dire 3,81

j'ai essayé .NumberFormat = "*,*"

mais ça donne rien

stp si ta une solution à ce genre de format n'hesite sur tout pas j'ai essayé CDbl et CCur

Code :

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

1
2
3
4
5
6
7
Public Sub convertir()
 
With Sheets("Feuil1")
.Cells(13, 16).Value = CDbl(Cells(13, 16).Value)
 
End With
End Sub

ça retourne l'erreur de incompatibilité de type

Encore Merci bcp

[keygen08]

Bonsoir

Pour afficher 00000.0008545 sur une feuille excel, ne faut t-il pas que la cellule soit au format texte. Un changement de format sur la feuille n'est t-il pas possible ?

Le 3,81 renvoyé semble être dû a un nombre de chiffre insuffisant aprés la virgule.

En augmentant le nombre de zero aprés la virgule par vba, j'ai un résultat probant
en partant de 00000.0000008556 en "a1"

Code :

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

1
2
convertir()
Cells(1, 1).Value = Format((Cells(1, 1)), "0.000000000000")

La cellule "a1" m'indique 0.00
mais la barre de fonction m'affiche le chiffre reel de 0.0000008556