Alors, en fait c'est ce code qui marche bien sous Excel 2007, mais pas sous 97 (c'est à dire qu'il ne m'efface pas la colonne X et les suivantes) :
ActiveSheet.Range("$W$6:$W$150").RemoveDuplicates Columns:=1, Header:=xlNo
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("W6:W150") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("W6:W150")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Et celui là est celui que j'ai utilisé pour Excel 97 (et qui m'efface les colonnes suivantes) :
Range("W6").Select
ActiveCell.CurrentRegion.Sort Key1:=Range("W6"), Order1:=xlAscending, Header:=xlYes
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
While ActiveCell <> ""
If ActiveCell = donnee1 Then
ActiveCell.Delete
ActiveCell.Offset(-1, 0).Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
Else
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Wend
Est-ce que quelqu'un aurait un code pour supprimer les doublons de la colonne W sous Excel 97 sans supprimer le contenu des colonnes X et suivantes ?
Merci !