Conversion d'une sélection de cellules en nombres

Bonjour à vous, Bonjour au Forum,

Testé.

Code:

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Sub transfo_num()
 
Dim c As Range
For Each c In Worksheets("Test").Range("F1:F3")
        With c
                .Offset(0, 1).Value = misennum(.Text)
        End With
Next c
End Sub

avec

Code:

1
2
3
4
5
6
7
8
9
Public Function misennum(valtext As String) As Double
 
Dim s As Variant
 
s = Split(valtext, ",")
 
misennum = Format(s(0) + 0, "@") + s(1) / 100
 
End Function