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

[sambrook]

Bonjour,

merci bcp pour vos reponse,

effectivement, que ce soit lavec val ou en avec le changement de format, l'affichage est toujours le meme 0.00 mais c'est vrai qu'en barre fonction vous pouvez trouver tout le numero

donc le probleme est resoulu merci tout le monde