Remplir un tableau de manière aléatoire

[Claudy]

Bonjour le forum....
Une plage: Range("D11:L52"), me manque une petite macro pour remplir ce tableau avec des chiffres compris entre 1 et 50, sans doublon par ligne, et par ligne placés par ordre croissant!
Merci d'avance,
Claudy

 

[pierrejean]

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

Bonjour Claudy

Vois si cela te convient

 

[CBernardT]

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

 

[julberto]

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

Bonjour le fil, Bonjour Claudy,

Encore une proposition:

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

 

[Claudy]

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

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

 

[pierrejean]

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)

 

[MJ13]

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 🙂.