L'option trier
bonjour
Je cherche utiliser l'option trier a Excel 2013 pour filtrer les donnes qui je cherche dans l’ensemble des donnes stoker mi le problème qui se pose c'est que l'option trier fonctionne avec les 16 premières colonnes et ignorer les autres pour régler ce problème j'essaye d’enregistrer la macro puis faire un changement pour régler le problème. Un message d'erreur sera afficher n’arrive pas à résoudre
Salutation
Bonjour, désolé, j'ai beau relire ta demande mais je n'arrive pas à comprendre ce que tu veux .
Soit plus explicite ...
Bonjour,
je pense/crois/suppose qu'il recherche un rechercheV ou index/equiv pour trouver le client mais les colonne B et E ne sont pas strictement identiques ...
Pas claire la demande
P.
Merci beaucoup je veau expliquer le problème d'un notre manière j'ai la première macro qui fonction bien voici le
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveWindow.SmallScroll Down:=-3
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B1:B174") _
, SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"089014001111127,089014000062175,089014001032151,089014000149147,089014001068156,089014000070162,089014001145108,089014001160170,089014000364129,089014001071183,089014001049146,089014001057133,089014001003130,089014001072195,089014001080182,089014001082106" _
, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:C174")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Au lieu 16 référence mentionner
, SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"089014000062175,089014001032151,089014000149147,089014001068156,089014000070162,089014001145108,089014001160170,089014000364129,089014001071183,089014001049146,089014001057133,089014001003130,089014001072195,089014001080182,089014001082106,089014000073198" _
Je veau ajouter d’autres mais un message d’erreur sera afficher « erreur de compilation : erreur de syntaxe »
, SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"089014001111127,089014000062175,089014001032151,089014000149147,089014001068156,089014000070162,089014001145108,089014001160170,089014000364129,089014001071183,089014001049146,089014001057133,089014001003130,089014001072195,089014001080182,089014001082106,089014000073198,089014001041150,089014001055109,089014000231150,089014000319134,089014001117199,089014000372116,089014000348155,089014001047122,089014000054188,089014001134185,089014000379100,089014000369189,089014001040138,089014000270182,089014000138124,089014000039126,089014000395174,089014000064199,089014000133164,089014000044177,089014000381115,089014000233174,089014001113151,089014001007178,089014001019113,089014001005154,089014000038114,089014000047113,089014000036190,089014000268167,089014000253196,089014000139136,089014001115175,089014000067135,089014000031130,089014000145199,089014000325197,089014001105164,089014001103140,089014000390114,089014001056121,089014001100104,089014000059148,089014000074110,089014000124165,089014000061163,089014000069159,089014000034166,089014000057124,089014000195154,089014001129134,089014000312150,089014001025176,089014001178177,089014001177165,089014001166142,089014000352194,089014001109112,089014001004142,089014000353106,089014001104152,089014001035187,089014001175141,089014001058145,089014000028103,089014001156131,089014001133173,089014001124174,089014001098189,089014001039135,089014001143184,089014001050149,089014001167154,089014001169178,089014001159167,089014001193139,089014001182116,089014001184140,089014001164118,089014000192118,089014000318122,089014000060151,089014000125177,089014001011117,089014000272106,089014000052164,089014001127110,089014000066123,089014001054197,089014000072186,089014001174129,089014001206186," _