nombres aléatoires

[Roby]

Bonjour à tous,

j'aimerais effectuer sur une colonne numérotée par exemple de 1 à 100 un tri "aléatoire" en VBA

Je m'explique plus clairement,

données numériques = 1 à 100 à répartir sur A1:A100

et trouver par exemple en A1 = 34, A2 = 12, A3 = 65 etc...

je dois retrouver tous mes numéros de 1 à 100


merci d'avance

 

[Bernard]

Bonsoir Roby

Une petite macro qui place 100 nombres aléatoires dans la première colonne.

Sub AleatoireColonne()
Dim Myvalue As Byte
Dim Ligne As Byte
Myvalue = 100
Randomize
[A1] = Int(Myvalue * Rnd + 1)
For Ligne = 1 To 99
Do
Cells(1, 1).Offset(Ligne, 0).Value = Int(Myvalue * Rnd + 1)
Loop Until IsError(Application.Match(Cells(1, 1). _
Offset(Ligne, 0), Cells(1, 1).Resize(Ligne, 1), 0))
Next Ligne
End Sub

Cordialement

Bernard

 

[Roby]

salut au forum


merci beaucoup bernard, c'est parfait, ceci va me permettre d'avancer dans mon application.

A+ roby