Assigner A Plusieurs Textbox La Valeur Visble A True Ou False

Staple1600

XLDnaute Barbatruc

• 14 Juin 2008

• #2

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

Code:

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

 

Dernière édition: 14 Juin 2008

Vote positif 0 Vote négatif

G

GCFRG

XLDnaute Occasionnel

• 14 Juin 2008

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Juin 2008

• #4

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 15 Juin 2008

• #5

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 :

Code:

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

 

Dernière édition: 15 Juin 2008

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 15 Juin 2008

• #6

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

Bonjour,

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

Code:

Me.Frame1.Visible = False

Code:

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

JB

 

Vote positif 0 Vote négatif

G

GCFRG

XLDnaute Occasionnel

• 15 Juin 2008

• #7

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

 

Vote positif 0 Vote négatif