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

Magic_Doctor · 3 Septembre 2020

Bonsoir à tous,

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

VB:

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 · 3 Septembre 2020

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

mapomme · 3 Septembre 2020

Bonjour @Magic_Doctor , @Dranreb

Magic_Doctor à dit:
Elle fonctionne jusqu'au moment où elle plante

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

Magic_Doctor · 3 Septembre 2020

Bonsoir Dranreb, mapomme,

Merci, maintenant ça marche sans surprises.

dysorthographie · 4 Septembre 2020

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 !

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

Magic_Doctor

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Magic_Doctor

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro