salut tt lmnde

J'ai un petit probleme que je n'arrive pas a resoudre je vous demande svp de l'aide et merci.

Comment faire une boucle qui n'autorise qu'un seul enregistrement c a dire, si le nom saisi dans la textbox1 se trouve déja dans la liste alors affiche un message exple "ce nom existe;saisissez un autre" j'ain essayé ça mais je n'ai pas réussi

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Dim x As Integer
     'Boucle de 1 à 100
    For x = 1 To 100
        'On sort de la boucle si la cellule testée contient la meme Valeur       que textbox1
 
        If  (Cells(x, 1)) .value=textbox1.value
        Then Exit For
        affiche un message
        msgbox" Ce nom existe, veuillez saisir un autre"
et vider textbox1 
        textbox1.value=""
    Next x
2/ question: Comment vider touts les textbox dans un USF sauf une (affiche la date)
Merci pour votre