XL 2019 gérérer un résultat

[carber]

Bonsoir
je souhaite mettre en place un fichier pour l'utilisé avec les enfants voici ce que je veux faire
j'ai 5 cellules chaque cellule comporte des données
un bouton qui l’enfant clique et ça génère une combinaison d'une donnée de chaque cellule
exemple :
Robert trousse frère lapin école
il faut que chaque fois l'enfant clique sur le bouton ça génère une nouvelle combinaison

je vous remercie par avance pour votre aide précieux

 

[Dranreb]

Bonsoir.
Du genre de celle qu'on pourrait obtenir en D15 par cette formule ? :

=INDEX(B4:B8;ALEA()*5+1)&" "&INDEX(C4:C12;ALEA()*9+1)&" "&INDEX(D4:D11;ALEA()*8+1)&" "&INDEX(E4:E12;ALEA()*9+1)&" "&INDEX(F4:F7;ALEA()*4+1)

 

[Dranreb]

Cette macro le fait :

Sub GénérerParcour()
   Dim N As Byte, TJn(0 To 4) As String
   Randomize
   For N = 0 To 4
      With Cells(3, 2 + N)
         TJn(N) = .Offset(Int(Rnd * (.End(xlDown).Row - 3)) + 1).Value
         End With: Next N
   [D15].Value = Join(TJn)
   End Sub

 

[carber]

Cette macro le fait :

Sub GénérerParcour()
   Dim N As Byte, TJn(0 To 4) As String
   Randomize
   For N = 0 To 4
      With Cells(3, 2 + N)
         TJn(N) = .Offset(Int(Rnd * (.End(xlDown).Row - 3)) + 1).Value
         End With: Next N
   [D15].Value = Join(TJn)
   End Sub

Ça fonctionne très bien
merci