Lettres aléatoires

[Eric]

Bonjour

Je souhaite obtenir en colonne A une suite de lettres aléatoires qui ne seront que des 'R' ou des 'N' avec une fréquence d'apparition toutes les 3 secondes grâce à une macro
Merci d'avanc pour votre aide
Eric

 

[myDearFriend!]

Bonsoir Eric,

Tu peux essayer les 2 procédures ci-dessous :

Option Explicit
Dim vTemp As Variant

Sub GoAlea()
Dim L As Long
      vTemp = Now + TimeValue('00:00:01')
      Application.OnTime vTemp, 'GoAlea'
      Randomize
      With Sheets('Feuil1')
            L = .Range('A65536').End(xlUp).Row + 1
            .Cells(L, 1).Value = IIf(Int(2 * Rnd + 1) > 1, 'R', 'N')
      End With
End Sub

Sub StopAlea()
      Application.OnTime vTemp, 'GoAlea', , False
End Sub

Cordialement,

 

[Eric]

Merci bien myDearFriend

J'ai copcol ta première proposition qui marche impec !
J'ai aussi crée un bouton pour la mise en route de la macro , mais impossible d'arrêter le défilement des lettres après
Peut-tu me donner une solution pour mise en route et arrêt à volonté ?

Merci encore
Eric

 

[myDearFriend!]

Re Eric,

De la même manière que tu as fait lorsque tu as rattaché ton bouton à la procédure 'GoAlea', je pense qu'un autre bouton lié à la procédure 'StopAlea' serait une bonne idée... 😉

Ou bien, tu peux essayer d'utiliser un bouton bascule (ToggleButton) qui permettrait de gérer les deux :

Private Sub ToggleButton1_Click()
      If ToggleButton1.Value Then
            GoAlea
      Else
            StopAlea
      End If
End Sub

Cordialement,

 

[Eric]

Bonjour myDearFriend

Je suis un gros nul et je n'arrive pas à mettre bout à bout tes 2 propositions avec le bouton à bascule :S

Option Explicit
Dim vTemp As Variant

Sub GoAlea()
Dim L As Long
vTemp = Now + TimeValue('00:00:01')
Application.OnTime vTemp, 'GoAlea'
Randomize
With Sheets('Feuil1')
L = .Range('A65536').End(xlUp).Row + 1
.Cells(L, 1).Value = IIf(Int(2 * Rnd +
1) > 1, \\'R\\', \\'N\\')
End With
End Sub

Sub StopAlea()
Application.OnTime vTemp, 'GoAlea', , False
End Sub

Private Sub ToggleButton1_Click()
If ToggleButton1.Value Then
GoAlea
Else
StopAlea
End If
End Sub

Je dois tout copier comme ça ???

Désolé 😱

 

[myDearFriend!]

Bonjour Eric, le Forum.

Ci-joint un exemple utilisant le bouton bascule...

Cordialement, [file name=PourEric.zip size=9420]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourEric.zip[/file]

 

[Eric]

Merci bien myDearFriend

Excuse moi pour cette réponse tardive, jt absent 2 jours
Ca marche impec 😉 !

A bientôt