Discussion :

[MADA BLACK]

Bonsoir Forum
Bonsoir tout le monde
SVP si vous pouvez m'aider a faire refresh au Form1 .
Dans mon projet j'ai Form1 et plusieurs Text et plusieurs Combo et Command1.
Lorsque je click sur Command1 alors ces Text et Combo seront vides.
J'ai essaye avec :

Code :

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

1
2
3
4
5
6
Private Sub Command1_Click()
 
Form1.Hide
Form1.Show
 
End Sub

J'ai essaye aussi avec :

Code :

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

1
2
3
4
5
6
Private Sub Command1_Click()
 
Unload Me
Form1.Show
 
End Sub

Mais malheureusement pas de solution
Merci beaucoup d"avance pour l'aide
Cordialement
MADA

[ProgElecT]

Salut

Pour le cas de beaucoup de contrôles

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
Dim MeControl As Control
For Each MeControl In Form1.Controls
    Select Case TypeName(MeControl)
        Case "TextBox": MeControl.Text = "" ' tous les contrôles TextBox sont vidées
        Case "ComboBox", "ListBox": MeControl.Clear ' tous les contrôles ComboBox et ListBox sont vidées
        Case "Label": MeControl.Caption = "" ' tous ......
        Case "CheckBox": MeControl.Value = 0 ' tous les CheckBox sont décochés 
        Case "OptionButton": MeControl.Value = False ' tous les OptionButton sont désélectionnés
    End Select
Next
End Sub

Pour le cas de peu de contrôles

Code :

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

1
2
3
4
5
6
Private Sub Command1_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Clear
End Sub

[MADA BLACK]

Bonjour ProgElecT
Merci beaucoup pour l'aide
Merci pour vos impeccables codes
Parfaitement resolu
Cordialement
MADA