Discussion :

[babybell]

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.

[babybell]

J'ai trouvé la réponse dans le forum, j'étais passé dessus.
Bonne journée à tous

[babybell]

Bonjour à tous

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

Code :

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

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

[Dzair57]

Bonjour,

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

Tu peux joindre ton fichier et ta macro?

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

[mercatog]

Cela fera l'affaire?

Code :

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

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

[babybell]

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

Merci encore à toi Dzair57.

Bonne journée