afficher ou non une texbox dans une usf

  • Initiateur de la discussion argol
  • Date de début
A

argol

Guest
bonjour a tous,

J'aimerais un ti coup de main sur un morceau de code : morceau de code que j'ai retrouvé dans les archives du forum

j'ai defini la plage a l'initialisation de l'USF

Code:
If TextBox2.Value = '' Then FT1.Visible = flase
 
Dim C As Range 'déclare la variable c
'recherche (dans la plage) de la valeur de la TextBox1 : dans les valeurs, critère: mot entier
With plage
    Set C = .Find(TextBox2.Value, , , xlWhole) 'définit la variable c)
    If C Is Nothing Then 'si recherche infructueuse
        FT1.Visible = True And Int1.Visible = False
    Else 'sinon
        FT1.Visible = False And Int1.Visible = True  'message
    End If 'fin condition
End With

Le probleme est que si on ne trouve pas la valeur, on a bien le bouton Ft1 qui s'affiche mais par contre quand on trouve la valeur, la textbox Int1 ne s'affiche pas par contre le bouton Ft1 disparait bien
 

Robert

XLDnaute Barbatruc
Repose en paix
Salut Argol, Excalibur, salut le forum,

Ne me demande pas pourquoi car je n'ai pas la réponse mais en modifiant ton code :

FT1.Visible = True And Int1.Visible = False
en deux lignes séparées :
FT1.Visible = True
Int1.Visible = False
et Idem pour le Else, ça marche.
moralité : si tu colles Argol, je colle aussi...

p.s. modifie flase en False dans ta première ligne de code
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 010
Membres
101 866
dernier inscrit
XFPRO