Interdire les doublons d'un userform

Bonsoir à vous

J'ai un userform qui alimente une base de données.

Comment interdire l'ajout d'un enregistrement de doublon sur 2 colonnes (date+ID) ?

J'ai bien vu les solutions à base de validation de données mais j'aimerais avoir l'alerte à la saisie...

Merci à vous et bonne soirée !

Bonjour

Tu devrais joindre un fichier et expliquer par l'exemple ce que tu veux obtenir.

Bye !

Bonjour Olive, bonjour le forum,

Époque des Watermelon mais pas In Easter Hay...

Pour les dates c'est un peu plus compliqué car elle peuvent s'écrire avec des format différents. J'imagine que tu parles de TextBoxes. Essaie ça pour l'ID :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'à la sortie de la TextBox1
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim COL As Byte 'déclare la variable COL (COLonne)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
COL = 1 'définit la colonne COL (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, COL).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne COL de l'onglet O
TV = O.Range(O.Cells(1, COL), O.Cells(DL, COL)) 'définit le tableau des valeurs TV
For I = 1 To DL 'boucles sur toutes les lignes I du tableau des valeurs TV
    If CStr(TV(I, 1)) = Me.TextBox1.Value Then 'si la donnée de la boucle (convertie en texte) est égale à la valeur de la TextBox1
        Cancel = True 'annule la sortie de la TextBox1
        MsgBox "Existe déjà ! Veuillez ressaisir." 'message
        With Me.TextBox1 'prend en compte la TextBox1
            .SelStart = 0 'début de la sélection
            .SelLength = Len(.Value) 'longueur de la sélection
        End With 'fin de la prise en compte de la TextBox1
        Exit For 'sort de la boucle
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub

Pour les dates donne-nous le format que tu utilises pour adapter le code...

[Édition]

Bonjour Gmb, nos post se sont croisés...

Salut TauThème, salut les gens,

Je vous joins l'objet du délit, svp ne faites pas attention au code "bordélique", je débute et je tenterai de l'épurer plus tard,

Pour le moment j'essaie de dégrossir, y a plein de btns qui ne fonctionnent pas encore etc...

Donc l'idée c'est, dans l'userform,

de ne pas pouvoir saisir deux dates identiques pour un même salarié, donc un truc à faire sur la date, et, soit l'ID, soit le nom (bien qu'on ait des jumeaux en ce moment )

Si vous ne trouvez pas le bouton dans ce fouillis, je suis pas loin

ps: Ayé tu me l'as mise dans la tête pour la soirée là

A masterpiece !

Bonne soirée à vous

Début de solution trouvé peut-être avec un nouveau champs concaténant date+nom+prénom ?

J'ai tenté le nb.si($A$1:$A$50;$A1)=1 en validation des données mais ça ne me contente pas, j'aimerais avoir l'alerte à la saisie.

J'ai tenté d'adapter ton code TauThème, mais rien n'y fit !

Un truc style recherchev en vba ?

Bonne fin de soirée

Une proposition pour ajouter un personnel.

Cela te convient-il ?

Bye !

Wow ça me convient plus plus

Je vais décortiquer tout ça, j'ai vu des choses que je ne connais pas encore et qui semblent bien pratiques !!

Merci beaucoup pour ce gros coup de main gmb !!!

Et une très bonne journée