macro convertir en nombre

[ju89]

Bonjour,

comme l'indique le titre, je souhaiterai convertir des texte en nombre, j'ai donc écrit ceci dans ma macro

For Each ws In ActiveWorkbook.Worksheets
With ws.Range("a3:k100")
.NumberFormat = "#,##0.??"
.Value = .Value
End With

il y a apparemment une erreur a la ligne .numberformat
j'ai essayer plusieurs formule mais ça bug a chaque fois
sachant que j'ai des nombre décimaux et d'autre entier

je vous joint un petit extraire de mon tableau. les nombre sont issu d'une page HTLM et donc non reconnu par excel, j'ai donc utilisé la fonction =SUBSTITUE(A4;CAR(160);"") pour enlever tout les espace inutile. il faut maintenant les convertir en nombre.

merci de votre aide

 

[Vilain]

Re : macro convertir en nombre

Bonjour,

pas besoin de macro.
il suffit d'écrire le nombre 1 quelque part, de le copier, puis de faire un collage spécial sur la zone a transformé et de cocher la case "multiplication".

A plus

 

[ju89]

Re : macro convertir en nombre

Merci, En effet ça marche, je ne connaissais pas cette technique, mais ça ne marche qu'a la main, en macro ça ne fonctionne pas. voici ce que ça me donne:

Sub Macro7()
'
' Macro7 Macro
'

'
Range("Q39").Select
ActiveCell.FormulaR1C1 = "1"
Range("Q39").Select
Selection.Copy
Range("A3:K100").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-18
Range("Q39").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub