XL 2019 Eviter les doublons

[KHEROUBI]

Bonjour internautes
J'ai deux feuilles, une pour la saisie des données , l'autre pour enregistrer ces données.
1/ J'ai fais un petit programme pour éviter les doublons sur le numéro de la facture mais sa ne marche pas bien.
2/ et comment faire pour la même chose du numéro du BL.
Merci pour l'aide

 

[patricktoulon]

Bonjour a tous
n'aurait on pas pu l’écrire comme suit finalement
a fin de ne pas avoir un numéro de BL et Numéro de facture identique dans le tableau

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column <> 1 And .Column <> 3 Then Exit Sub
        If .Count > 1 Then Exit Sub
        If .Value = "" Or [B2] = "" Then Exit Sub
        If WorksheetFunction.CountIf(Sheets([B2].Value).Range("A:B"), Target) = 0 Then Exit Sub
        MsgBox "le n° " & target & " est déjà saisi.", 48, "pas accepté :"
        Application.EnableEvents = 0: .Value = ""
        Application.EnableEvents = -1
    End With
End Sub

 

[KHEROUBI]

Bonjour patrickoulon,
merci pour votre programme mais il y a un ref qui n'est pas déclaré
merci

 

[patricktoulon]

Bonjour @KHEROUBI
oui oupss autant pour moi il n'est pas utile de savoir si c'est un bl ou un num facture
puisque il est testé en colonne A et B
il n'y a donc aucune chance de saisir 2 fois le même numéro dans le tableau en A:B
j'ai corrigé mille excuses

 

[KHEROUBI]

Merci Soan et patricktoulon pour vos réactions. Tous vos programmes sont bonnes