masquer ou rendre visible plusieurs textbox

Bonjour
j'aimerais savoir si il est possible d'écrire plus simplement les lignes ci dessous; c'est à dire masquer ou rendre visible des textbox sans avoir a répéter la commande à chaque fois:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Label_id_airbus.Visible = True id_airbus.Visible = True bt_photos_chariots.Visible = True Label_type_materiel.Visible = True type_materiel.Visible = True Label_num_serie.Visible = False num_serie.Visible = False zone_de_stockage.Visible = False label_zone_de_stockage.Visible = False Option_sortie.Visible = False Option_entree.Visible = False label_destination.Visible = False destination.Visible = False avertissement.Visible = False dernier_mouv_enr.Visible = False mouv_possible.Visible = False bt_eff_obs.Visible = False

---

peut-être les grouper sur deux lignes "true" et "false" ??

Merci pour votre aide

Alain

Bonjour
Je suppose que :
- ce ne sont pas toujours les mêmes, que tu veux montrer
- ceux à cacher sont plus nombreux que ceux à montrer

Je te suggère alors une méthode simple :
- un array de tous les contrôles concernés
- un array des seuls à montrer
et ---->>

Code:

---

1 2 3 4 5 6 7 8

Private Sub onrecommence(mescontroles, mesvisibles) For k = 0 To UBound(mescontroles) mescontroles(k).Visible = False Next For k = 0 To UBound(mesvisibles) mesvisibles(k).Visible = True Next End Sub

---

procédure à appeler ainsi (exemple cachant textbox2 et montrant les deux autres:

Code:

---

1 2 3 4 5

mescontroles = Array(TextBox1, CommandButton1, TextBox2)     mesvisibles = Array(CommandButton1, TextBox1) onrecommence mescontroles, mesvisibles

---

Bonjour à tous,

si ce sont leurs valeurs par défaut (tu fixes leur propriété .visible dans l'éditeur vbe) tu peux faire .unload au lieu du .hide., qu'ils les reprennent avant le .show

Ou bien utiliser la propriété .Tag à ta disposition. Et tu t'en sers dans une boucle générale sur tous les objets concernés.
eric

re
Bonjour oui une boucle sur array de control semble etre la meilleur solution
cependant on peu simplifier la procedure et la transformer (en bascule 3 posiition) visible/invisible/allvisiblecomme l'exemple de unparia mais dans une seule boucle

exemple
pour commencer je me sert non pas d'un array mais d'un string

la sub bascule

Code:

---

1 2 3 4 5

Private Sub visible_YES_NO(invisible) For Each ctrl In Me.Controls If invisible Like "*," & ctrl.Name & ",*" Then ctrl.Visible = False Else ctrl.Visible = True Next End Sub

---

l'appel de la sub qui va basculer ceux qui sont dans le string en invisible et ceux qui n'y sont pas en visible

Code:

---

1 2 3 4

Private Sub vvvv_Click() invisible = ",CommandButton1,TextBox1,TextBox2,CheckBox1," visible_YES_NO invisible End Sub

---

et la position 3 donc tous visible on appelle la sub en injectant un string vide tout simplement

Code:

---

1 2 3

Private Sub CommandButton3_Click() visible_YES_NO vbNullString End Sub

---

petite remarque a la quelle il faut préter attention
commencer et terminer toujours la chaine par une virgule car pour eviter le meprise du genre textbox2,textbox22 ou textbox2,aaatextbox2 la virgule est prise en compte dans le test like

on a ainsi un effet de bascule visible/invisible en un et la possibilité de tout réafficher avec vbnullstring

on pourrait meme ajouter une bascule(4) avec un simple argument en plus c'est le cumul des invisible avec la meme sub

;)

Bonjour

Je vais essayer la solution de Patricktoulon.

Merci à tous . :hola:

Bonne journée

Alain

Bonjour,

Ou encore, utiliser la propriété Tag des contrôles et y stocker l'état voulu :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub UserForm_Initialize()   TextBox1.Tag = True TextBox2.Tag = False TextBox3.Tag = True TextBox4.Tag = False   End Sub   Private Sub CommandButton1_Click()   Dim Ctrl As Control   For Each Ctrl In Me.Controls   If TypeName(Ctrl) = "TextBox" Then   Ctrl.Visible = CBool(Ctrl.Tag) Ctrl.Tag = Not CBool(Ctrl.Tag) 'si invisible, alors visible la fois d'après   End If   Next Ctrl   End Sub

---