Bonjour,

Je suis en train de travailler sur un fichier excel pour gerer des entrées et sorties a l'aide de code barres

sur une feuille il y a un bouton qui ouvre un UserForm ou l'on tape le code barre. Ce dernier s'inscrit automatiquement sur les lignes de la colonne A. Ensuite un code sur  la feuille detecte les boublon et les effaces.

J'aimerais qu'un Userform ou MsgBox indique qu'un doublon a ete tape, ppour cela pas de souci seulement si une nouvelle entrée apparait et qu'elle n'est pas en doublon j'aimerais avoir un autre userform ou msgbox afin de dire bienvenue

Voici le code vba de ma feuille:

Private Sub Worksheet_Change(ByVal Target As Range)

If flag Then Exit Sub

If Not Application.Intersect(Target, Columns("a")) Is Nothing Then

If Target.Count > 1 Then Exit Sub

If Application.CountIf(Range("a1:a200"), Target) > 1 Then

flag = True

Target.ClearContents

UserForm2.Show

flag = False

End If

End If

End Sub