Discussion :

[Patouillou]

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 :

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

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

[jurassic pork]

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 :

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

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

[casefayere]

Bonjour
sinon le tout dans une même boucle

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

[Patouillou]

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