Discussion :

[tortue696]

Bonjour,
Je débute en VB.
Je souhaite effectuer un tri sur plusieurs colonnes.
Pour les mesures ayant même nom de cycle et même nom d'assemblage, je souhaite conserver la ligne possédant le maximum pour l'epaisseur.
En pièce jointe la macro que j'ai tenté de faire.
Pouvez vous m'aider?

[Cachlab]

Bonjour,

C'est pas super optimisé, mais ça doit fonctionner comme ça ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Tri()
Dim wsSheet As Worksheet
Dim Valeur(4)
For Each wsSheet In Worksheets
If wsSheet.Name = "Max" Then Sheets("Max").Delete
Next
Sheets.Add.Name = "Max"
 
  Sheets("toto").Activate
  Bas = Range("A1000").End(xlUp).Row + 1
  Range("A2:D" & Bas).Select
      Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("D2") _
        , Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
 
    Selection.Copy
    Sheets("Max").Paste
    Sheets("Max").Activate
 
j = 0
For i = 1 To Bas
j = j + 1
Valeur(1) = Range("A" & j).Value
Valeur(2) = Range("D" & j).Value
Valeur(3) = Range("A" & j + 1).Value
Valeur(4) = Range("D" & j + 1).Value
If Valeur(1) = Valeur(3) And Valeur(2) = Valeur(4) Then Rows(j).Delete: j = j - 1
Next
End Sub

Edit :
Pour l'explication du fonctionnement, il suffit de trier ton tableau par ordre croissant (clé1=Colonne A, clé2 = colonne D, clé3 = colonne C).
On copie/colle le tableau trié.
On test chaque ligne avec la suivante.
Si cycle et assemblage sont identiques sur la ligne suivante, on supprime la ligne en cours.