controle sur user forme

[LNHDVFR]

Bonjour,
J'ai crée un userforme avec une text box.
Je souhaite vérifier que le code renseigné dans la text box n'est pas déjà présente dans la colonne B.

J'ai commencé ça

Dim controle As Integer

controle = Range("B3").End(xlDown).Row

For Each TextBox1.Value In Range("B" + controle).Value

If TextBox1.Value = controle.Value Then

MsgBox ("les données relatives au code saisi sont déjà existantes. Annuler pour annuler la saisie, Valider pour écraser les données existante")

End If


Mais a mon avis, je me plante vu que ca plante

Merci de votre aide

 

[Pierrot93]

Re : controle sur user forme

Bonjour,

regarde peut être ceci, à adapter à ton projet :

Option Explicit
Private Sub CommandButton1_Click()
Dim x As Range
Set x = Columns(2).Find(TextBox1, , xlValues, xlWhole, , , False)
If x Is Nothing Then
    MsgBox "Non trouvé..."
Else
    MsgBox "Trouvé..."
End If
End Sub

bonne journée
@+

 

[LNHDVFR]

Re : controle sur user forme

Merci bcp Pierrot !!! c'est OK