Nombre aléatoire dans une macro

[nico.sibille]

Bonjour,
je cherche à créer une macro avec pour but d'avoir un nombre aléatoire allant de 1 à ? (la valeur max changera à chaque fois).
Donc je souhaite avoir en D3 un nombre aléatoire compris entre 1 et C3.

Voilà j'éspère que j'ai été assez clair.
Merci.

Nicolas.

 

[skoobi]

Re : Nombre aléatoire dans une macro

Bonjour nico.sibille, bienvenue sur XLD,

formule a mettre en D3:
=ENT(ALEA() * C3) + 1

 

[kllmoon]

Re : Nombre aléatoire dans une macro

essais ceci en D3

=RAND() * (C3) + 1

Si tu ne veux pas de résultats comme 35,4454454 chang le format de ta cellule pour enlever les décimales.

 

[nico.sibille]

Re : Nombre aléatoire dans une macro

Merci pour vos réponses mais ce ne sont pas des macros. Car ça, j'ai déjà fait mais le problème c'est que dès que je change quelque chose sur la feuille, la réponse change. Moi je souhaiterai créer un bouton pour cette macro afin que ça soit moi qui décides quand ça changera car cette "formule", je vais l'avoir 10 fois sur ma feuille. Donc je créerai 10 boutons, un pour chacune.
Voilà, j'éspère que c'est plus clair.
Merci.

 

[kllmoon]

Re : Nombre aléatoire dans une macro

Fallait préciser que c'était pour un bouton... Voici ton code j'ai testé il fonctionne. En anglais mais excel traduit

Private Sub CommandButton1_Click()
monalea = Int((Range("C3").Value - 1 + 1) * Rnd + 1)
Range("A1").Value = monalea
End Sub

Tu n'as pas besoin de 10 boutons, fait juste copier ce qu'il y a entre PrivateSub et EndSub en changeant ton Range("C3") et Range("A1") pour tes nouvelles valeurs. Comme ceci :

Private Sub CommandButton1_Click()
monalea = Int((Range("C3").Value - 1 + 1) * Rnd + 1)
Range("A1").Value = monalea
'
monalea2 = Int((Range("C4").Value - 1 + 1) * Rnd + 1)
Range("A2").Value = monalea2
'
monalea3 = Int((Range("C5").Value - 1 + 1) * Rnd + 1)
Range("A3").Value = monalea3
End Sub

 

[Pierrot93]

Re : Nombre aléatoire dans une macro

Bonjour à tous

en vba, peut être comme ceci...

Randomize
Range("D3").Value = Int(Range("C3").Value * Rnd) + 1

bon après midi
@+

 

[nico.sibille]

Re : Nombre aléatoire dans une macro

Merci kilmoon, c'est super! ça marche!

 

[Pierrot93]

Re : Nombre aléatoire dans une macro

Re

pour 10 cellules tu peux faire une boucle :

Option Explicit
Sub test()
Dim i As Byte
Randomize
For i = 3 To 13
    Cells(4, i).Value = Int(Cells(3, i).Value * Rnd) + 1
Next i
End Sub

attention kllmoon, sans le "randomize" tu obtiendras les mêmes numéros à chaque ré ouverture d'excel...

@+

 

[nico.sibille]

Re : Nombre aléatoire dans une macro

merci par contre dans mon cas, ca complique énormément la chose je pense c'est pour cela que je comptais faire plusieurs boutons car:
L'idéal serait d'avoir 5 boutons :
j'ai mon nombre que je rentre en c3 et je veux un nombre aléatoire avec c3 pour limte en d3
ensuite idem je rentre en c5 et je veux un nombre... en d5

puis un autre bouton
f3 en g3
f5 en g5
un autre,
i3 en j3
i5 en j5
un autre,
l3 en m3
l5 en m5
un autre,
O3 enP3
O5 en P5

Voilà c'est donc un peu plus compliqué...!
Donc si c'est possible, c'est génial sinon, je ferai 10 boutons.
Merci beaucoup déjà...

 

[skoobi]

Re : Nombre aléatoire dans une macro

Re,

salut Pierrot ,

en reprenant le code de Pierrot:

Option Explicit
Sub test()
Dim i As Byte, Adresse As Variant
Randomize
Adresse = Array("C3", "C5", "F3", "F5", "I3", "I5", "L3", "L5", "O3", "O5")
For i = LBound(Adresse) To UBound(Adresse)
    Range(Adresse(i)).Value = Int(Range(Adresse(i)).Offset(0, 1).Value * Rnd) + 1
Next i
End Sub

 

[ROGER2327]

Re : Nombre aléatoire dans une macro

Bonjour à tous,

Peut-être une idée dans le classeur joint ?​

ROGER2327

 

[Fo_rum]

Re : Nombre aléatoire dans une macro

Salut,

et avec un double Clic ?

Je viens de voir que Roger m'a devancé.

Même idée mais autre style.

 

[nico.sibille]

Re : Nombre aléatoire dans une macro

Merci, j'ai regardé rapidement les réponses de Roger et de fo rum et je crois que je vais pouvoir les adapter.
Merci, je vous tiens au courant.

 

[Pierrot93]

Re : Nombre aléatoire dans une macro

Bonjour à tous

Dans ce cas, on peut être également utiliser un "step", et modifier comme suit :

Option Explicit
Sub test()
Dim i As Byte
Randomize
For i = 3 To 16 Step 2
    Cells(3, i + 1).Value = Int(Cells(3, i).Value * Rnd) + 1
    Cells(5, i + 1).Value = Int(Cells(5, i).Value * Rnd) + 1
Next i
End Sub

bonne journée
@+