Bonjour à tous !!
Encore une fois, étant en train de programmer une gmao pour mon entreprise je ne peux pas mettre de fichiers....
Voila mon problème :
J'ai des maccros qui me permettent d'observer l'historique des interventions de maintenance sur un équipement... Cette macro utilise le code VBA suivant pour trier selon l'équipement et la date :
Sheets("Historique des OT").Select
Columns("A:A").Select
ActiveWorkbook.Worksheets("Historique des OT").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Historique des OT").Sort.SortFields.Add Key:=Range _
("D2:D200000"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"SILO 4", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Historique des OT").Sort.SortFields.Add Key:=Range _
("A2:A200000"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Historique des OT").Sort
.SetRange Range("A1:I200000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
PROBLEME !!!!!
Il faut que pour chaque équipement je créé la macro, je remplace le mot ( ici "silo 4" ) par le nom d'un autre équipement et que je le rajoute à la liste ( la fênetre pour faire les tris )..
Il faut que j'enlève cette manip et que je réussisse à faire un tri selon une variable ( je rajoute des équipements tout les deux mois )...
Voila je ne bloque pas sur une partie du code en particulier je n'ai juste pas d'idées sur comment faire.
J'espère que j'ai été clair sinon n'hésitez pas à me poser des questions, merci !