[XL-2007] Empêcher saisie doublon Ligne par Ligne [Résolu]

[borisp]

Bonjour le forum,

Après plusieurs recherches, je me tourne vers votre aide...
Je souhaite empêcher la saisie du même nom 2 fois sur la même ligne sur certaines colonnes seulement. J'ai trouvé du code sur le forum qui fonctionne bien ligne par ligne mais qui prend malheureusement en compte aussi toute la colonne :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim c As Range
If Target.Count > 1 Then Exit Sub
If Target.Column = 28 Or Target.Column = 30 Or Target.Column = 32 Or Target.Column = 36 Or Target.Column = 40 Or Target.Column = 44 Or Target.Column = 48 Or Target.Column = 52 Then
 If Target <> "" Then
  'On colle dans la colonne IV le contenu de la colonne C de la feuil1
 Sheets("Feuil1").Columns(3).Copy Range("IV1")
   Set c = Cells.Find(What:=Target.Text, LookIn:=xlValues, LookAt:=xlWhole)
   If Not c Is Nothing And c.Address = Target.Address Then Set c = Cells.FindNext(c)
     If c.Address <> Target.Address Then
       If c.Column = 256 Then
         MsgBox "Ce code existe déjà en feuil4!C" & c.Row: Target = ""
       Else
         MsgBox "DOUBLON": Target = ""
       End If
     End If
   End If
'puis on efface la colonne IV
 Columns(256).Delete
 End If
End Sub

J'espère avoir été clair...
un GRAND MERCI!

[mercatog]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Pas de doublons sur chaque ligne des colonne de D à G
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Count = 1 Then
    If Target.Value <> "" Then
        If Application.CountIf(Intersect(Target.EntireRow, Range("D:G")), Target.Value) > 1 Then
            Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
            MsgBox "Doublons effacé"
        End If
    End If
End If
End Sub

[borisp]

Merci Mille fois c'est parfait!

[Pierre Fauconnier]

Salut.

Eventuellement, une solution sans VBA est possible, via la validation de données.

Pour appliquer cela sur la plage D:G, tu sélectionnes les colonnes D:G (avec D1 comme cellule active) et tu utilises la validation personnalisée avec la formule suivante :

=(NB.SI($D1:$G1;D1)=1)