Macro pour convertir en numerique

[Cazinos]

Bonjour,


J'ai une série de chiffre en texte que je voudrais convertir en numérique
Je cherche à faire cette conversion avec une macro
La macro doit être capable de convertir uniquement les cellules que je selectionne

Merci

 

[ROGER2327]

Re : Macro pour convertir en numerique

Suite...

Une autre procédure (testée) :​

Sub tutu()
Dim oPlg As Range
    For Each oPlg In Selection.Areas
        oPlg.Value = oPlg.Value
    Next
End Sub

ROGER2327
#5814

Vendredi 6 Palotin 139 (Sainte Oneille, gourgandine - fête Suprême Quarte)
6 Floréal An CCXX, 3,4857h - ancolie
2012-W17-3T08:21:57Z

 

[Mr Cobb]

Re : Macro pour convertir en numerique

Bonjour,

Voici une macro testé sur ton exemple et fonctionnel :

Sub Numérique()

Application.Calculation = xlCalculationManual
Dim T As String, X, Elt As Variant, K&
Dim Rg As Range, C As Range
X = xlNumberAsText
With ActiveSheet
K = Cells(65536, 3).End(xlUp).Row
Set Rg = .Range("A:H")
On Error Resume Next
For Each C In Rg
With C
If C <> vbNullString Then
T = C.Value
For Each Elt In Array(" ", Chr(160))
T = Replace(T, " ", "")
Next
T = Replace(T, ".", Format(0, "."))
.NumberFormat = "General" 'Standard
.Value = CDbl(T)
End If
End With
Next
End With
Set Rg = Nothing
Application.Calculation = xlCalculationAutomatic

End Sub

Cordialement

 

[Cazinos]

Re : Macro pour convertir en numerique

Bonsoir,

Merci pour vos réponses
Bon travail!

Cazinos