Conversion de nombres

Version imprimable

15/08/2009, 07h03
babybell

Conversion de nombres

Bonjour les amis du forum

Je bute sur un problème de conversion. Je reçois des fichiers où les nombres(pourcentages) sont au format texte, je crois, car je n'arrive pas à les travailler(graphs ou autre). L'aide Windows me dit:
* Dans une cellule vide, entrez le nombre 1.
* Sélectionnez la cellule puis, dans le menu Edition, cliquez sur Copier.
* Sélectionnez la plage de nombres stockés en tant que texte que vous souhaitez convertir.
* Dans le menu Edition, cliquez sur Collage spécial.
* Sous Opération, cliquez sur Multiplication.
* Cliquez sur OK.
* Supprimez de la cellule le contenu entré à la première étape

OK, cela fonctionne bien quand je le fais en direct, à la main. Là où ça se corse, c'est que j'ai fait une macro, mais qu'avec elle, cela ne fonctionne pas. Ancun chiffre n'est remplacé.

Si quelqu'un pouvait m'aider à résoudre cette énigme, cela m'arrangerait.
15/08/2009, 07h27
babybell

J'ai trouvé la réponse dans le forum, j'étais passé dessus.
Bonne journée à tous
17/08/2009, 09h01
babybell
Bonjour à tous

Je croyais mon problème résolu, il n'en est rien. Sous Excel 2003, le code :
Code:

1 2 Columns("E:E").Select Selection.TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
fonctionne très bien, par contre sous escel 2000, j'obtiens le message :
Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet

Quelqu'un pourrait-il m'indiquer comment résoudre ce petit problème ?
Merci d'avance
17/08/2009, 20h00
Dzair57

Bonjour,

Tu peux convertir en utilisant ta macro en automatique et prendre recherche et remplacer

Tu peux joindre ton fichier et ta macro?
18/08/2009, 10h38
babybell

Bonjour Dzair57
Je joins le fichier. Je pense que je n'ai pas enlevé trop de choses, car il est plus conséquent en production.

Merci à toi.

Cela fera l'affaire?

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim plage As Range
Dim cel As Range
 
Set plage = Range("A3:L52")  'adapter
 
For Each cel In plage
    If Right(cel.Value, 1) = "%" Then
        cel.Value = CDbl(Mid(cel.Value, 1, Len(cel.Value) - 1))/100
        cel.NumberFormat = "0.00%"
    End If
Next cel

Edit: /100

18/08/2009, 12h36
babybell

Merci à toi mercatog, c'est tout à fait ce que je désirais.

Merci encore à toi Dzair57.

Bonne journée