Conversion de nombres écrits en chiffres vers écriture en texte

Function ConvNumberLetterWithText$(t)
t = Replace(t, ".", Mid(1 / 10, 2, 1)) 'séparateur décimal de l'ordi
For Each t In Split(Application.Trim(t)) 'l'espace est le séparateur
  If IsNumeric(t) Then t = ConvNumberLetter(CDbl(t))
  ConvNumberLetterWithText = ConvNumberLetterWithText & " " & t
Next
ConvNumberLetterWithText = Mid(ConvNumberLetterWithText, 2)
End Function

Function ConvNumberLetterWithText$(t)
Dim s, i%
t = Replace(t, ",", ".")
For Each t In Split(Application.Trim(t)) 'l'espace est le séparateur
  s = Split(t, ".")
  If IsNumeric(s(0)) Then
    If UBound(s) Then
      t = IIf(Val(s(1)), s(1), "")
      If Len(t) = 1 Then t = t & 0 'facultatif...
      For i = 1 To Len(t) 'compte les zéros
        If Mid(t, i, 1) <> "0" Then Exit For
      Next
      t = ConvNumberLetter(Val(s(0))) & " virgule " & _
        Application.Rept("zéro ", i - 1) & ConvNumberLetter(Val(t))
    Else
      t = ConvNumberLetter(Val(t))
    End If
  End If
  ConvNumberLetterWithText = ConvNumberLetterWithText & " " & t
Next
ConvNumberLetterWithText = UCase(Mid(ConvNumberLetterWithText, 2, 1)) _
  & Mid(ConvNumberLetterWithText, 3)
End Function

Function ConvNumberLetterWithText$(t, Optional Ndec As Byte = 0)
Dim s, i%
t = Replace(t, ",", ".")
For Each t In Split(Application.Trim(t)) 'l'espace est le séparateur
  s = Split(t, ".")
  If IsNumeric(s(0)) Then
    If UBound(s) Then
      If Ndec And Len(s(1)) > Ndec Then
        t = Format(Val(t), "0." & String(Ndec, "0"))
        s(0) = Left(t, Len(t) - Ndec - 1)
        s(1) = Right(t, Ndec)
      End If
      t = IIf(Val(s(1)), s(1), "")
      If Len(t) = 1 Then t = t & 0 'facultatif...
      For i = 1 To Len(t) 'compte les zéros
        If Mid(t, i, 1) <> "0" Then Exit For
      Next
      t = ConvNumberLetter(Val(s(0))) & " virgule " & _
        Application.Rept("zéro ", i - 1) & ConvNumberLetter(Val(t))
    Else
      t = ConvNumberLetter(Val(t))
    End If
  End If
  ConvNumberLetterWithText = ConvNumberLetterWithText & " " & t
Next
ConvNumberLetterWithText = UCase(Mid(ConvNumberLetterWithText, 2, 1)) _
  & Mid(ConvNumberLetterWithText, 3)
End Function

Private Sub CommandButton1_Click()
Dim Ndec As Byte, tablo, resu$(), i&
Ndec = [B1] 'nombre maximum de décimales
tablo = Range("A3", Range("A" & Rows.Count).End(xlUp)(3))
ReDim resu(1 To UBound(tablo), 1 To 1)
For i = 1 To UBound(tablo)
  resu(i, 1) = ConvNumberLetterWithText$(tablo(i, 1), Ndec)
Next
[B3].Resize(UBound(resu)) = resu
Rows(UBound(resu) + 3 & ":" & Rows.Count).Delete
End Sub

Function Espaces(t As Variant) As Variant
'insère des espaces entre les textes et les nombres
Dim i%, x$, y$
If Not IsNumeric(t) Then
  t = Replace(t, " ", "")
  For i = Len(t) - 1 To 1 Step -1
    x = Mid(t, i, 1): y = Mid(t, i + 1, 1)
    If IsNumeric(x) And Not IsNumeric(y) _
      Or IsNumeric(y) And Not IsNumeric(x) Then _
        t = Application.Replace(t, i + 1, 0, " ")
  Next
  t = Replace(Replace(t, " .", "."), ". ", ".")
  t = Replace(Replace(t, " ,", ","), ", ", ",")
End If
Espaces = t
End Function

Function Espaces(t As Variant) As Variant
'insère des espaces entre les textes et les nombres
Dim i%, x$, y$
If Not IsNumeric(t) Then
  t = Application.Trim(t) 'SUPPRESPACE
  For i = Len(t) To 2 Step -1
    x = Mid(t, i - 1, 1): y = Mid(t, i, 1)
    If IsNumeric(x) And Not IsNumeric(y) _
      Or IsNumeric(y) And Not IsNumeric(x) Then _
        t = Application.Replace(t, i, 0, " ")
  Next
  t = Replace(t, " . ", ".")
  t = Replace(t, " , ", ",")
  t = Application.Trim(t)
End If
Espaces = t
End Function

Private Sub CheckBox1_Click()
Dim t$
t = Espaces(ListBox1)
If CheckBox1 Then t = ConvNumberLetterWithText(t, Val(ComboBox1))
t = IIf(OptionButton1, UCase(t), IIf(OptionButton2, LCase(t), t))
If OptionButton3 Then t = UCase(Left(t, 1)) & Mid(t, 2)
If OptionButton4 Then t = Application.Proper(t)
TextBox1 = t
End Sub

Private Sub ComboBox1_Change()
CheckBox1_Click
End Sub

Private Sub ListBox1_Click()
CheckBox1_Click
End Sub

Private Sub OptionButton1_Change()
CheckBox1_Click
End Sub

Private Sub OptionButton2_Change()
CheckBox1_Click
End Sub

Private Sub OptionButton3_Change()
CheckBox1_Click
End Sub

Private Sub UserForm_Initialize()
Dim i&
ComboBox1.AddItem "-"
For i = 1 To 10
  ComboBox1.AddItem i
Next
ComboBox1 = "-"
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
  If Cells(i, 1) <> "" Then ListBox1.AddItem Cells(i, 1)
Next
End Sub

Private Sub CheckBox1_Click()
Dim t$
t = Espaces(ListBox1)
If CheckBox1 Then t = ConvNumberLetterWithText(t, Val(ComboBox1))
t = IIf(OptionButton1, UCase(t), IIf(OptionButton2, LCase(t), t))
If OptionButton3 Then t = UCase(Left(t, 1)) & Mid(t, 2)
If OptionButton4 Then t = Application.Proper(t)
TextBox1.AutoSize = True
TextBox1 = t
TextBox1.AutoSize = False
If TextBox1.Width < 388 Then TextBox1.Width = 388
Me.Width = TextBox1.Width + 14
End Sub