Amélioration de macro : Liste sans doublons

Re : Amélioration de macro : Liste sans doublons

Bonsoir,

En cas de besoin, tu peux joindre Didier sur son site, le connais tu ?

Forums : myDearFriend! Excel Pages

Bonne soirée à toi.

Re : Amélioration de macro : Liste sans doublons

Bonsoir le forum,Etienne, brigitte
Beaucoup de code pour peu de chose a faire
Si tu veux plus simple, essais celui ci

Sub SuppimDouble()
Dim DL1 As Long, i As Long
Sheets("Liste").Select
DL1 = Range("A65000").End(xlUp).Row
Range("A3:A" & DL1).Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess
For i = DL1 To 3 Step -1
If Cells(i, 1) = Cells(i - 1, 1) Then
Rows(i).Delete
End If
Next
Range("A1").Select
End Sub

Re : Amélioration de macro : Liste sans doublons

Bonjour Brigitte, Gexk5, le forum,
où peut-être devrais-je plus dire bonsoir pour vous 😉
Tout d'abord, merci de vos réponses !

@ Brigitte : En ce qui concerne Didier mDF, je n'ai pas eu la chance de le croiser directement. Par contre, à bon nombre de reprises, j'ai consulté ses oeuvres et j'ai pu m'inspiré de son travail. Mais le contacter pourrait être une option a considérer effectivement. Merci pour la réponse !

@Gexk5 : Merci de la réponse, par contre, (et sans vouloir être déplacé bien sur), je dois dire que je suis en désaccord avec toi. Le code que j'ai proposé fait intervenir l'utilisateur (1er objectif), est valide pour n'importe quelle plage, donne des options de plage de sortie (tri ascendant et descendant et une plage de sortie variable), n'implique jamais la suppression de ligne, etc...

En vous remerciant encore !

En espérant continuer de recevoir des commentaires et des idées !

Cordialement,

Étienne