La fonction VBA CDec permet de réaliser une macro pour convertir une chaine textuelle en nombres décimaux.
La fonction CDec
La fonction VBA CDec suit la syntaxe suivante :
CDec(variable)
Exemple de macro avec CDec
La macro
Sub macro1()
Dim c As Range 'Variable
For Each c In Range("A1:A5") 'Colonne
ActiveCell.Offset(0, 0).FormulaR1C1 = _
CDec(c)ActiveCell.Offset(1, 0).Select
Next c
End Sub
Les données sources
| A | B | C | D | E | |
|---|---|---|---|---|---|
| 1 | 1,2365645 | ||||
| 2 | 10 | ||||
| 3 | 25,224554 | ||||
| 4 | 20,44545 | ||||
| 5 | 16 |
Le résultat
| A | B | C | D | E | |
|---|---|---|---|---|---|
| 1 | 1,2365645 | 1,2365645 | |||
| 2 | 10 | 10 | |||
| 3 | 25,224554 | 25 | |||
| 4 | 20,44545 | 20 | |||
| 5 | 16 | 16 |