Discussion :

[Ben_kom]

Bonjour à tous
je voudrais incrémenter ce code pour
checkbox2, dtpicker2; etc...
checkbox3,dtpicker3; etc...
etc...
Est-ce possible?
Ben

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
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
        DTPicker1.Visible = True
        DTPicker11.Visible = True
        CheckBox11.Visible = True
        ComboBox1.Visible = True
         Repaint
ElseIf CheckBox1 = False Then
        ComboBox1.Visible = False
        SpinButton1.Visible = False
        TB1.Visible = False
        DTPicker1.Visible = False
        DTPicker10.Visible = False
        CheckBox11.Visible = False
        Repaint
 
 
End If
End Sub

[jordane45]

bonjour,

il faut manipuler les "controls"

exemple:

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
 
Private Sub CommandButton1_Click()
Dim ctrl As Control
 
For Each ctrl In Me.Controls 'on parcour les controls
Debug.Print ctrl.Name
Debug.Print TypeName(ctrl)
If TypeName(ctrl) = "CheckBox" Then
    i = Right(ctrl.Name, 1)
    If Controls("CheckBox" & i).Value = True Then
        Controls("DTPicker" & i).Visible = True
        Controls("CheckBox" & i & i).Visible = True
    Else
        Controls("ComboBox" & i).Visible = False
        'etc...
    End If
End If
Next
End Sub

et également l'éditeur VBE par macro:

[Ben_kom]

bonjour et merci du coup de main.
Néanmoins, j'ai un bug sur:

Code :

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

1
2
 
If Controls("CheckBox" & i).Value = True Then

ça m'affiche "objet spécifié introuvable"

Ben

[Philippe Tulliez]

Bonjour,
Il faut remplacer

Code :

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

i = Right(ctrl.Name, 1)

par

Code :

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

i = Mid(ctrl.Name, Len("CheckBox") + 1)

et tant qu'à faire
Quand on affecte une valeur booléenne à une propriété, je ne vois pas l'intérêt d'utiliser l'instruction SI
Ainsi ce bloc d'instruction

Code :

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

1
2
3
4
5
6
7
If Controls("CheckBox" & i).Value = True Then
        'Controls("DTPicker" & i).Visible = True
        Controls("CheckBox" & i & i).Visible = True
    Else
        'Controls("ComboBox" & i).Visible = False
        'etc...
    End If

Peut être remplacé par

Code :

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

Controls("DTPicker" & i).Visible = Controls("CheckBox" & i).Value

Et si la propriété du premier objet devait prendre la valeur inverse du deuxième, l'instruction serait

Code :

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

Controls("DTPicker" & i).Visible = Not(Controls("CheckBox" & i).Value)

[Ben_kom]

Philippe,

il y a du mieux mais vu que je débute les petits obstacles sont parfois insurmontables.

alors pour ton code équivalent au If then else:

Code :

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

Controls("DTPicker" & i).Visible = Controls("CheckBox" & i).Value

et

Code :

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

Controls("DTPicker" & i).Visible = Not(Controls("CheckBox" & i).Value)

j'arrive pas à l'adapter...

Voici mon code:

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
27
28
29
30
31
32
33
Private Sub commandbutton1_click()
Dim ctrl As Control
 
For Each ctrl In Me.Controls
 
If TypeName(ctrl) = "CheckBox" Then
    i = Mid(ctrl.Name, Len("CheckBox") + 1)
 
'Philippe, le code équivalent au If then else ne fonctionne pas
    'Controls("Checkbox" & i + 10).Visible = Controls("CheckBox" & i).Value
    'Controls("dtpicker" & i + 10).Visible = Controls("CheckBox" & i).Value
    'Controls("dtpicker" & i).Visible = Controls("CheckBox" & i).Value
    'Controls("combobox" & i).Visible = Controls("CheckBox" & i).Value
 
' ça marche    
    If Controls("CheckBox" & i).Value = True Then
        Controls("DTPicker" & i).Visible = True
        Controls("DTPicker" & i + 10).Visible = True
        Controls("CheckBox" & i + 10).Visible = True
        Controls("combobox" & i).Visible = True
        'Controls("CheckBox" & i + 1).Visible = True
        Repaint
'ça marche pô
    'ElseIf Controls("CheckBox" & i).Value = False Then
        'Controls("DTPicker" & i).Visible = False
        'Controls("DTPicker" & i + 10).Visible = False
        'Controls("CheckBox" & i + 10).Visible = False
        'Controls("combobox" & i).Visible = False
    End If
 
End If
Next
End Sub

Avec ce code, les objets s'affichent en fonction des Checkbox sélectionnées.
La manip pour effacer une ligne ne fonctionne pas.

Dans l'idéal, je voudrais me passer du bouton de commande et initier les affichages d'objets sur le changement d'état du checkbox.

Egalement, pour chaque valeur de i, j'affiche un combobox l'un des résultats de cet objet me permet d'afficher une toupie et un textbox.
Comment boucler ces conditions?
Je pensais à quelques choses dans ce genre mais sub combobox1_change()
ne me permet pas d'initier chaque combobox ( il y en a 9).

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
Private Sub ComboBox1_Change()
 
For Each ctrl In Me.Controls
'Debug.Print ctrl.Name
'Debug.Print TypeName(ctrl)
If TypeName(ctrl) = "ComboBox" Then
    i = Mid(ctrl.Name, Len("ComboBox") + 1)
If Controls("ComboBox" & 1).Value = "KNC" Then
                Controls("SpinButton" & 1).Visible = True
                Controls("TB" & 1).Visible = True
    ElseIf Controls("ComboBox" & 1).Value <> "KNC" Then
                Controls("SpinButton" & 1).Visible = False
                Controls("TB" & 1).Visible = False
End If
End Sub

Merci à tous.

Ben

[Philippe Tulliez]

Bonjour,
Si tu veux que la valeur de la propriété d'un objet change au moment où l'on modifie la valeur d'un autre objet, tu dois mettre le code dans la procédure événementielle de ce dernier objet.
Exemple : Pour un contrôle ListBox dont la propriété booléenne Visible prend la même valeur que la propriété Value du contrôle CheckBox.

Code :

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

1
2
3
Private Sub CheckBox1_Click()
  ListBox1.Visible = CheckBox1.Value
End Sub

Dans le cas du contrôle CheckBox, on peut prendre indifféremment la procédure événementielle Click ou Change

Je crois très sincèrement qu'avant de t'attaquer à un UserForm aussi chargé il serait bon que tu te documentes un peu. Il y a sur ce site un tas de tutoriels à lire.
Il serait même préférable dans ce cas précis d'utiliser un module de classe mais évidemment c'est un peu plus complexe à comprendre.