éviter les redondances dans l'aléatoire

[Michel]

Bonjour,
j'ai créé un questionnaire basé sur l'aléatoire de texte, j'aimerais éviter les redondances tant que tous les items de la base de données n'ont pas été choisis préalablement. Comment faire ? (voir pièce jointe)
Michel

 

[svpcok@libertysurf.fr]

Sub aléatoire()

Range("A6").Select
ActiveCell.FormulaR1C1 = "=ALEA.ENTRE.BORNES(1,11)"
For Each cell In Range("b7:b15")
If cell <> Range("a6") Then
Range("A7").Select
ActiveCell.FormulaR1C1 = Range("A6").

End If
Next
Range("A8").Select
End Sub

 

[Michel]

Heu, merci bcp, mais je mets tout cela où ?

 

[Vériland]

Bonsoir Michel et bonsoir le forum,

Tiens pour t'aider, cette macro engendre un nombre aléatoire de 1 à 10 dans les cellules de ton fichier (colonne A)

Randomyse est une fonction qui initialise le générateur de nombres aléatoires...


Sub aléatoire()
Dim MonNombre ' déclare MonNombre
For I = 1 To 15 'commence la boucle
Randomize 'initialise le générateur de nombres aléatoires...
MonNombre = Int((10 * Rnd) + 1) 'donne un nombre de 1 à 10
If I = 7 Then Range("A7").Value = MonNombre
If I = 9 Then Range("A9").Value = MonNombre
If I = 11 Then Range("A11").Value = MonNombre
If I = 13 Then Range("A13").Value = MonNombre
If I = 15 Then Range("A15").Value = MonNombre
Next I
End Sub

Tu places tout ça dans VBA dans le module 2 de ta feuille par exemple (à la place de ton ancienne macro)

En espérant que cela te convienne

A+ Vériland

 

[@+Thierry]

Bonsoir Michel

Re Vériland

Just parceque je t'avais filé le lien sur le fichier de Ti dans ce fil :
<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=8682&t=8666>

çà ne marchait pas ?

@+Thierry

 

[Michel]

Réponse à Thierry,

ben non, ça ne marche pas entièrement, il y a des redondances dans la génération aléatoire. Merci quand même.