XL 2019 gérérer un résultat

carber · 7 Juillet 2021

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 · 8 Juillet 2021

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

Code:

=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 · 8 Juillet 2021

Cette macro le fait :

VB:

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 · 9 Juillet 2021

Dranreb à dit:

Cette macro le fait :

VB:

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

XL 2019 gérérer un résultat

carber

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

carber

XLDnaute Nouveau

Discussions similaires