Classement aléatoire

J'ai une question simple.

J'ai 5 chiffre répartie dans la colonne A de 1 a 100.

45 fois le 1

26 fois le 2

16 fois le 3

9 fois le 4

4 fois le 5

J'aimerais savoir si il y a une façon de répartir ces 5 nombre de façon aléatoire dans la même colonne.

Merci de votre aide.

Bonjour

Un exemple

https://www.excel-pratique.com/~files/doc2/Selection_Aleatoire.xls

Cordialement

Salut le forum

Amadéus, j'ai adapté ta macro de Soft pour la question.

Option Explicit
'Code initial Soft Excel Pratique
Sub Rempli()
    Dim Temp As Integer, Existe As Boolean
    Dim I As Integer, J As Integer
    Dim Tableau(100) As Integer, RDest As Range
    Set RDest = ActiveSheet.Range("A1:A100")
    Randomize
    For I = 1 To 100
        Existe = True
        While Existe
            Temp = Int(100 * Rnd + 1)
            For J = 1 To 100
                If Temp = Tableau(J) Then
                    Existe = True
                    Exit For
                Else
                    Existe = False
                End If
            Next J
        Wend
        Tableau(I) = Temp
    Next I

    For I = 1 To 100
    Select Case Tableau(I)
    Case 1 To 45
        J = 1
    Case 46 To 71
        J = 2
    Case 72 To 87
        J = 3
    Case 88 To 96
        J = 4
    Case Else
        J = 5
    End Select
        RDest(I).Value = J
    Next I

End Sub

Mytå

WOW!!!!!

Merci beaucoup, vraiment génial.

Bonjour

Salut Mytå

Merci. Il est évident qu'avec l'enregistreur + le code de Soft, je reste encore loin du professionnalisme...mais, le résultat était là.

Cordialement