Modifier un code d'un mot choisi au hasard

Softmama à dit:

Bonjour,

Vois le code modifié, avec les explications dedans.

Cliquez pour agrandir...

jp14 à dit:

Bonjour


Ci dessous le code modifié,

Code:

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

Cliquez pour agrandir...

Softmama à dit:

Bonjour,

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

Code:

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

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

Cliquez pour agrandir...