Discussion :

[didier19672]

bonsoir à tous,

voila j'ai un petit souci avec mon fichier excel et je vais essayer de vous expliquez le plus clairement possible.
ce fichier contient plusieurs collonnes avec des données differentes, dans la collonne A il n'y a que des données chiffrée sur laquel je voudrais supprimé les doublons (le ligne entiere bien sur).
le probleme c'est que je ne trouve pas comment faire et que je dois garder la ligne la plus ancienne, voila, j'espere que c'est comprehensible !!!!!!!!!

didier19672

[methodidacte]

Bonsoir,

la ligne "la plus ancienne" est-elle la première en venant du début de la feuille ?

Par exemple, si la ligne 10 est identique à la 5, il faut garder la 5. Est-ce bien le fonctionnement attendu ?

[didier19672]

oui effectivement c'est bien cela

[methodidacte]

Ici, le plus simple va être d'utiliser le filtre personnalisé dans le menu Données, en cochant la case "Extraction sans doublon".

Si besoin de l'avoir en VBA, tu peux enregistrer cette action avec l'enregistreur de macros.

Est-ce que ceci te permet de résoudre ton problème ?

[didier19672]

non j'ai essayer et cela ne fonctionne pas, il faut vraiment supprimé les lignes en double, je ne trouve vraiment pas

peut etre avec un formule mais je ne sais vraiment pas laquel ???

[casefayere]

Bonsoir,
avec un code, dans un bouton, par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub doublons()
Dim derlg As Long, x As Long, y As Long
With ActiveSheet
   derlg = .Range("A" & .Rows.Count).End(xlUp).Row
   For y = 2 To derlg 'j'imagine que ta recherche commence en ligne 2
      For x = derlg To y + 1 Step -1
         If .Range("A" & x) = .Range("A" & y) Then
            .Range("A" & x).EntireRow.Delete
            derlg = .Range("A" & .Rows.Count).End(xlUp).Row
         End If
      Next x
   Next y
End With
End Sub

Bonne soirée

[didier19672]

merci pour la réponse mais j aurais besoin de detail supplementaire car cela ne fonctionne pas.

j'ai ajouter 1 ligne au dessus de mon fichier pour placer un cadre dans la cellule A1 dans lequel j'ai ajouté cette macro et zut comme d'ab cela ne fonctionne pas (suis vraiment nul moi)

je vais essayer de vous faire comprendre ce que je dois faire:

mon fichier comporte plusieurs collonne avec diverse donnée texte mais la A est en chiffre mais sans etre une suite de nombres ( clair j'espere ) pffffff

ce que je fais toutes les semaines j'injecte des données dans ce fichier mais le probleme c'est qu'il y a des doublons et je voudrais les supprimés mais seulement les derniers rentré car entretemps des données supplementaire ont été placée et il faut les gardés (de plus en plus compliqué mais je fait pour un mieux)

voila j'espere que vous avez compris ?

didier19672