Macro pour convertir en numerique

Cazinos

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Re : Macro pour convertir en numerique

Suite...


Une autre procédure (testée) :​
VB:
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

XLDnaute Nouveau
Re : Macro pour convertir en numerique

Bonjour,

Voici une macro testé sur ton exemple et fonctionnel :

Code:
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
 

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 845
Messages
2 092 770
Membres
105 529
dernier inscrit
StarExcel