Bonsoir,
Merci pour ce forum et ceux qui y participent pour aider les autres .
s'il vous plait
Je cherche à améliorer le code : qui cherche aléatoirement les mots
sans les répéter au cellule J17 et obtenir des choix différents
le code est:
Sub tri_aleatoire()
Dim nb_alea As Byte
nb_alea = Int(4 * Rnd()) + 1
Range("C2:D723").Select
ActiveWorkbook.Worksheets("Mots").Sort.SortFields.Clear
Select Case nb_alea
Case 1:
ActiveWorkbook.Worksheets("Mots").Sort.SortFields.Add Key:=Range("D3:D723"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Case 2:
ActiveWorkbook.Worksheets("Mots").Sort.SortFields.Add Key:=Range("D3:D723"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
Case 3:
ActiveWorkbook.Worksheets("Mots").Sort.SortFields.Add Key:=Range("C3:C723"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Case 4:
ActiveWorkbook.Worksheets("Mots").Sort.SortFields.Add Key:=Range("C3:C723"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
End Select
With ActiveWorkbook.Worksheets("Mots").Sort
.SetRange Range("C2:D723")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.Apply
End With
End Sub
Il se trouve au bouton "nouveau" tri_aleatoire
et Merci d'avance.