Ligne unique

Bonjour,

J'aurais une autre question, comment faire pour que dans une base de donnée, une ligne s'inscrive une seule fois, et que si elle serait en double, qu'elle soit supprimé ?

Amicalement

Bonjour,

Une petite formule dont je me sers souvent pour éliminer les doublons :

1- Trier ses données par la colonne qui contient le critère a dédoublonner (Exemple Colonne A)

2- Dans la dernière colonne du tableau utiliser la formule suivante : =SI(A2=A1;"X";"")

3- Les lignes en double sont désormais identifiées avec un "X"

4- Copier-Coller Valeur sur la colonne B

5- Supprimer toutes les lignes pour lesquelles la colonne B contient "X"

6- Il n'y plus de doublons !

Bonne journée,

re,

Merci pour ta réponse, mais le problème c'est que je ne sais pas encore qu'elles lignes sont en double.

Dans ma base de donnée, les lignes s'inscrivent au fur et à mesure des calculs que j'effectu préalablement.

Amicalement

Bonjour,

un code en VBA pour controler les entrées de la colonne A.

A adapter bien sur.

Private Sub Worksheet_Change(ByVal Cellule As Excel.Range)

If Cellule.Column = 1 Then

If Application.WorksheetFunction. _

CountIf(Range("A:A"), Cellule.Value) > 1 Then

MsgBox "HOLA,Je suis déja inscrit "

Cellule.Value = ""

Cellule.Select

End If

End If

End Sub

A +

re,

Merci pour le code henri, je vais essayer de l'adapter.

Amicalement

bonjour à tous,

jackall, tu ferais aussi bien de réouvrir le fil concerné, que les gens comprennent !

Plutôt que supprimer des doublons, le mieux est de ne pas les créer !!

pour cela, dans la feuille "STAT_GOOD". tu ajoute en E5

=NB.SI(BDD!B:B;D5)

et tu ajoute un contrôle avant d'enregistrer.

Sub EnregGOOD_BDD() 'enregistre dans BDD
    Application.ScreenUpdating = False
    If [e5] > 0 Then
        MsgBox ("Cette référence est déjà enregistrée !")
        Exit Sub
    End If
        Range("col_GOOD").Copy
             With Sheets("BDD")
                 Range("BDD!a65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, Transpose:=True
             End With
    Application.CutCopyMode = False
Call EnregREJECT_BDD
Call tri_BDD
End Sub

amicalement

Claude.

Bonjour à tous,

Ben je ne suis pas retourné dans mes posts précédents parceque pour moi c'était d'autres problèmes, mais bon la prochaine fois si sa a un rapport je retournerais dans mes posts précédent qui parle du même projet.

Sinon Dubois, ta solution fait des merveille, sa marche du feu de dieu.

Je n'avais pas pensé faire comme tu a fait, je me disais qu'il fallait supprimer les doublon point barre.

Mais je pense que ta technique et bien meilleur.

Merci à toi pour ton aide, merci aussi à henri et à Pouch.

Amicalement