Incrementer un code avec des objets

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

Code:

---

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

---

bonjour,

il faut manipuler les "controls"

exemple:

Code:

---

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:

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

Code:

---

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

---

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

Ben

Bonjour,
Il faut remplacer

Code:

---

i = Right(ctrl.Name, 1)

---

par

Code:

---

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:

---

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:

---

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:

---

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

---

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:

---

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

---

et

Code:

---

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

---

j'arrive pas à l'adapter...

Voici mon code:

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 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:

---

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

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:

---

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.

En effet, je vais simplifier le projet.
Je simplifierai mon code quand j'aurai plus de connaissances.

Merci Jordane et Phillipe pour votre aide
Merci à tous


I'll be back :D

Ben