Doublons

bonjour à tous,

voila ma demande va peut etre vous paraitres stupide mais qui pourrait me dire quel est la formule pour supprimer les doublons dans une collonne de chiffres.

merci d'avance

Bonjour,

voilà comment je fais (mais il y a peut-être + simple):

si tes chiffres sont sur la colonne A:

Je trie la colonne A

Je me mets sur la cellule B2 et écris la formule suivante:

Si(A2<>A1; OK; " ")

Je propage la formule jusqu'à la fin.

Pour ne garder que les lignes OK, je fais un copier/collage spécial valeur de la colonne B (car on ne peut pas trier s'il y a des formules dans les cellules).

Ensuite je trie la colonne B et ne garde que ceux qui sont OK

Amicalement

Bonjour à tous,

Il y a plusieurs façon de faire,

Faudrait savoir si tu veux supprimer les lignes entières

ou seulement les doublons de la colonne ?

Amicalement

Claude

re bonjour,

j'avais oublié de signaler que en effet je voudrais supprimé toutes les lignes en double

merci

re,

il faut quand même un fichier avec quelques lignes

(structure réelle)

Amicalement

Claude

Bonjour

Code adapté à adapter aux données réelles de ton fichier

Sub Sup_Doublon()
  Application.ScreenUpdating = False
  [A1].Sort Key1:=Range("A2"), Order1:=xlAscending, _
            Header:=xlNo
  Columns(2).Insert
  [B1] = "ColB"
  [B2].FormulaR1C1 = "=IF(RC[-1]=R[-1]C[-1]," & """""" & ",0)"
  [B2].AutoFill Destination:=Range("B2:B" & [A65000].End(xlUp).Row)
  [B:B].Value = [B:B].Value
  [A2].CurrentRegion.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess
  Range("B2:B65000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  Columns(2).Delete
End Sub

Bonne journée

Edit: Bonjour Claude

Edit2: L'original est de Bisson

Bonjour à tous,

Il y a doublons et doublons !

en attendant le fichier et la demande réels, voici une solution

1) détecte et colore en jaune les doublons en colonne A

2) après choix, double clic en colonne A pour supprimer la ligne

On pourrait ajouter un tri

Amicalement

Claude