Nombres dans le désordre

[Claudy]

Bonjour à tous,
Cinq nombres de 1 à 20 , cellules A1 à E1 Comment avoir dans les cellules G1 à K1 les mêmes nombres mais dans un ordre différent et cela de manière aléatoire??
Exemple:
A1 à E1: 12 3 14 1 20

G1 à K1: 14 20 1 12 3

Merci d'avance, Claudy

 

[Tibo]

Re : Nombres dans le désordre

Bonjour,

Une solution avec des cellules intermédiaires :

On a 5 nombres de A1 à E1.

En A2, cette formule :

=ALEA()

à recopier jusque E2

En G1, cette formule :

=INDEX($A$1:$E$1;RANG(A2;$A$2:$E$2))

à recopier jusque K1

La ligne 2 peut être masquée.


Bon WE

@+

 

[Gruick]

Re : Nombres dans le désordre

Bonjour Ami d'outre Quiévrain,

Tu peux t'inspirer de ce machin que j'ai trouvé dans mes archives

Bonne adaptation

Gruick

Edit : Bonjour Tibo, de Maubeuge tu aurais pu y aller à pied finalement...

 

[Claudy]

Re : Nombres dans le désordre

Ok, merci beaucoup et bon WE
Claudy

 

[abcd]

Re : Nombres dans le désordre

Bonjour, resalut Tibo

De façon aléatoire fait penser à la fonction ALEA ou ALEA.ENTRE.BORNES, mais il y a deux problèmes : les doublons et la mise à jour du résultat à chaque validation d'une cellule quelconque du fichier.

Il existe sous les macros complémentaires MOREFUNC la fonction ALEAS qui solutionne ces deux problèmes.
Sélectionner G1:K1
Saisir : =ALEAS(5;;;VRAI) à valider en matricielle (Ctrl+Maj+Entrée)
En G2 : =DECALER($A1;G1) à étirer vers la droite.

abcd

 

[ROGER2327]

Re : Nombres dans le désordre

Bonjour à tous.

Solution avec une Macro.

1. Placez le code suivant dans la feuille concernée :

Sub MELANGE()
Dim dest, o, d, i As Long, j As Long, s
    Me.Activate
    o = InputBox("Zone d'origine (première cellule:dernière cellule) :", , Selection.Address)
    If o = "" Then Exit Sub
    d = InputBox("Zone de destination (adresse de la première cellule) :")
    If d = "" Then Exit Sub
    Set dest = Me.Range(Me.Range(d).Cells(1, 1), Me.Range(d).Cells(1, 1).Offset(Me.Range(o).Rows.Count - 1, Me.Range(o).Columns.Count - 1))
    Application.ScreenUpdating = False
    dest.Value = Me.Range(o).Value
    Randomize
    For i = 2 To dest.Cells.Count
        j = i + Int((dest.Cells.Count - i) * Rnd())
        s = dest.Cells(j)
        dest.Cells(j) = dest.Cells(i - 1)
        dest.Cells(i - 1) = s
    Next i
    Application.ScreenUpdating = True
End Sub

2. Exécutez la procédure 'MELANGE'.

3. Donnez l'adresse de la plage de données.

Pour Claudy : A1:E1​

Par défaut, la procédure propose la plage sélectionnée dans la feuille. Validez (OK).

4. Donnez l'adresse de la première cellule de la plage de destination (cellule en haut à gauche de la plage de destination).

Pour Claudy : G1​

Validez (OK).

Intérêt de cette méthode :

• Elle permet de travailler sur une plage quelconque de la feuille, et pas seulement sur une ligne ou une colonne.

• 
  Rapidité : 4 s pour 1000 lignes x 25 colonnes, 13 s pour 2000 lignes x 50 colonnes.

Voilà...

Remarque pour Tibo :
Votre solution suppose que la fonction ALEA() engendre des valeurs uniques, ce qui n'est pas le cas. Prudence...