remplissage aleatoire

Y

Yeti2007

Guest

• 13 Décembre 2008

• #2

Re : remplissage aleatoire

BOnjour

il suffit d'employer la fonction Rnd, qui représente un chiffre aléatoire
entre 0 et 1 , et l'utiliser de la façon suivante :
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

entre 100 et 1000, ça donne :

901 * Rnd + 100

après , c'est de l'affectation :

for each C in Range0
C.value = 901*Rnd+100
next C

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 13 Décembre 2008

• #3

Re : remplissage aleatoire

Bonsoir a essayer:
Mettre dans tes cellules:

=ALEA()*1000

Cliquez pour agrandir...

A++++

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 13 Décembre 2008

• #4

Re : remplissage aleatoire

Bonjour à tous,
Salut Roro 🙂,

Peux-tu essayer avec :

Code:

=ALEA.ENTRE.BORNES(100;1000)

A+ à tous

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 13 Décembre 2008

• #5

Re : remplissage aleatoire

Bonjour à tous.

Le code suivant devrait convenir :

Code:

Sub CHARGER()
Dim c As Range
    Randomize
    For Each c In Selection.Cells
        c.Value = Int(100 + 901 * Rnd())
    Next c
End Sub

Utilisation :

1. Placer le code dans un module quelconque ne contenant pas de procédure nommée CHARGER.
2. Sélectionner une plage quelconque (i.e. une seule cellule, une zone ou plusieurs zones) d'une feuille quelconque.
3. Exécuter la procédure CHARGER.

Voilà, c'est tout.​

À plus tard,
ROGER2327

 

Vote positif 0 Vote négatif

R

ryadus

Guest

• 13 Décembre 2008

• #6

Re : remplissage aleatoire

Merci pour vos reponses, sa me conviens.

 

Vote positif 0 Vote négatif