XL 2016 Tri aléatoire et affichage dans la cellule

[berru76]

Bonjour
Dans un fichier excel pour un concours de boules j'ai fait une macro de tri aléatoire avec bouton mais mon problème est que les noms dans la colonne C ont des cellules vides entre eux
et je voudrais que les noms se suivent en haut dans l'ordre du tirage fait sans les vides

La macro actuelle est mis ci-dessous
je joint le fichier
Si quelqu'un peut me dépanner car tout le reste est fini mais je rame sur ce dernier point pour finir ce concours
Merci


Sub Tri()
'
' Tri Macro
'

'
Range("B4:C99").Select
ActiveWorkbook.Worksheets("Inscriptions").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Inscriptions").Sort.SortFields.Add2 Key:=Range( _
"B4:B99"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Inscriptions").Sort
.SetRange Range("B4:C99")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply

End With
End Sub

 

[sylvanu]

Bonjour Berru,
Je pense que si en B4 et suivant, vous remplaciez =ALEA() par =SI(C4<>"";ALEA();"") cela aiderait car les cellules vides se retrouveraient après tri à la fin automatiquement.

 

[berru76]

Cela a l'air de fonctionner je ne peut pas finir aujourd'hui mais je vous tiens au courant merci

 

[berru76]

Un grand merci . cela fonctionne parfaitement merci pour cette aide rapide et efficace