Bouton pour valeur aléatoire

Bonjour,

Dernièrement, j'ai posté un message pour avoir une macro qui me générait dans 3 cellules soit un 2, soit un 3.

Voici cette macro :

Sub Tirage()
Dim Ligne As Long
Dim I As Integer

  Randomize
  'Set Sh = ActiveSheet.Shapes(Application.Caller)
  Ligne = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
  For I = 2 To 4
    ' Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
    Cells(Ligne, I) = Int((3 - 2 + 1) * Rnd + 2)
  Next I
End Sub

Aujourd'hui, j'aurais besoin de la même chose, mais au lieu de générer un 2 ou un 3, il faudrait que ce soit un 0 ou un 1.

Pourriez-vous m'aider ??

Je vous remercie par avance.

Bonjour,

Par fonction de feuille de calcul

=ALEA.ENTRE.BORNES(0;1)

Par fonction personnalisée VBA

Public Function Alea(Cellule)
    Alea = Application.WorksheetFunction.RandBetween(0, 1)
End Function

Bonjour,

Je te remercie pour ta réponse.

Cependant, je t'avoue ne pas maîtriser VBA.

Pourrais-tu m'indiquer ce que je dois modifier dans le code que j'ai donné ?

Je te le redonne :

Sub Tirage()
Dim Ligne As Long
Dim I As Integer

  Randomize
  'Set Sh = ActiveSheet.Shapes(Application.Caller)
 Ligne = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
  For I = 2 To 4
    ' Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
   Cells(Ligne, I) = Int((3 - 2 + 1) * Rnd + 2)
  Next I
End Sub

Je te remercie de ton aide

Re,

Envoies ton fichier SVP

Bonjour,

Encore merci pour ton aide.

Voici le fichier en question :

Bonjour,

Voir fichier modifié.

Option Explicit
Sub tirage_1()
Dim Ligne As Long
Dim I As Integer

    Randomize
    Ligne = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
    For I = 2 To 4
        Cells(Ligne, I) = Application.RandBetween(0, 1)
    Next I
End Sub

Bonjour,

J'ai testé et ça fonctionne.

tu es un chef, merci beaucoup pour ton aide