permutation

[marc]

bonjour,
quelqu'un sait-il comment permuter entre elles des cellules d'une colonne, si possible de manière aléatoire

merci

 

[michel]

bonsoir Marc

tu peux tester le fichier joint
je ne suis pas vraiment satisfait de ma macro, mais je n'ai pas réussi à faire mieux
j'espere que cela pourra tout de meme t'aider

bonne soirée
michel

 

[vincent]

apparemment, cette macro ne fonctionne que pour un nombre très restreint de données en colonne A.
saurais tu comment l'appliquer pour un nombre de valeur en colonne avoisinant les 20000 voire + ?
j'ai regardé le code, je ne vois pas ce qui cloche
merci merci )))

 

[michel]

rebonjour vincent

tu peux redefinir les variables comme ci dessous , mais à mon avis pour 20000 lignes le temps de calcul risque d'etre tres long

.....
Dim Lig As Integer
Dim Tableau()
Dim Tableau2()
Dim i As Integer, j As Integer, k As Integer
Dim Aleat As Integer
....

bon apres midi
MichelXld

 

[vincent]

est ce que je t'ai dit que t'étais un génie ?
ca marche impéccablement !
bon ca mouline un peu mais c'est pas grave, c'est superbe
merci merci et encore merci ))))