Discussion :

[SpaceX]

Bonjour,

J'aimerai savoir s'il est possible d'afficher plusieurs textbox "saisissable" en fonction du nombre saisie dans un textbox.

Par exemple, je rentre la valeurs 2 dans une textbox qui s'appelle "nombre de couche" et donc j'aimerai avoir 2 textbox qui s'affiche à la suite dans mon userform pour entrer des valeurs etc...

Merci d'avance.

[mattgui]

Bonjour,

Cela est possible, il faut que tu crée d'abord toutes les textboxs possibles dans ton userform en mettant leur propriété .visible à false.
Puis tu pourras jouer avec la propriété .visible pour afficher le nombre de textbox en fonction de la saisie que tu auras dans ta textbox

Cdt,

Matt

[Transitoire]

Bonsoir,
on peut aussi mettre Dans un userform dix textbox et ne faire apparaitre que le premier qui s'appelle choix des couches et suivant le nombres que l'on entre le userform va s'agrandir découvrant ceux qui sont cachés grace au .height = ? . c'est un effet sympa car le Userform est toujours équilibré esthétiquement.
Enfin moi ce que j'en dit?

[SpaceX]

Bonsoir,
on peut aussi mettre Dans un userform dix textbox et ne faire apparaitre que le premier qui s'appelle choix des couches et suivant le nombres que l'on entre le userform va s'agrandir découvrant ceux qui sont cachés grace au .height = ? . c'est un effet sympa car le Userform est toujours équilibré esthétiquement.
Enfin moi ce que j'en dit?

Salut Transitoire,

C'est exactement ce que je cherche, pourrais-tu m'envoyer ton modèle pour que je puisse me baser dessus stp ?

Merci.

[SpaceX]

Bonjour,

Cela est possible, il faut que tu crée d'abord toutes les textboxs possibles dans ton userform en mettant leur propriété .visible à false.
Puis tu pourras jouer avec la propriété .visible pour afficher le nombre de textbox en fonction de la saisie que tu auras dans ta textbox

Cdt,

Matt

Merci du conseil !

[Transitoire]

Bonjour,
ci dessous, le modèle.
a mettre à votre gout, y compris au niveau des macros (je ne suis pas du tout au niveau des pro du forum, mais ça marche quand même).
Cordialement





Test-TextboxsSaisissables.xlsm

[SpaceX]

Bonjour,

Cela est possible, il faut que tu crée d'abord toutes les textboxs possibles dans ton userform en mettant leur propriété .visible à false.
Puis tu pourras jouer avec la propriété .visible pour afficher le nombre de textbox en fonction de la saisie que tu auras dans ta textbox

Cdt,

Matt

Salut,

Finalement, c'est plus ta technique d'approche qui m'intéresse mais au final je me retrouve avec plus de 90 lignes de codes et cela devient ingérable :

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
Private Sub txt_nbrCouche_Change()
    Dim nbrCouche As String
    nbrCouche = txt_nbrCouche.Value
 
    If txt_nbrCouche.Value = 1 Then
    ep_c1.Visible = True
    tg_c1.Visible = True
ElseIf txt_nbrCouche.Value = 2 Then
    ep_c1.Visible = True
    tg_c1.Visible = True
    ep_c2.Visible = True
    tg_c2.Visible = True
ElseIf txt_nbrCouche.Value = 3 Then
    ep_c1.Visible = True
    tg_c1.Visible = True
    ep_c2.Visible = True
    tg_c2.Visible = True
    ep_c3.Visible = True
    tg_c3.Visible = True
ElseIf txt_nbrCouche.Value = 4 Then
    ep_c1.Visible = True
    tg_c1.Visible = True
    ep_c2.Visible = True
    tg_c2.Visible = True
    ep_c3.Visible = True
    tg_c3.Visible = True
    ep_c4.Visible = True
    tg_c4.Visible = True
ElseIf txt_nbrCouche.Value = 5 Then
    ep_c1.Visible = True
    tg_c1.Visible = True
    ep_c2.Visible = True
    tg_c2.Visible = True
    ep_c3.Visible = True
    tg_c3.Visible = True
    ep_c4.Visible = True
    tg_c4.Visible = True
    ep_c5.Visible = True
    tg_c5.Visible = True
ElseIf txt_nbrCouche.Value = 6 Then
    ep_c1.Visible = True
    tg_c1.Visible = True
    ep_c2.Visible = True
    tg_c2.Visible = True
    ep_c3.Visible = True
    tg_c3.Visible = True
    ep_c4.Visible = True
    tg_c4.Visible = True
    ep_c5.Visible = True
    tg_c5.Visible = True
    ep_c6.Visible = True
    tg_c6.Visible = True
ElseIf txt_nbrCouche.Value = 7 Then
 
 ... 
 
 
ElseIf txt_nbrCouche.Value > 13 Then
    MsgBox "Il n'a que neuf possibilités ! "
    txt_nbrCouche.Value = ""
    ep_c12.Visible = True
    tg_c12.Visible = True
End If

Y'a t-il un moyen un peu moins répétitive ?

De plus, si je me trompe du nombre de couches à saisir, je dois relancer ma macro.