Modifier un code d'un mot choisi au hasard

[guy72]

Bonjour,
Comme, je ne comprends pas grand chose dans ce "petit" code, pouvez vous m'aidez à le modifier pour avoir plusieurs solutions possibles ?
A moins qu'un seule réponse puisse faire mes différentes solutions en une seule?
Merci de votre aide
Codialement
Guy

 

[Softmama]

Re : Modifier un code d'un mot choisi au hasard

Bonjour,

Vois le code modifié, avec les explications dedans.

 

[jp14]

Re : Modifier un code d'un mot choisi au hasard

Bonjour


Ci dessous le code modifié,

Sub Bouton()
Dim Tirage!, i%, tmp(0, 3)
Dim Dl1 As Long ' dernière ligne
   Randomize
   

   With Sheets("Liste")
Dl1 = .Range("a65536").End(xlUp).Row

   Tirage = Int(Rnd() * Dl1 + 1)

      For i = 0 To 3
         tmp(0, i) = Application.WorksheetFunction.Index(.Range("A1:A" & Dl1).Offset(0, i), Tirage)
      Next i
      .Range("M1").Resize(1, 4).Value = tmp
      End With
End Sub

A tester

 

[guy72]

Re : Modifier un code d'un mot choisi au hasard

Bonjour,

Vois le code modifié, avec les explications dedans.

Bonjour,
Merci de ta réponse.
Mais quand je clic sur le "Bouton 1" En B4 de la feuille "Essai' par moment, j'ai des blancs.

 

[Softmama]

Re : Modifier un code d'un mot choisi au hasard

Bonjour,

Je ne me suis pas du tout occupé du bouton1. C'est pour ça^^
Au lieu de mettre

X = Int(14 + 9* Rnd())

Remplace le 9 par 4 si tu travailles que sur 4 colonnes

 

[guy72]

Re : Modifier un code d'un mot choisi au hasard

Bonjour


Ci dessous le code modifié,

Sub Bouton()
Dim Tirage!, i%, tmp(0, 3)
Dim Dl1 As Long ' dernière ligne
   Randomize
   

   With Sheets("Liste")
Dl1 = .Range("a65536").End(xlUp).Row

   Tirage = Int(Rnd() * Dl1 + 1)

      For i = 0 To 3
         tmp(0, i) = Application.WorksheetFunction.Index(.Range("A1:A" & Dl1).Offset(0, i), Tirage)
      Next i
      .Range("M1").Resize(1, 4).Value = tmp
      End With
End Sub

A tester

Bonjour,
Ok merci

 

[guy72]

Re : Modifier un code d'un mot choisi au hasard

Bonjour,

Je ne me suis pas du tout occupé du bouton1. C'est pour ça^^
Au lieu de mettre

X = Int(14 + 9* Rnd())

Remplace le 9 par 4 si tu travailles que sur 4 colonnes

OK, merci ça fonctionne