Label visible Si :

sev · 27 Mars 2009

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

Voir fichier ci joint

mromain · 27 Mars 2009

Re : Label visible Si :

bonjour sev,

je te propose ce code :

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 · 27 Mars 2009

Re : Label visible Si :

Bonjour Sev,

Un petit essai joint
bonne journée

Oups, Bonjour Mromain

job75 · 27 Mars 2009

Re : Label visible Si :

Bonjour à tous,

Un peu plus simple :

Code:

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+

Label visible Si :

sev

Guest

Pièces jointes

mromain

XLDnaute Barbatruc

JORDAN

XLDnaute Impliqué

Pièces jointes

job75

XLDnaute Barbatruc

Discussions similaires

Label visible Si :

sev

Guest

Pièces jointes

mromain

XLDnaute Barbatruc

JORDAN

XLDnaute Impliqué

Pièces jointes

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency