Nb aleatoire

[Nem]

Bonjour tous le monde
comment dois je faire pour faire une macro qui me donne des nombre au hasard de 1 à 90 a savoir:
2 unites ; 2 dizaines ; 2 vingtaines ; 2 trentaines .......2 quatrevingtaines et ensuite qu'il se place automatiquement dans des cellules
unite:dizaine:vingtaine...etc
merci
nem

 

[Ljoulin]

lu,

Regarde dans l'aide VBA dans "ALEA" ou utilise For, Each

Bye

 

[manu30]

Salut Nem
Regarde cette piece Jointe faite un un pro Ti
sur les Nb Aleatoire

Si ca peut t aider.

A +

 

[Myta]

Salut le Forum

Une petite macro qui fait ce que tu demandes

Option Explicit
Sub aleatoire()
Dim i As Byte
Dim Nbre As Byte
For i = 1 To 9
Cells(i, 1) = Int((9 * Rnd) + (i - 1) * 10 + 1)
Saut:
Nbre = Int((9 * Rnd) + (i - 1) * 10 + 1)
If Nbre = Cells(i, 1) Then GoTo Saut
Cells(i, 2) = Nbre
Next i
End Sub

Mytå