mettre une série de nombres dans le désordre

Question

Bonjour à tous,
j'aurais une question à vous poser par rapport à l'utilisation d'excel.
j'ai tapé dans la colonne A une série de nombres de 1 à 148 dans un ordre croissant et j'aimerais que cette série soit désordonnée.
j'ai cherché sur internet un moyen de mélanger ces nombres et j'ai trouvé une technique de "tri aléatoire". j'ai essayé de l'appliquer mais étant malheureusement très mauvais en informatique je ne suis pas parvenu à mes fins.
je demande donc l'aide de personnes plus expérimentées.

merci d'avance et bonne soirée.

Mytå · Answer

Salut le forum 

Code à mettre dans un module

Sub RemplissageAleatoire() 
    Dim Tableau As Collection 
    Dim Plage As Range 
    Dim Cell As Range 
    Dim i As Integer, j As Integer 
  
    Set Tableau = New Collection 
    Set Plage = Range("A1:A148") 
     
    For Each Cell In Plage 
        Tableau.Add Cell.Address 
    Next Cell 
  
    For j = 1 To Plage.Count 
        Randomize 
        DoEvents 
        i = Int((Tableau.Count * Rnd)) + 1 
  
        Range(Tableau(i)) = j 
        Tableau.Remove i 
        DoEvents 
    Next j 
  
End Sub 

Il suffit de lancer la macro pour générer des nombres aléatoires
dans la plage A1:A148 

Mytå 
Quelle prétention de prétendre que l'informatique est récente 
Adam et Eve avaient déjà un Apple ! [MsProject 2003(FR), Excel 2003-2007(FR)]

ccm81 · Answer

bonjour,

une autre solution sans macro mais avec une colonne supplémentaire

A1=ALEA() à tirer jusqu'en A148
B1=rang(A1;$A$1:$A$148) à tirer jusqu'en B148

bonne suite

Mettre une série de nombres dans le désordre

2 réponses

Discussions similaires

Newsletters