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

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

Magic_Doctor

XLDnaute Barbatruc
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 ?
 
Dernière édition:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…