cellule aléatoire

[fireman302]

Bonjour les Pro.

Voila je cherche à faire une feuille de travail sur laquelle il y a une liste d'objet à nettoyer 10 au total, mais je voudrais en avoir 3 à faire à chaque semaine et pendant 52 semaines et ce de manière aléatoire. Comment faire pour sélectionner 3 des 10 item dans la liste ?

Je vous fais parvenir unn exemple.

Merci [file name=nettoyage.zip size=2145]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/nettoyage.zip[/file]

 

[porcinet82]

Salut fireman302,

Je te propose une petite macro faite vite fait mais qui il me semble devrait te satisfaire :

Sub alea()
Dim j As Byte

For j = 4 To 56
retour:
    Randomize
    nb_alea_1 = Int((10 * Rnd) + 4)
    Randomize
    nb_alea_2 = Int((10 * Rnd) + 4)
    Randomize
    nb_alea_3 = Int((10 * Rnd) + 4)

    If nb_alea_1 = nb_alea_2 Or nb_alea_1 = nb_alea_3 Or nb_alea_2 = nb_alea_3 Then
        GoTo retour
    Else
        Cells(3, j).Value = 'Semaine ' & j
        Cells(4, j).Value = Cells(nb_alea_1, 2).Value
        Cells(5, j).Value = Cells(nb_alea_2, 2).Value
        Cells(6, j).Value = Cells(nb_alea_3, 2).Value
    End If
Next j
End Sub

Tiens moi au courant,

@+

 

[Dugenou]

Voilà !

J'ai une version semi anglaise qui utilise RANDBETWEEN je crois qu'en français c'est ALEAENTREBORNE ou ALEAENTREBORNES ou ALEA.ENTRE.BORNE


Attention comme c'est vraiment aléatoire tu peux avoir deux fois le même objet la même semaine.

Cordialement [file name=nettoyage_20060329194128.zip size=2835]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/nettoyage_20060329194128.zip[/file]

 

[jp14]

Bonsoir

Avec une formule
=INDEX($B$4:$B$13;(ENT(ALEA()*10))+1)

JP

 

[Dugenou]

Tiens , Salut Porcinet !

Super une réponse macro et une réponse formule !

t'as le choix Fireman !

 

[AV]

Ave,

Hum..hum...
Il me semble que dans ce type de boulot (nettoyage), il conviendrait de banir le terme aléatoire et de définir plutôt une fréquence fixe !
A défaut certains objets risque d'être passablement cradingues en fin d'année !

AV [MVP Excel]

 

[Fireman302]

Un Gros merci à tous

a la prochaine