Afficher une liste de textbox saisisable en fonction d'un textbox

Version imprimable

09/03/2018, 12h18
SpaceX

Afficher une liste de textbox saisisable en fonction d'un textbox

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.
09/03/2018, 12h23
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
11/03/2018, 20h43
Transitoire

3 pièce(s) jointe(s)

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

Pièce jointe 359192 Pièce jointe 359197 Pièce jointe 359202
12/03/2018, 08h44
SpaceX

Citation:

Envoyé par 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? :P

Pièce jointe 359192 Pièce jointe 359197 Pièce jointe 359202

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.
12/03/2018, 08h45
SpaceX

Citation:

Envoyé par 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

Merci du conseil !
12/03/2018, 11h11
Transitoire

1 pièce(s) jointe(s)

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

Pièce jointe 359283

Citation:

Envoyé par 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

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:

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.