Discussion :

[chaispas31]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
mescontroles = Array(TextBox1, CommandButton1, TextBox2)
 
 
 mesvisibles = Array(CommandButton1, TextBox1)
 onrecommence mescontroles, mesvisibles

[eriiic]

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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chaispas31]

Bonjour

Je vais essayer la solution de Patricktoulon.

Merci à tous .

Bonne journée

Alain

[Theze]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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