Msgbox pour informer qu'il ya un doublon dans une colonne

[gbaneyo]

J'ai crée un formulaire et textbox1 permet de remplir la colonne "A" je voudrais interdire les doublons par un msgbox lorsque je clique sur commandbutton1 pour valider le formulaire

 

[JC de Lorient]

Re : Msgbox pour informer qu'il ya un doublon dans une colonne

salut tout le monde
un bonjour ne coute rien !!!
avec ce code sur le bouton de validation
Private Sub CommandButton1_Click()
Dim c
With Sheets(1).Columns(1) 'recherche dans le feuille 1 colonne A
Set c = .Find(TextBox1)
If Not c Is Nothing Then
MsgBox "la valeur existe"
End If
End With
End Sub