Assigner A Plusieurs Textbox La Valeur Visble A True Ou False

[GCFRG]

Bonjour le forum, est-ce possible d'assigné en une seule opération la valeur .visible=false/true à plusieurs textbox en une seule opération plutôt que de taper pour chaque textbox me.texbox1.visible = false.
Peut-être en les regroupant en collection ou en groupe, mais là je ne sais pas faire.😕
Si quelqu'un à 1 idée ?
Merci d'avance

Gilbert

 

[Staple1600]

Re : Assigner A Plusieurs Textbox La Valeur Visble A True Ou False

Bonsoir

En bouclant sur les controls
Me.Controls("TextBox" & i).Visible=true

Autre solution

Private Sub UserForm_Click()
Dim Ctrl As Control
For Each Ctrl In Controls
If TypeName(Ctrl) = "TextBox" Then Ctrl.Visible = False
Next Ctrl
End Sub

 

[GCFRG]

Re : Assigner A Plusieurs Textbox La Valeur Visble A True Ou False

Merci JM, dans mon cas la 1ère solution convient parfaitement, toutes mes textbox n'étant pas à planquer,
j'ai écrit
if checkbox10.value = true then
dim i as byte
dim j as byte
For i = 27 To 34
Me.Controls("TextBox" & i).Visible = True
Next i
for j = 40 to 54
Me.Controls("TextBox" & j).Visible = True
Next j
else
For i = 27 To 34
Me.Controls("TextBox" & i).Visible = False
Next i
for j = 40 to 54
Me.Controls("TextBox" & j).Visible = False
Next j
end if

L'autre solution s'applique pour tous les textbox présent dans le USF ou la frame ?
Merci encore.
avec vous j'avance au moins
@+
Gilbert

 

[Staple1600]

Re : Assigner A Plusieurs Textbox La Valeur Visble A True Ou False

Re

Par convention les déclarations se déclarent au début du module

sub toto()
dim i as byte
dim j as byte


L'autre solution prend en compte les controles placés sur l'userform

 

[TooFatBoy]

Re : Assigner A Plusieurs Textbox La Valeur Visble A True Ou False

Exact pour la remarque sur la déclaration des variables. 😉
Surtout que dans le cas présent, les variables ne sont déclarées que si checkbox10.value est égal à True...


En ce qui concerne ton code, le IF me semble inutile et une seule variable suffit :

dim i as byte
For i = 27 To 34
Me.Controls("TextBox" & i).Visible = checkbox10.value
Next i
for i = 40 to 54
Me.Controls("TextBox" & i).Visible = checkbox10.value
Next i

 

[BOISGONTIER]

Re : Assigner A Plusieurs Textbox La Valeur Visble A True Ou False

Bonjour,

Cache tous les contrôles à l'intérieur d'un frame:

Me.Frame1.Visible = False

For Each c In Me.Frame1.Controls
 c.Visible = True
Next c

JB

 

[GCFRG]

Re : Assigner A Plusieurs Textbox La Valeur Visble A True Ou False

Bonjour, à tous, et un grand merci pour toutes vos explications
je vais pouvoir réduire mon code de plusieurs dizaines de lignes, plus j'en apprend, plus mon code se réduit, et devient bien plus "lisible"🙂.

Bon Dimanche

à très bientôt sur le forum
Gilbert