Bonjour
Voilà apres plusieurs recherches sur les forums, je n'ai pas trouvé ce que je cherche malheureusement. Je ne doute pas qu'en faisant appel à vos services, je vais pouvoir trouver mon bonheur.
J'ai 2 problématiques:
1/ Je souhaite faire un tri selon le "Numéro d'article" qui est dans la colonne C de mon tableau en PJ.
Or comme les requetes provenant de l'ERP peuvent differer, la colonne "Numéro d'article" peut varier. C'est à dire ne pas forcément se trouver en colonne C.
J'ai donc fait une recherche sur le "Numéro d'article" et j'ai identifié la colonne où il se rouve dans une variable que j'ai appelé PUI.
J'ai ensuite fait un tri par apprentissage, que j'ai adapté avec la variable Pui.
Ca ne semble pas marcher.
Je précise que les tris doivent se faire sur le "Numéro d'article" mais que la totalité de la ligne doit bougé lors du tri avec toutes les données qui s'y trouvent. C'est à dire qu'on garde la totalité du contenu de la ligne une fois le tri réalisé.
2/ De plus, je fais un tri sur une plage allant de 1 à 5000. Peut on faire un tri sur la totalité des lignes actives, car si j'ai plus de 5000 lignes actives;, je risque de ne pas faire le tri sur la totalité des lignes actives (bien que ce soit peu probable, mais on ne sait jamais)
N'hésitez pas si vous avez des questions
Merci d'avance pour votre aide
Ci dessous la macro Tri, qui est aussi dans le fichier joint
Sub Tri()
Dim Pui
Cells.Find(What:="Numéro d'article", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Pui = ActiveCell.Column
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("Pui2:Pui1460" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:V5000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A2").Select
End Sub