Hasard + Hasard

[guy72]

Bonjour,
Avec le code suivant, je peux choisir au hasar un mot en colonne A et les 10 cellules de droite puis de copier ce mot en M1 et les 10 autres cellules à la suite à droite.
Par contre je souhaiterais mettre en B4 de la feuille "Essai" un mot pris (aussi au hasard) dans les 10 cellules de droite.

Merci de votre aide
Guy

 

[Odesta]

Re : Hasard + Hasard

Bonjour

En rajoutant un critère de colone comme ceci :

Sub Start()
Dim Tirage!, i%, tmp(0, 10)
   Randomize
   Tirage = Int(Rnd() * 4 + 1)
   Tirage_Droite = Fix(Rnd() * 6)
   
   With Sheets("Liste")
      For i = 0 To 10
         tmp(0, i) = Application.WorksheetFunction.Index(.Range("A1:A4").Offset(0, i), Tirage)
      Next i
      .Range("M1").Resize(1, 11).Value = tmp
      [B4].Value = Sheets("Liste").Cells(1, 14 + Tirage_Droite).Value
   End With
End Sub

Cdt
olivier

 

[Staple1600]

Re : Hasard + Hasard

Bonsoir à tous

guy72:
Tu pouvais continuer dans le fil initial non ?
https://www.excel-downloads.com/threads/une-serie-de-cellules-au-hasard.147987/
Ça n'aurait pas mangé de pain 🙄

 

[guy72]

Re : Hasard + Hasard

Bonsoir à tous

guy72:
Tu pouvais continuer dans le fil initial non ?
https://www.excel-downloads.com/threads/une-serie-de-cellules-au-hasard.147987/
Ça n'aurait pas mangé de pain 🙄

Bonjour,
Désolé
Guy

 

[guy72]

Re : Hasard + Hasard

Bonjour

En rajoutant un critère de colone comme ceci :

Sub Start()
Dim Tirage!, i%, tmp(0, 10)
   Randomize
   Tirage = Int(Rnd() * 4 + 1)
   Tirage_Droite = Fix(Rnd() * 6)
   
   With Sheets("Liste")
      For i = 0 To 10
         tmp(0, i) = Application.WorksheetFunction.Index(.Range("A1:A4").Offset(0, i), Tirage)
      Next i
      .Range("M1").Resize(1, 11).Value = tmp
      [B4].Value = Sheets("Liste").Cells(1, 14 + Tirage_Droite).Value
   End With
End Sub

Cdt
olivier

Bonjour,
Ok, parfait
Merci de votre aide
Guy

 

[guy72]

Re : Hasard + Hasard

Bonjour,
Par à port au code précédent.
Je souhaiterais pouvoir utiliser les 2 hasards en 2 macros.

Schématiquement : Cette macro divisée en 2 macros.
1)- une qui colle au hasard en feuille"Liste".
2)- une qui colle au hasard un mot de N1 à V1 en B4 de la feuille "Essai".


Merci de votre aide.
Spool

 

[guy72]

Re : Hasard + Hasard

Bonjour,
En bidouillant un peu, je crois avoir trouvé.

Sub Bouton_1()
Dim Tirage!, i%, tmp(0, 10)
Randomize
Tirage = Int(Rnd() * 4 + 1)
With Sheets("Liste")
For i = 0 To 10
tmp(0, i) = Application.WorksheetFunction.Index(.Range("A1:A4").Offset(0, i), Tirage)
Next i
.Range("M1").Resize(1, 11).Value = tmp
[B4].Value = Sheets("Liste").[N1].Value
End With
End Sub


Sub Bouton_2()
[B5].ClearContents
Dim Tirage!, i%, tmp(0, 10)
Randomize
Tirage_Droite = Fix(Rnd() * 6)
With Sheets("Liste")
[B4].Value = Sheets("Liste").Cells(1, 14 + Tirage_Droite).Value
End With
End Sub

Cordialement
Guy