afficher ou non une texbox dans une usf

[argol]

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

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

 

[excalibur]

bonjour tu peus developper un peu ou zipper ton fichier ce code il se trouve ou !!!! dans Private Sub UserForm_Initialize() ou !!! Private Sub TextBox2_Change()??? salutations

 

[Robert]

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

 

[argol]

merci les gars

et surtout merci robet, je sais pas pourquoi non plus mais ça marche tout a faite comme tu me dis de faire

Encore merci et a bientot