Discussion :

[Chicard]

Bonjour,

Peut-on changer les champs d'un usf dynamiquement?

Par exemple, je voudrais que sur un champ de mon usf en rentrant une donné particulière mon usf change en conséquence( rajout de champ,...).

Est-ce que c'est possible?

[casefayere]

Bonsoir,
A la lecture de ta demande, je dirai oui, mais il faut en dire plus et surtout qu'appelles-tu un "champ" dans un USF

[Chicard]

Pour moi un champ dans un usf c'est une combobox, listbox et textbox (c'est celui que j'utilise).

[Didier Gonard]

Bonjour,

http://silkyroad.developpez.com/VBA/...icEditor/#LV-A et autres

cordialement,

Didier

[Chicard]

merci pour la page du tuto mais en fait je cherche à le faire à partir d'un texte bien précis et pas d'un bouton.

C'est surtout pour éviter de trop surcharger mon usf. Sinon on utilisera la ruse en créant un usf de plus.

[Didier Gonard]

Bonjour,

le tuto, c'est pour la création dynamique d'un contrôle, si tu veux analyser le texte d'une textbox, tu utilises un des ses évènementiels genre change, exit etc..

cordialement,

Didier

[patricktoulon]

bonjour

Code :

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

1
2
3
4
Private Sub TextBox1_Change()
If TextBox1.Value = "toto" Then TextBox2.Value = "vous avez tapé toto c'est le bon code"
 
End Sub

au plaisir

[Theze]

Bonjour,

Tu peux aussi les créer à la conception et définir leur propriété "Visible" à False et les afficher quand la condition est remplie. Soit, afin de ne pas trop encombrer ta Form à la création, tu les empile les uns au dessus des autres et avant de les afficher tu les place où tu veux, soit tu les mets à leur place et dans ce cas, il te suffit juste de les rendre visibles ou invisibles selon les besoins :

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
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
    '"Exit" n'est exécuté qu'en quittant le contrôle, "Change"
    'est exécuté à chaque modif dans le contrôle. Choisir en fonction du besoin
    Dim Marge As Integer
    Dim Texte As String
 
    Marge = 10
    Texte = "Ma valeur" 'adapter le texte à comparer
 
    If TextBox1 = Texte Then
 
        With TextBox2
            .Left = TextBox1.Left
            .Top = TextBox1.Top + TextBox1.Height + Marge
            .Visible = True
        End With
 
    Else
 
        TextBox2.Visible = False
 
    End If
 
End Sub

Hervé.

[Chicard]

C'est ce que je vais faire . Merci