Problème Conversion d'un nombre en devise - Macro

Question

Bonjour, 

J'ai un petit soucis avec une conversion. 
Je vais mettre le fichier en ligne, ca sera plus facile à comprendre.

Il s'agit de la colonne C intitulée montant.
Les cases C11 à C45 sont figées dans un type texte. Lorsque je modifie le type en devise, ou nombre, rien ne se passe. La cellule passe bien en "devise", mais pas de modification du format de la case.

 Il y a un petit coin vert dans la cellule (en haut à gauche) qui me propose des solutions. Celles ci fonctionnent, mais ne s'enregistrent pas dans la macro. Cette action, qui corrige mon problème, ne semble pas pouvoir etre traduite en VBA...

Pouvez vous m'indiquer comment je peux résoudre mon problème ?.
Merci beaucoup

Ci joint le lien du document

	https://www.cjoint.com/?3GlsqlaPakP


Configuration: Windows 7 / Firefox 22.0

Frenchie83 · Answer

Bonjour 

copier cette ligne

Selection.NumberFormat = "#,##0.00 \$"

cdlt

Frenchie83 · Answer

Re

Ceux sont des données que tu as copiées d'un autre fichier. pour cela il ne reconnaît pas le format
voici la correction

Sub testing123()
    nbl = Range("A65536").End(xlUp).Offset(1, 0).Row
    For i = 2 To nbl
        Cells(i, 3).Value = CDbl(Cells(i, 3).Value)
        Cells(i, 3).NumberFormat = "#,##0.00 \$"
    Next
End Sub
cdlt

eriiic · Answer

Bonjour,

Les cases C11 à C45 sont figées dans un type texte 
Il faut les transformer en numérique d'abord.

Si ton séparateur décimal est le . sélectionner ta plage et Remplacer , par .
Sinon copier une cellule vide, sélectionner ta plage et collage spécial addition.

eric

Maxxikilla · Answer

Oui exactement, c'est copié depuis une autre feuille excel.
Effectivement, ta solution fonctionne du tonerre !!

Je n'avais pas pensé au collage spécial.

Ces deux solutions fonctionnent en tout cas. Merci pour votre aide

Merci à tous les deux
A très bientot !

Problème Conversion d'un nombre en devise - Macro

4 réponses

Discussions similaires

Newsletters