Simplification/Optimisation du code

Bonsoir,

J'en viens a vous pour m'aider a simplifier mon code vba ...
Tout mon code fonctionne très bien , mais il est très lourd...
Je pense que cela est simplifiable mais je ne sais pas du tout comment faire ...
Je vous présente ci-dessous les """formules""" qui sont a simplifier :

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 34 35 36 37 38 39 40 41 42 43 44 45 46 47

CommandButton6.Visible = False Label3.Visible = False ComboBox12.Visible = False TextBox2.Visible = True TextBox3.Visible = True TextBox4.Visible = True TextBox5.Visible = True TextBox6.Visible = True TextBox7.Visible = True TextBox8.Visible = True TextBox9.Visible = True TextBox10.Visible = True TextBox11.Visible = True TextBox12.Visible = True TextBox13.Visible = True TextBox14.Visible = True TextBox15.Visible = True TextBox16.Visible = True TextBox17.Visible = True TextBox18.Visible = True TextBox19.Visible = True TextBox20.Visible = True TextBox21.Visible = True CommandButton4.Visible = True CommandButton2.Visible = True Label1.Visible = True Label2.Visible = True CheckBox1.Visible = True CheckBox2.Visible = True CheckBox3.Visible = True CheckBox4.Visible = True CheckBox5.Visible = True CheckBox6.Visible = True CheckBox7.Visible = True CheckBox8.Visible = True CheckBox9.Visible = True CheckBox10.Visible = True CheckBox11.Visible = True CheckBox12.Visible = True CheckBox13.Visible = True CheckBox14.Visible = True CheckBox15.Visible = True CheckBox16.Visible = True CheckBox17.Visible = True CheckBox18.Visible = True CheckBox19.Visible = True CheckBox20.Visible = True

---

Qui me permet d'afficher c'est checkbox et textbox après un bouton du même userform.

J'ai également un code qui récupère des valeur de cellule allant de A2 à A21 et qui les place dans les textBox allant elles aussi de 2 a 21

Code:

---

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

TextBox2.Value = Range("A2") TextBox3.Value = Range("A3") TextBox4.Value = Range("A4") TextBox5.Value = Range("A5") TextBox6.Value = Range("A6") TextBox7.Value = Range("A7") TextBox8.Value = Range("A8") TextBox9.Value = Range("A9") TextBox10.Value = Range("A10") TextBox11.Value = Range("A11") TextBox12.Value = Range("A12") TextBox13.Value = Range("A13") TextBox14.Value = Range("A14") TextBox15.Value = Range("A15") TextBox16.Value = Range("A16") TextBox17.Value = Range("A17") TextBox18.Value = Range("A18") TextBox19.Value = Range("A29") TextBox20.Value = Range("A20") TextBox21.Value = Range("A21")

---

Etant donné que j'ai 16 fois cela à faire , c'est une peu lourd ... Y a-t-il moyen de simplifier cela ?
Merci à vous!
Bonne soirée

hello,
pour la première question , tu peux essayer de regrouper tous les contrôles dont la visibilité doit être commandée en même temps dans un cadre (frame). Il suffira alors de jouer sur la propriété visible de ce cadre pour afficher ou cacher tous les contrôles qui se trouvent dedans.
Pour la deuxième question tu peux essayer un truc du genre :

Code:

---

1 2 3 4

Dim x As Integer For x = 2 To 21 Controls("TextBox" & x) = Range("A" & x) Next x

---

Ami calmant, J.P

Bonjour
sinon le tout dans une même boucle

Code:

---

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

Option Explicit Sub'.......... Dim i As Integer   CommandButton6.Visible = False Label3.Visible = False ComboBox12.Visible = False For i = 2 To 21 Me.Controls("TextBox" & i).Visible = True Me.Controls("TextBox" & i) = Range("A" & i) Me.Controls("CheckBox" & i - 1).Visible = True Next i CommandButton4.Visible = True CommandButton2.Visible = True Label1.Visible = True   End Sub

---

si 2 codes différents, il faudra adapter

Bonjour à vous deux !
Merci pour vos réponses , elle fonctionnent toutes les deux!
Bonne soirée à vous !