Chester Mefield
XLDnaute Nouveau
Bonjour,
J'ai un tableau qui me donne un taux par individu... j'ai une fonction tri pour réaliser un podium, mais les valeurs "vides" remontent les premières sur le podium : /
Que dois-je faire pour l'éviter svp ?
FONCTIO TRI :
Sub Macro1()
'
' Macro1 Macro
'
'
Range("V52:W58").Select
ActiveWindow.SmallScroll Down:=0
ActiveWorkbook.Worksheets("Grille G2-PDC").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Grille G2-PDC").Sort.SortFields.Add Key:=Range( _
"W52:W58"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Grille G2-PDC").Sort
.SetRange Range("V52:W58")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
J'ai un tableau qui me donne un taux par individu... j'ai une fonction tri pour réaliser un podium, mais les valeurs "vides" remontent les premières sur le podium : /
Que dois-je faire pour l'éviter svp ?
FONCTIO TRI :
Sub Macro1()
'
' Macro1 Macro
'
'
Range("V52:W58").Select
ActiveWindow.SmallScroll Down:=0
ActiveWorkbook.Worksheets("Grille G2-PDC").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Grille G2-PDC").Sort.SortFields.Add Key:=Range( _
"W52:W58"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Grille G2-PDC").Sort
.SetRange Range("V52:W58")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub