Re : moteur de recherche dans cellule
RE THIERRY
tout simplement magniphiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiique
c'est tout a fait ma demande
géniale
Cindy
connait tu un code moins long pour faire un tri par macro
tri de la plage A12:I500
1 er critère par n°client
2 eme critère par référence
3 eme critère par type
4 eme critère par début séquenciel croissant
voici le code que j'utilise il fonctione mais je pense qu'il y a mieux
ActiveWorkbook.Worksheets("Recherche").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Recherche").Sort.SortFields.Add Key:=Range( _
"B12:B500"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Recherche").Sort.SortFields.Add Key:=Range( _
"D12
500"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Recherche").Sort.SortFields.Add Key:=Range( _
"E12:E500"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Recherche").Sort.SortFields.Add Key:=Range( _
"G12:G500"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Recherche").Sort
.SetRange Range("A11:I500")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B2:N4").Select