Eviter doublons

Bonjour Alex le forum

Admettons que le doublon soit ajouté sur la première ligne vide de la colonne A

Avec ce code

Sheets('Feuil1').Columns('A').Sort Key1:=Range('A1'), Order1:=xlAscending, _
Header:=xlGuess
For X = Range('A65536').End(xlUp).Row + 1 To 2 Step -1
If Range('A' & X) = Range('A' & X - 1) Then
MsgBox 'Doublon Détruit : ' & Range('A' & X - 1).Value, vbCritical, _
'Doublon'
Range('A' & X).ClearContents
End If
Next

Dans un premier , le code met la colonne en ordre et dans un deuxième regarde, en partant du bas de la colonne, si deux cellules qui se superposent sont identiques

Baside

Salut Baside, Salut Alex !

Je viens de te faire un exemple, mais entre temps notre Baside, m'a devancé.... 😉

Je te donne quand-même ce que j'ai fait !

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('B:B')) Is Nothing Then
Dim valeur1 As Integer
Dim p As Integer
Dim Cell As Range
p = ActiveCell.Row - 2
valeur1 = ActiveCell.Offset(-1, 0).Value
For Each Cell In Range('B1:B' & p)
If Cell = valeur1 Then
MsgBox 'Cette valeur existe déjà dans la colonne', vbOKOnly
End If
Next
End If
End Sub


Exemple joint


Bonne journée à vous deux

@ +++

Moa [file name=SiDoublonAlex.zip size=8138]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SiDoublonAlex.zip[/file]

Bonjour Baside et Moa

je vais essayer de mettre en pratique ces codes

encore merci 🙂