Verificateur de saisie unique de numero de facture

Bonjour à tous,

Depuis plusieurs jours je planche sur la possibilité de créer une macro qui va permettre de vérifier la saisie unique de numéro de facture pour éviter de la payer 2 fois.

Pour résumer, si à la saisie du numéro de facture fournisseur, je saisie la même facture, un message d'alerte me disant "attention, vérifier en comptabilité le compte fournisseur ainsi que son numéro de facture".

Je joins le fichier de mon application pour une meilleur compréhension.

Merci par avance pour votre aide précieuse

Cordialement

Pour ceux qui ont rencontré ce problème, la solution est ci-dessous :

Private Sub Valider_Click()

Dim Plage As Range

Dim NumFact As Long

With Worksheets("Liste Facture"): Set Plage = .Range(.Cells(1, 2), .Cells(.Rows.Count, 1).End(xlUp)): End With

NumFact = CLng(Me.NumFacture.Text)

'par contre je souhaiterai que le numéro de facture soit saisi sur la feuille "Liste Facture"

If WorksheetFunction.CountIf(Plage, NumFact) > 0 Then

MsgBox "Le numéro de facture '" & NumFact & "' existe déjà et ne peut être utilisé une seconde fois !"

Else

'si le numéro n'existe pas mais génère un "trou" dans l'incrémentation, l'indique dans le message

'mais permet toutes fois de le valider

If WorksheetFunction.Max(Plage) + 1 < NumFact Then

If MsgBox("Le numéro de facture '" & NumFact & "' ne suis pas de façon logique les autres numéros !" & _

vbCrLf & _

"Ce numéro doit-il être validé ?", vbQuestion + vbYesNo) = vbNo Then Exit Sub

End If

Worksheets("Liste Facture").Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = NumFact

End If

End Sub