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

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

Privacy & Transparency

Privacy & Transparency