textbox et enabled

[GHISLAIN]

bonjour a tous,

j'utilise sur un user 100 textbox que je debloque avec la macro suivante :

For i = 1 To 100
Me.Controls("TEXTBOX" & i).Enabled = True
Next i

je souhaite toutfois ne debloquer que les textbox differente de : "titi" ou "toto" ou "tintin"

If Me.Controls("TEXTBOX" & i) = "titi" or Me.Controls("TEXTBOX" & i) = "toto" Me.Controls("TEXTBOX" & i) = "tintin" Then Me.Controls("TEXTBOX" & i).Enabled = False

mais sans résultat

merci de votre aide et suggestion

amicalement

Ghislain

 

[GHISLAIN]

Re : textbox et enabled

bonjour jean marcel,

merci de passer sur mon fil ,
je viens de tester cette solution qui fonctionne parfaitement

merci a toi
amicalement

Ghislain

 

[Si...]

Re : textbox et enabled

salut
un peu plus court

  Dim i As Byte
  For i = 1 To 100
    Me("TextBox" & i).Enabled = Me("TextBox" & i) <> "Toto" And  Me("TextBox" & i) <> "Titi"
  Next i

 

[laetitia90]

Re : textbox et enabled

bonjour tous 🙂🙂🙂🙂
dans certains cas on peut utilser TypeOf ou TypeName

 Dim j As Control
 For Each j In Controls
 If TypeOf j Is MSForms.TextBox And j <> "toto" And j <> "titi" Then j.Enabled = True
 Next

avec TypeName

If TypeName(j) = "TextBox" And j <> "toto" And j <> "titi" Then j.Enabled = True

ou encore pas sur?? faudrait tester mais plus le temps

j.Enabled = TypeName(j) = "TextBox" And j <> "toto" And j <> "titi"

 

[YANN-56]

Re : textbox et enabled

Bonsoir à tous,

Il y a aussi une autre solution qui ne va pas affubler une apparence floue aux TextBoxes:
(On peut y entrer, mais rien n'est actif)

Me.Controls("TextBox" & 1).Locked = True

Amicalement,

Yann