Générer des cellules aléatoirement

[Puff_the_magic_dragon]

Bonjour,


Je souhaite créer une marco qui génère (en feuille 1) automatiquement une phrase, à partir d'un tableau base de donnée (en feuille 2).. Par exemple:

Tableau en feuille 2 :

a b c
1 Bob mange une poire
2 JAck avale une pomme
3 Mick goute une fraise

J'aimerais que ma macro génère des phrases au hasard type :

Jack mange une fraise.
ou
Mick avale une poire.

Je sais l'exemple est très bête.

Quelqu'un peut-il m'aider ?

Merci d'avance !!!

 

[Pierrot93]

Re : Générer des cellules aléatoirement

Bonjour,

regarde peut être ceci, selon les infos fournies et ma compréhension :

Option Explicit
Sub test()
Randomize
With Feuil2
    Feuil1.Range("A1").Value = .Cells(Int(3 * Rnd) + 1, 1) & " " _
        & .Cells(Int(3 * Rnd) + 1, 2) & " " & .Cells(Int(3 * Rnd) + 1, 3)
End With
End Sub

bon après midi
@+

 

[TempusFugit]

Re : Générer des cellules aléatoirement

Bonjour


Tu peux aussi le faire en formule (sans macros)
Exemple
Sur la feuille 1
en colonne A
=INDIRECT("Feuil2!A"&ENT(ALEA()*3)+1)
en colonne B
=INDIRECT("Feuil2!B"&ENT(ALEA()*3)+1)
en colonne C
=INDIRECT("Feuil2!C"&ENT(ALEA()*3)+1)

Appuyer sur F9 pour changer les valeurs.

Post Scriptum: je pars du principe que les données sont en A1:C3
ce qui explique le : ENT(ALEA()*3)+1)

 

[Puff_the_magic_dragon]

Re : Générer des cellules aléatoirement

Parfait, ca marche.
Merci pour votre aide !!!