XL 2010 Une fonction personnalisée (simple) qui bugge

[Magic_Doctor]

Bonsoir à tous,

J'ai bricolé une fonction qui me renvoie aléatoirement un item d'un array :

Function Fleur$()

Dim MaListeDeFleurs, nb As Byte

    MaListeDeFleurs = Array("marguerite", "rose", "tulipe", "lavande", "jasmin", "narcisse", _
    "pétunia", "pâquerette", "rhododendron", "mburucuyá", "freesia", "lobelia", "tournesol", _
    "muguet", "violette", "glycine", "nénuphar")

    nb = UBound(MaListeDeFleurs) + 1

    Fleur = MaListeDeFleurs(Rnd * nb)

End Function

Elle fonctionne jusqu'au moment où elle plante et je me demande pourquoi.
Comment la corriger ?

 

[Dranreb]

Bonsoir.
Ceci va mieux :
Fleur = MaListeDeFleurs(Int(Rnd * nb))

 

[mapomme]

Bonjour @Magic_Doctor 🙂, @Dranreb 🙂

Elle fonctionne jusqu'au moment où elle plante

ça j'aime bien et en plus c'est souvent le cas 😉

 

[Magic_Doctor]

Bonsoir Dranreb, mapomme,

Merci, maintenant ça marche sans surprises.

 

[dysorthographie]

Bonjour,
Ce qui n'arrive jamais en revanche c'est de planté jusqu'à ce que ça marche!

La perceverance ça finit toujours par payer.

Comme le disaient les chadocks plus ça plante plus ça a de chances de marcher !