Remplir un tableau de manière aléatoire

pierrejean

XLDnaute Barbatruc

• 7 Juin 2011

• #2

Re : Remplir un tableau de manière aléatoire

Bonjour Claudy

Vois si cela te convient

 

Pièces jointes

• CLAUDY.xls

  42.5 KB · Affichages: 283
• CLAUDY.xls

  42.5 KB · Affichages: 305
• CLAUDY.xls

  42.5 KB · Affichages: 309

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 7 Juin 2011

• #3

Re : Remplir un tableau de manière aléatoire

Bonjour Claudy,

Salut pierrejean et beau travail,

Une version Excel 2007 avec utilisation de l'objet Collection (Vieille querelle avec dictionnary), hi hi

 

Pièces jointes

• TirageAléatoire.xlsm

  20.7 KB · Affichages: 232

Dernière édition: 7 Juin 2011

Vote positif 0 Vote négatif

J

julberto

XLDnaute Occasionnel

• 7 Juin 2011

• #4

Re : Remplir un tableau de manière aléatoire

Bonjour le fil, Bonjour Claudy,

Encore une proposition:

Code:

Sub ZoneSansDoublons()
ligne = 10
Do
ligne = ligne + 1
  Set mondico = CreateObject("Scripting.Dictionary")
  While mondico.Count < 9
    temp = WorksheetFunction.RandBetween(1, 50)
    If Not mondico.Exists(temp) Then mondico.Add temp, temp
  Wend
Range("D" & ligne).Resize(1, 9) = mondico.items
Set mondico = Nothing
Loop While ligne < 52
Range("D11:L52").Sort Key1:=Range("D11:D52"), Order1:=xlAscending
End Sub

cordialement

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 7 Juin 2011

• #5

Re : Remplir un tableau de manière aléatoire

Ok, merci,
J'adapte à mes besoins...
Bonne journée,
A+
Claudy

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 7 Juin 2011

• #6

Re : Remplir un tableau de manière aléatoire

Re

Merci Bernard
Salut julberto

Plus de querelle pour moi depuis que j'ai assimilé le dictionary
Attention à l'aide ("Scripting,dictionary") et non (Scripting,dictionary)

 

Dernière édition: 7 Juin 2011

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 7 Juin 2011

• #7

Re : Remplir un tableau de manière aléatoire

Bonjour à tous

Bravo, bel execice de style, comme je les aime sur XLD. J'ai mis 3 like. Mais à l'avenir, il faudra que j'en chosisse qu'un sinon, je vais en avoir trop 😱.

Pour 1 like, je privilégierai celui que je comprend le mieux ou qui est le plus facilement adapatable (enfin pour moi), ce qui ne veut pas dire que les autres seront nuls 🙂.

 

Vote positif 0 Vote négatif