Afficher un Label

[sev]

Bonjour à tous,
je voudrais afficher un label si se trouve dans un tableau nommé "Opthor" une valeure identique au textbox9.
J'ai essayé cela , mais cela ne fonctionne pas :

If TextBox9.Value = ("Opthor") Then
Label85.Visible = True

End If

 

[Hulk]

Re : Afficher un Label

Hello,

Je crois que sans les parenthèses ça devrait marcher..

Bonne journée, Hulk.

 

[sev]

Re : Afficher un Label

Quand j'enlève les parenthèse cela me met variable non définie.
Comment dois je la définire ?

 

[aero60]

Re : Afficher un Label

bonjour,
J'ai du mal a comprendre ton problème pourrait tu être plus explicite.
Car si tu retire les parenthèses et que tu écrit cela
If TextBox1.Value = "Opthor" Then
Label1.Visible = True
Else
Label1.Visible = False
End If
sa fonctionne chez moi mais je ne pense pas que cela te soit utile car j'ai du mal à comprendre ce que tu veut faire cette fonction te permet uniquement si tu écrit dans ta textbox Opthor d'afficher ton label,cela correspont il a ce que tu recherche???

 

[Robert]

Re : Afficher un Label

Bonjour le fil, bonjour le forum,

Pas sur d'avoir bien compris mais je verrais plutôt les choses comme ça :

Dim cel As Range
For Each cel In Range("Opthor")
If TextBox9.Value = cel.Value Then
    Label85.Visible = True
    Exit For
End If

 

[sev]

Re : Afficher un Label

Je repose mon problème plus simplement:

Dans un tableau (R57:U61) j'ai inséré un nom : Opthor

Quand la valeur du textbox9 contient une valeur du tableau Opthor je voudrais rendre visible le label 85.

 

[Robert]

Re : Afficher un Label

Bonjour le fil, bonjour le forum,

j'vais donc vu juste mais j'avais oublié un Next Cel à la fin...

For Each Cel In Range("Opthor")
    If TextBox9.Value = Cel.Value Then
        Label85.Visible = True
        Exit For
    End If
Next Cel

 

[Pierrot93]

Re : Afficher un Label

Bonsoir à tous,

peut être comme ceci :

Dim c As Range
Set c = Range("Opthor").Find(textbox9.Value, , xlValues, xlWhole, , , False)
If Not c Is Nothing Then label9.Visible = True

A placer dans le module où se trouve tes objets.

bonne soirée
@+

Aarf désolé pour la collision Robert, bonne soirée

 

[sev]

Re : Afficher un Label

Je ne comprends pas cela ne fonctionne pas chez moi.
J'ai réalisé un extrait de fichier

 

[Pierrot93]

Re : Afficher un Label

Re

nos codes fonctionnent, enfin chez moi(Excel2003), celui de Robert demande une petite adaptation, étant donné le type de donnée dans la cellule :

    If Val(TextBox1.Value) = cel.Value Then

@+