Résultat dès la fin de la saisie dans une textbox

[Tophe2]

Bonjour le forum
Voilà j'ai récupéré un code dans un fichier que j'essai d'adapter dans un plus récent :
L'ancien : Lors d'un clic sur le bouton vérifier il recherche les doulons "noms prénoms".
Le nouveau : savoir s'il est possile d'avoir le même résultat sans avoir à cliquer sur le bouton vérifier c'est à dire dès la fin de la saisie dans la textbox2
ci joint le fichier "essai".
Cordialement
Christophe.

 

[skoobi]

Re : Résultat dès la fin de la saisie dans une textbox

Bonjour,

voici une proposition:

Private Sub TextBox2_Change()
Dim Nom As Range, firstAddress As String
If TextBox2.Value <> "" Then
  With Worksheets("Feuil1").Columns(1)
    Set Nom = .Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not Nom Is Nothing Then
      firstAddress = Nom.Address
      Do
        If TextBox2.Value = Nom.Offset(0, 1).Value Then
          MsgBox "Cette personne existe déjà dans la liste.", vbExclamation
          TextBox1.Value = ""
          TextBox2.Value = ""
          Exit Sub
        End If
        Set Nom = .FindNext(Nom)
      Loop While Not Nom Is Nothing And Nom.Address <> firstAddress
    End If
  End With
End If
End Sub