Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Instruction incorrecte à l'exterieur d'une procedure

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
 

Venture14

XLDnaute Nouveau
Re salut. Du coup, est ce que le fichier que je t'ai proposé fonctionne? Je pense que c'est le meme code. Formule associée a une fonction. @+ Lolote83
oui c'est résolu mais je ne sais pas comment incrire que c'est résolu comme problème! Par contre, avec ton code ça ne marchait pas. Peut-être une erreur de part, je suis vraiment débutante. Je n'avais jamais ouvert de module et insérer un code avant.
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…