none
Randomize - nombre généré avec virgule - Comment supprimer cette virgule ? RRS feed

  • Question

  • Bonjour,

    j'ai fait une fonction qui génère un (faux) numéro de compte en banque sur base d'un format définit.

    Mon soucis c'est que les nombres générés sont avec virgule et je n'arrive pas à supprimer cette virgule. Auriez-vous une idée?

    Merci voici mon code :

    Public Function GenererCompte() As String
            Dim NumCompte As String
            Randomize()
            NumCompte = "001-" & (Rnd() * 1000) & "-0" & (Rnd() * 10)
            Return NumCompte
        End Function

    lundi 28 mai 2012 10:11

Réponses

  • Bonjour paintbox00,
    Le 28/05/2012 12:11, paintbox00 a écrit :
    > Public Function GenererCompte() As String
    >          Dim NumCompte As String
    >          Randomize()
    >          NumCompte = "001-"&  (Rnd() * 1000)&  "-0"&  (Rnd() * 10)
    >          Return NumCompte
    >      End Function
     
    Ajoutes :
       NumCompte = Replace(NumCompte, ",", "")
     
    avant
       Return NumCompte
    --
     
    Cordialement,
     
    Jacques.
     

    Cordialement, Jacques
    • Marqué comme réponse paintbox00 lundi 28 mai 2012 11:42
    lundi 28 mai 2012 10:55

Toutes les réponses

  • Bonjour paintbox00,
    Le 28/05/2012 12:11, paintbox00 a écrit :
    > Public Function GenererCompte() As String
    >          Dim NumCompte As String
    >          Randomize()
    >          NumCompte = "001-"&  (Rnd() * 1000)&  "-0"&  (Rnd() * 10)
    >          Return NumCompte
    >      End Function
     
    Ajoutes :
       NumCompte = Replace(NumCompte, ",", "")
     
    avant
       Return NumCompte
    --
     
    Cordialement,
     
    Jacques.
     

    Cordialement, Jacques
    • Marqué comme réponse paintbox00 lundi 28 mai 2012 11:42
    lundi 28 mai 2012 10:55
  • Bonjour Jacques 

    en effet cela fonctionne. Je ne connaissais pas cette fonction.

    Un grand merci !

    lundi 28 mai 2012 11:41