Recherche un mot

Bonjour.

Lors des saisies qu'effectue l'utilisateur dans ma macro,

1-je souhaite qu'un message apparaisse si ces mots existent déjà : ma macro ne retourne rien,

2- encore plus dur, je souhaite qu'un message apparaissent dès qu'un mot ressemble, c'est à dire que 5 caractères soient rangés à la suite dans le même ordre que les mots existants dans la base.

3-je souhaite que la recherche ne tienne pas compte de la casse, ni des espaces et saississe dans la base feuille "Dico" le mot en miniscule.

Merci de votre aide.

Sub Saisir()
Dim lg As Long
With Sheets("Dico")
lg = 1
    Do Until .Cells(lg, gb).Value = ""
    lg = lg + 1
    Loop
        .Cells(lg, gb).Value = mot1 'Copie en 1,1
        .Cells(lg, fr).Value = mot2
End With
End Sub

Sub ctrl_existance()
Dim i, lig As Long
lig = total_saisi + 5
'compte le nombre de ligne correspondant aux nombre de mots présents dans la base.
With Sheets("Dico")
For i = 1 To lig
        If mot1 = .Cells(lig, gb).Value Or mot2 = .Cells(lig, fr).Value Then
        MsgBox ("Vous avez déjà saisi ces 2 valeurs")
        End If
Next i
End With
End Sub

Le tout étant lancé avec :

Sub CommandButton1_Click()
mot1 = TextBox1.Value 'Copie en 1,1
mot2 = TextBox2.Value
Saisir
ctrl_existance
Me.TextBox1 = ""
Me.TextBox2 = ""
TextBox1.SetFocus
'place le curdeur sur textbox1
End Sub

Bonjour

Avec le mot de passe déjà pour commencer

Bonjour.

Excuses moi, c'est Alain le mot de passe.

Bonjour

Un essai

Merci beacoup,

Oui ça marche. Je vais essayer de comprendre.