Label visible Si :

[sev]

Bonjour ,
Je voudrais rendre visible un label si la valeur d'un textbox est comprise dans un tableau.

Voir fichier ci joint

 

[mromain]

Re : Label visible Si :

bonjour sev,

je te propose ce code :

Private Sub TextBox1_Change()
If Not Sheets("signa").Range("A10:D15").Find(what:=TextBox1.Value, lookat:=xlWhole) Is Nothing Then
    If TextBox1.Text <> vbnothing Then Label1.Visible = True
Else
    Label1.Visible = False
End If
End Sub

a+

 

[JORDAN]

Re : Label visible Si :

Bonjour Sev,

Un petit essai joint
bonne journée


Oups, Bonjour Mromain

 

[job75]

Re : Label visible Si :

Bonjour à tous,

Un peu plus simple :

Private Sub TextBox1_Change()
Label1.Visible = Application.CountIf(Sheets("signa").Range("A10:D15"), TextBox1)
End Sub

Edit : bof, j'avais écrit Count au lieu de CountIf...

A+