Recherche si donnée existe

[Alex]

Bonjour à tous

J'ai un petit problème en VBA.

J'aimerais dans une textbox écrire un texte puis contrôler si la donnée existe dans la colonne Excel correspondante avant de continuer le code, sinon message (donnée inexistante).
Je tourne autour d'un code mais je n'arrive pas à le faire marcher correctement.

merci pour votre aide
A+

 

[PascalXLD]

Bonjour

un code du genre

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim c As Range
Set c = Range('A1:A' & Range('A65536').End(xlUp).Row).Find(Me.TextBox1.Value, lookat:=xlWhole)
If c Is Nothing Then MsgBox 'erreur'

End Sub

 

[Alex]

Merci Pascal76

Je vais essayer ce code

A+

 

[Alex]

Merci Pascal

ça marche très bien