Création d'une fonction en vba
audreyb59
-
nicodoudou Messages postés 48 Date d'inscription Statut Membre Dernière intervention -
nicodoudou Messages postés 48 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
On me demande d'écrire en VBA une fonction aleaEntre0etN qui, étant donné un entier positif , renvoie un entier entre zéro et l'entier donné.
Pouvez vous m'aider?
Un coup de pouce suffirait.
Merci d'avance.
On me demande d'écrire en VBA une fonction aleaEntre0etN qui, étant donné un entier positif , renvoie un entier entre zéro et l'entier donné.
Pouvez vous m'aider?
Un coup de pouce suffirait.
Merci d'avance.
A voir également:
- Création d'une fonction en vba
- Fonction si et - Guide
- Creation compte gmail - Guide
- Création site web - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Création compte google - Guide
3 réponses
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
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
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
