Macro pour changer l'ordre de Noms de manière Aléatoire

[Mister Binaire]

Bonsoir le Forum,

Dans un premier temps je tenais à vous souhaiter une excellente année 2015!!!

Voilà j'ai une liste de 20 (voir plus) noms dans ma colonne A.

Exemple :

Dupont
Durand
Tintin
Toto
Fifi
etc..

Je voudrais qu'à chaque fois que j'appuie sur un bouton nommé "Actualisé" que les noms soient classés dans cette colonne de manière aléatoire.

Qui peut m'apporter le code adéquat .

Vous remerciant par avance..

 

[jpb388]

Re : Macro pour changer l'ordre de Noms de manière Aléatoire

Bonsoir a tous
c'est un exemple a adapter à ton fichier

 

[Mister Binaire]

Re : Macro pour changer l'ordre de Noms de manière Aléatoire

Bonjour jpb388, Le Forum,

Merci de ta réponse cela marche à merveille.

Juste une autre petite question dans l'hypothèse ou je voudrais générer des noms de manière aléatoire dans plusieurs colonne exemple de la colonne B à la colonne G quelle partie du code faudrait il changer ? (j'ai bien modifié le Range mais cela ne marche pas )

Te remerciant par avance

 

[jpb388]

Re : Macro pour changer l'ordre de Noms de manière Aléatoire

Bonjour a tous
essayes ceci

Sub Test()
    Dim i%
    For i = 2 To 7
        GenereSerieAleatoireSansDoublons 20, Cells(1, i)
    Next i
End Sub

 

[Mister Binaire]

Re : Macro pour changer l'ordre de Noms de manière Aléatoire

Bonsoir jpb388,

Merci de ta réponse cela marche à merveille.

Je suis hyper étonné de la manière dont tu as allégé le code !!

Et grâce à cette boucle nous pouvons générer aléatoirement un grande nombre de noms dans "x" colonnes et sur "x" lignes.

Chapeau bas et merci encore !!

 

[jpb388]

Re : Macro pour changer l'ordre de Noms de manière Aléatoire

Bonjour a tous
Malheureusement je ne mérite que 2% de tes félicitations car je n'est fait qu'adapter une macro,trouvée sur un site il y a quelques jours,qui servait à générer des nombres aléatoires sans doublon a ton problème de noms aléatoires