Création d'une fonction en vba

Bonjour
La seule solution que je vois est de créer sous Excel un cellule avec =ALEA() dans la cellule (A1)

Dans ton VBA tu fais

chiffrsaisi = Inputbox("Saisir votre chiffre", vbokonly, "1")
Calculate
'Modification de la valeur ALEA
val= range("a1")
valchois = int (val * chiffresaisi)

Et ta variable valchois est un chiffre aléatoire entre 0 et chiffrsaisi

Dispo si besoin

Nico

Bonsoir,

Tu n'as pas besoin de mettre une formule =ALEA() dans la cellule A1. VBA a une fonction Rnd qui fait la même chose

Dans ton VBA tu fais

chiffrsaisi = Inputbox("Saisir votre chiffre", vbokonly, "1")
valchois = int (Rnd * (chiffresaisi+1)) ' +1 pour avoir résultat de 0 à chiffresaisi inclus

Et ta variable valchois est un chiffre aléatoire entre 0 et chiffrsaisi
Dispo si besoin , par exemple :
msgbox "'Résultat : " & valchois

Désolé Le Pere

J'avais oublié la fonction Rnd qui est en effet meilleure

A+

Nico