Détection des doublons et messag d'alerte

[chris6999]

Bonsoir

Pour éviter la saisie de données en double dans un tableau, je souhaiterais mettre en place une macro qui se lancerait lors de la saisie dans la colonne C (de type Private Sub Worksheet_Change(ByVal Target As Range))

Il s'agirait d'une recherche de doublon par rapport à la valeur saisie (il s'agit d'une date de naissance). La recherche doit se faire sur toutes les cellules de la colonne C qui précèdent ma ligne active.
Si aucun doublon détecté "ne rien faire"
En cas de doublon identifié, afficher un COMBOX avec message d'alerte.

J'ai trouvé pas mal de macros sur la suppression des doublons mais ce n'est pas exactement ce que je souhaite.

Auriez-vous une idée ?
je mets un petit fichier test en pièce jointe
Merci d'avance

 

[Papou-net]

Re : Détection des doublons et messag d'alerte

Bonsoir Chris,

Voici ton fichier modifié.

Pour simplifier la comparaison des dates, j'ai modifié le format de le colonne C (années sur 4 chiffres).

Espérant avoir répondu.

Cordialement.

 

[JCGL]

Re : Détection des doublons et messag d'alerte

Bonjour à tous,
Salut Papou-Net :

Par la validation de Données :



et



La saisie d'un doublon est impossible...

A + à tous

 

[phlaurent55]

Re : Détection des doublons et messag d'alerte

Bonjour à tous,

Il s'agirait d'une recherche de doublon par rapport à la valeur saisie (il s'agit d'une date de naissance). La recherche doit se faire sur toutes les cellules de la colonne C qui précèdent ma ligne active.
Si aucun doublon détecté "ne rien faire"
En cas de doublon identifié, afficher un COMBOX avec message d'alerte.

J'hésite depuis un petit moment à répondre sur ce fil, la question ne serait-elle pas mal posée ?

Si j'ai bien compris,
il ne peut y avoir 2 personnes sur terre (ou dans le fichier) qui puissent avoir la même date de naissance 😕😕😕



à+
Philippe

 

[Si...]

Re : Détection des doublons et messag d'alerte

salut Tous

Si... tu veux tester les 3 données (nom, prénom et date même après copier/coller) essaie

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim dl As Long, C As Range
  dl = Cells(Rows.Count, 1).End(xlUp).Row
  If Intersect(Target, Range("C7:C" & dl)) Is Nothing Then Exit Sub
  For Each C In Selection
    For l = 7 To dl
      If Cells(l, 3) = C Then
        If Cells(l, 2) = C.Offset(, -1) Then
          If Cells(l, 1) = C.Offset(, -2) Then
            MsgBox "membre déjà présent.", vbCritical, "Saisie refusée"
            Application.EnableEvents = False
            Range("A" & C.Row).Resize(1, 3).ClearContents
            Range("A" & C.Row).Select
            Application.EnableEvents = True
            Exit Sub
          End If
        End If
      End If
    Next
  Next
End Sub

 

[chris6999]

Re : Détection des doublons et messag d'alerte

Merci à tous pour vos réponses aussi pertinentes que variées
Je vais tester tout ça
Bonne soirée