Je n'ai pas du tout l'habitude de faire des collections mais je me dis que
c'est le moment ou jamais.
J'ai 12 textbox et je voudrais changer la propriété locked de celle-ci en
meme temps.
Je n'arrive pas à trouver un exemple pour m'aider à comprendre.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
bonjour
dans un userform contenant des textbox, une solution parmi d'autres,cette proc bloquera tous les textboxes. Penser aussi à typename(ctrl) si on le souhaite
With Me
For Each ctrl In .Controls If TypeOf ctrl Is MSForms.TextBox Then ctrl.Locked = True Next
End With
si c'est dans une feuille et que c'est un controleActiveX mais y'a d'autres soluces plus simples
For Each s In ActiveSheet.Shapes If s.Type = msoOLEControlObject And s.OLEFormat.Object.ProgId = "Forms.TextBox.1" Then s.OLEFormat.Object.Enabled = True End If Next
tu peux bien sur faire un critère de plus sur le nom du textbox
A+
Bonsoir,
Je n'ai pas du tout l'habitude de faire des collections mais je me dis que c'est le moment ou jamais. J'ai 12 textbox et je voudrais changer la propriété locked de celle-ci en meme temps.
Je n'arrive pas à trouver un exemple pour m'aider à comprendre.
D'avance merci
Choko
bonjour
dans un userform contenant des textbox, une solution parmi
d'autres,cette proc bloquera tous les textboxes. Penser aussi à
typename(ctrl) si on le souhaite
With Me
For Each ctrl In .Controls
If TypeOf ctrl Is MSForms.TextBox Then ctrl.Locked = True
Next
End With
si c'est dans une feuille et que c'est un controleActiveX mais y'a
d'autres soluces plus simples
For Each s In ActiveSheet.Shapes
If s.Type = msoOLEControlObject And s.OLEFormat.Object.ProgId =
"Forms.TextBox.1" Then
s.OLEFormat.Object.Enabled = True
End If
Next
tu peux bien sur faire un critère de plus sur le nom du textbox
A+
Bonsoir,
Je n'ai pas du tout l'habitude de faire des collections mais je me dis que
c'est le moment ou jamais.
J'ai 12 textbox et je voudrais changer la propriété locked de celle-ci en
meme temps.
Je n'arrive pas à trouver un exemple pour m'aider à comprendre.
dans un userform contenant des textbox, une solution parmi d'autres,cette proc bloquera tous les textboxes. Penser aussi à typename(ctrl) si on le souhaite
With Me
For Each ctrl In .Controls If TypeOf ctrl Is MSForms.TextBox Then ctrl.Locked = True Next
End With
si c'est dans une feuille et que c'est un controleActiveX mais y'a d'autres soluces plus simples
For Each s In ActiveSheet.Shapes If s.Type = msoOLEControlObject And s.OLEFormat.Object.ProgId = "Forms.TextBox.1" Then s.OLEFormat.Object.Enabled = True End If Next
tu peux bien sur faire un critère de plus sur le nom du textbox
A+
Bonsoir,
Je n'ai pas du tout l'habitude de faire des collections mais je me dis que c'est le moment ou jamais. J'ai 12 textbox et je voudrais changer la propriété locked de celle-ci en meme temps.
Je n'arrive pas à trouver un exemple pour m'aider à comprendre.
D'avance merci
Choko
michdenis
Bonjour Choko,
Dans un formulaire, tu peux utiliser ceci ... si les index de tes textbox se suivent :
'-------------------- For a = 1 To 12 Controls("Textbox" & a).Locked = True Next '--------------------
Salutations!
"choko" a écrit dans le message de news: % Bonsoir,
Je n'ai pas du tout l'habitude de faire des collections mais je me dis que c'est le moment ou jamais. J'ai 12 textbox et je voudrais changer la propriété locked de celle-ci en meme temps.
Je n'arrive pas à trouver un exemple pour m'aider à comprendre.
D'avance merci
Choko
Bonjour Choko,
Dans un formulaire, tu peux utiliser ceci ... si les index de tes textbox se suivent :
'--------------------
For a = 1 To 12
Controls("Textbox" & a).Locked = True
Next
'--------------------
Salutations!
"choko" <choko04@yahoo.fr> a écrit dans le message de news: %23C7czDIuFHA.3500@TK2MSFTNGP09.phx.gbl...
Bonsoir,
Je n'ai pas du tout l'habitude de faire des collections mais je me dis que
c'est le moment ou jamais.
J'ai 12 textbox et je voudrais changer la propriété locked de celle-ci en
meme temps.
Je n'arrive pas à trouver un exemple pour m'aider à comprendre.
Dans un formulaire, tu peux utiliser ceci ... si les index de tes textbox se suivent :
'-------------------- For a = 1 To 12 Controls("Textbox" & a).Locked = True Next '--------------------
Salutations!
"choko" a écrit dans le message de news: % Bonsoir,
Je n'ai pas du tout l'habitude de faire des collections mais je me dis que c'est le moment ou jamais. J'ai 12 textbox et je voudrais changer la propriété locked de celle-ci en meme temps.
Je n'arrive pas à trouver un exemple pour m'aider à comprendre.
