tri sans doublons

Re : tri sans doublons

Salut,

Voici un code fait à la va-vite mais qui fonctionne:

Sub Mac()

Dim i As Integer

i = Sheets("Feuil1").Range("B65536").End(xlUp).Row ' à adapter au nom de ta feuille

Range("B3:C" & i).Select ' à adapter au colonne et premier ligne

ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("B3"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Feuil1").Sort 'à adapter au nom de ta feuille
.SetRange Range("B3:C" & i) 'à ta plage

.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

For i = 4 To Sheets("Feuil1").Range("B65536").End(xlUp).Row
If Cells(i, 2) = Cells(i + 1, 2) And Cells(i, 3) = Cells(i + 1, 3) Then
Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub

Cheers,

Re : tri sans doublons

Bonsoir

j ai un message "erreur de compilation attendu expression "a cette endroit
Key:=Range("B3"),_
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
A+

Re : tri sans doublons

Arf... C'est parce que je l'ai fait sur office 2007, ca doit être un pb au niveau de la compatibilité j'ai pas de 2003 sous la main, pas avant demain.