Venture14
XLDnaute Nouveau
Bonjour,
J'essaie de créer une macro qui tranformera le nombre en toute lettre ( ex: 210= deux cent dix). Je mets ce code et ça incrit instruction incorrecte à l'extérieur d'une procédure. Est-ce que quelqu'un peut me dire pourqoi s.v.p?
Select Case byCent
Case 0
ConvNumCent = strReste
Case 1
If byReste = 0 Then
ConvNumCent = "cent"
Else
ConvNumCent = "cent " & strReste
End If
Case Else
If byReste = 0 Then
ConvNumCent = TabUnit (byCent) & " cent"
Else
ConvNumCent = TabUnit (byCent) & " cent " & strReste
End If
End Select
End Function
Private Function Nz (strNb As String) As String
If strNb <> " zéro" Then Nz = strNb
End Function
J'essaie de créer une macro qui tranformera le nombre en toute lettre ( ex: 210= deux cent dix). Je mets ce code et ça incrit instruction incorrecte à l'extérieur d'une procédure. Est-ce que quelqu'un peut me dire pourqoi s.v.p?
Select Case byCent
Case 0
ConvNumCent = strReste
Case 1
If byReste = 0 Then
ConvNumCent = "cent"
Else
ConvNumCent = "cent " & strReste
End If
Case Else
If byReste = 0 Then
ConvNumCent = TabUnit (byCent) & " cent"
Else
ConvNumCent = TabUnit (byCent) & " cent " & strReste
End If
End Select
End Function
Private Function Nz (strNb As String) As String
If strNb <> " zéro" Then Nz = strNb
End Function