Changement de ligne alèatoire

[sokour]

Bonjour,

Je rencontre un problème concernant l'ètablissement d'une macro afin de pouvoir faire changer aléatoirement la place d'une ligne à la place de l'autre et inversement.

En cliquant sur un bouton, la colonne B (Sheet 2) les lignes 4 ä 13 change aleatoirement ( ex: la ligne 4 devient la ligne 7 et inversement). Par contre la ligne 11 reste figé
Sachant que la colone A reste figè.

Pouvez vous m'aider, je vous joint un fichier exemple

Merci

 

[CassiopeeQc]

Re : Changement de ligne alèatoire

Bonsoir,
J'ai ouvert votre fichier. Je ne sais pas si c'est à cause que j'ai la version Mac d'Excel mais la macro ne fonctionne pas. Je ne sais pas si c'est pour cela que vous n'avez pas eu de réponse jusqu'à maintenant.
Sinon, patience, un "nerds" viendra vous prêter main forte 🙂

 

[sokour]

Re : Changement de ligne alèatoire

Il n'y a pas de macro mais juste un exemple.

La partie concernée se trouve dans la sheet 2

Merci de votre aide

 

[Lii]

Re : Changement de ligne alèatoire

Bon jour,

peut-être ainsi.

 

[sokour]

Re : Changement de ligne alèatoire

Merci pour ta rèponse, Mais cela ne permet pas d'alterner toute les ligne concernés en meme tems.🙁

 

[Lii]

Re : Changement de ligne alèatoire

Re,

Merci pour ta rèponse, Mais cela ne permet pas d'alterner toute les ligne concernés en meme tems.🙁

Toutes : ce n'était pas ce que j'ai compris.

 

[sokour]

Re : Changement de ligne alèatoire

Votre fichier alterne aléatoirement 2 lignes entre elle, je voudrais qu'elles alternent toutes les lignes concernées

 

[kjin]

Re : Changement de ligne alèatoire

Bonsoir,
Si j'ai tout bien compris
A+
kjin

 

[Staple1600]

Re : Changement de ligne alèatoire

Bonsoir sokour, kjin, le fil


Un moyen simple (avec une colonne supplémentaire, que l'on peut masquer)

Il faut insérer une colonne vide (ici la colonne B)

Sub Macro1()
Application.ScreenUpdating = False
Range("B4:B13").FormulaR1C1 = "=RAND()*ROW()"
Range("B4:S13").Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.ScreenUpdating = True
End Sub

 

[sokour]

Re : Changement de ligne alèatoire

Merci pour ta reponse, mais je voulais que la ligne 11 reste figè

 

[sokour]

Re : Changement de ligne alèatoire

Peut on adapter ta macro pour eviter de prendre en compte la ligne 11?