Application Function match
Bonjour à tous,
Je me suis fait aider pour mettre en place une function.match et je cherche à savoir à quoi correspond cette partie de la function : (9 ^ 9, ...
Ci-dessous la ligne complète :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Private Sub Btncréationcheminement_Click()
With Sheets("Traitement Cde")
Y = Application.WorksheetFunction.Match(9 ^ 9, .Range("G18:G34"), 1)
If Y = 1 Then Exit Sub
Y = Y + 17
ActiveWorkbook.Worksheets("Traitement Cde").Sort.SortFields.Clear
.Sort.SortFields.Add2 Key:=Range("C19:C" & Y), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add2 Key:=Range("D19:D" & Y), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Traitement Cde").Sort
.SetRange Range("C18:G" & Y)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.Apply
End With
End With
End Sub |
Merci pour votre aide