D
Domi
Guest
Bonjour,
Cette macro que j'ai trouvé sur ce site a pour but d'effectuer un tri aléatoire de la colonne A à partir de la cellule A1.
Or, moi, pour un souci de présentation, je dois effectuer un tri de la colonne C à partir de la cellule C4.
Voyez-vous comment modifier ce code :
Sub TriColonneAleatoire()
Dim Val As Range
Dim Lig As Byte
Dim Tableau()
Dim Tableau2()
Dim i As Byte, j As Byte, k As Byte
Dim Aleat As Integer
Lig = Range('A65536').End(xlUp).Row
ReDim Tableau(Lig)
For Each Val In Range('A1:A' & Lig)
Tableau(Val.Row - 1) = Val
Next Val
For i = 1 To Lig
Randomize
Aleat = Int(Rnd * UBound(Tableau)) + 1
Cells(i, 1) = Tableau(Aleat - 1)
ReDim Tableau2(Lig - i)
For j = 1 To Lig - i
k = 0
If j >= Aleat Then k = 1
Tableau2(j - 1) = Tableau(j + k - 1)
Next j
ReDim Tableau(Lig - i)
For j = 1 To Lig - i
Tableau(j - 1) = Tableau2(j - 1)
Next j
Next i
End Sub
Je vous joint aussi l'exemple trouver sur ce site en pièce jointe.
------------------------
Merci d'avance [file name=TriAleatoireColonne.zip size=11845]Lien supprimé
Cette macro que j'ai trouvé sur ce site a pour but d'effectuer un tri aléatoire de la colonne A à partir de la cellule A1.
Or, moi, pour un souci de présentation, je dois effectuer un tri de la colonne C à partir de la cellule C4.
Voyez-vous comment modifier ce code :
Sub TriColonneAleatoire()
Dim Val As Range
Dim Lig As Byte
Dim Tableau()
Dim Tableau2()
Dim i As Byte, j As Byte, k As Byte
Dim Aleat As Integer
Lig = Range('A65536').End(xlUp).Row
ReDim Tableau(Lig)
For Each Val In Range('A1:A' & Lig)
Tableau(Val.Row - 1) = Val
Next Val
For i = 1 To Lig
Randomize
Aleat = Int(Rnd * UBound(Tableau)) + 1
Cells(i, 1) = Tableau(Aleat - 1)
ReDim Tableau2(Lig - i)
For j = 1 To Lig - i
k = 0
If j >= Aleat Then k = 1
Tableau2(j - 1) = Tableau(j + k - 1)
Next j
ReDim Tableau(Lig - i)
For j = 1 To Lig - i
Tableau(j - 1) = Tableau2(j - 1)
Next j
Next i
End Sub
Je vous joint aussi l'exemple trouver sur ce site en pièce jointe.
------------------------
Merci d'avance [file name=TriAleatoireColonne.zip size=11845]Lien supprimé
Pièces jointes
Dernière modification par un modérateur: