Voilà, j'ai fait un UserForm avec des TextBox, des ComboBox et des
CommandButton. J'aimerais que lorsque je clique sur le CommandButton
"Effacer", tout ce qui a été tapé ou sélectionné (dans les TextBox et les
ComboBox) s'efface. Comment faire?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. me.combobox1.value = "" me.textbox1.value = "" etc. Cordialement. Daniel "YeTi" a écrit dans le message de news:
Bonjour,
Voilà, j'ai fait un UserForm avec des TextBox, des ComboBox et des CommandButton. J'aimerais que lorsque je clique sur le CommandButton "Effacer", tout ce qui a été tapé ou sélectionné (dans les TextBox et les ComboBox) s'efface. Comment faire?
Bonjour.
me.combobox1.value = ""
me.textbox1.value = ""
etc.
Cordialement.
Daniel
"YeTi" <YeTi@discussions.microsoft.com> a écrit dans le message de news:
D789FEE9-8959-4395-94AA-3EF558A9A6D8@microsoft.com...
Bonjour,
Voilà, j'ai fait un UserForm avec des TextBox, des ComboBox et des
CommandButton. J'aimerais que lorsque je clique sur le CommandButton
"Effacer", tout ce qui a été tapé ou sélectionné (dans les TextBox et les
ComboBox) s'efface. Comment faire?
Bonjour. me.combobox1.value = "" me.textbox1.value = "" etc. Cordialement. Daniel "YeTi" a écrit dans le message de news:
Bonjour,
Voilà, j'ai fait un UserForm avec des TextBox, des ComboBox et des CommandButton. J'aimerais que lorsque je clique sur le CommandButton "Effacer", tout ce qui a été tapé ou sélectionné (dans les TextBox et les ComboBox) s'efface. Comment faire?
Private Sub B_raz_Click() Dim c As Control For Each c In Me.Controls Select Case TypeName(c) Case "TextBox" c.Value = "" Case "CheckBox" c.Value = False Case "ListBox", "ComboBox" c.ListIndex = -1 End Select Next c End Sub
JB On 19 mar, 11:22, YeTi wrote:
Bonjour,
Voilà, j'ai fait un UserForm avec des TextBox, des ComboBox et des CommandButton. J'aimerais que lorsque je clique sur le CommandButton "Effacer", tout ce qui a été tapé ou sélectionné (dans les Text Box et les ComboBox) s'efface. Comment faire?
Private Sub B_raz_Click()
Dim c As Control
For Each c In Me.Controls
Select Case TypeName(c)
Case "TextBox"
c.Value = ""
Case "CheckBox"
c.Value = False
Case "ListBox", "ComboBox"
c.ListIndex = -1
End Select
Next c
End Sub
JB
On 19 mar, 11:22, YeTi <Y...@discussions.microsoft.com> wrote:
Bonjour,
Voilà, j'ai fait un UserForm avec des TextBox, des ComboBox et des
CommandButton. J'aimerais que lorsque je clique sur le CommandButton
"Effacer", tout ce qui a été tapé ou sélectionné (dans les Text Box et les
ComboBox) s'efface. Comment faire?
Private Sub B_raz_Click() Dim c As Control For Each c In Me.Controls Select Case TypeName(c) Case "TextBox" c.Value = "" Case "CheckBox" c.Value = False Case "ListBox", "ComboBox" c.ListIndex = -1 End Select Next c End Sub
JB On 19 mar, 11:22, YeTi wrote:
Bonjour,
Voilà, j'ai fait un UserForm avec des TextBox, des ComboBox et des CommandButton. J'aimerais que lorsque je clique sur le CommandButton "Effacer", tout ce qui a été tapé ou sélectionné (dans les Text Box et les ComboBox) s'efface. Comment faire?
Private Sub B_raz_Click() Dim c As Control For Each c In Me.Controls Select Case TypeName(c) Case "TextBox" c.Value = "" Case "CheckBox" c.Value = False Case "ListBox", "ComboBox" c.ListIndex = -1 End Select Next c End Sub
JB On 19 mar, 11:22, YeTi wrote:
Bonjour,
Voilà, j'ai fait un UserForm avec des TextBox, des ComboBox et des CommandButton. J'aimerais que lorsque je clique sur le CommandButton "Effacer", tout ce qui a été tapé ou sélectionné (dans les TextBox et les ComboBox) s'efface. Comment faire?
Private Sub B_raz_Click()
Dim c As Control
For Each c In Me.Controls
Select Case TypeName(c)
Case "TextBox"
c.Value = ""
Case "CheckBox"
c.Value = False
Case "ListBox", "ComboBox"
c.ListIndex = -1
End Select
Next c
End Sub
JB
On 19 mar, 11:22, YeTi <Y...@discussions.microsoft.com> wrote:
Bonjour,
Voilà, j'ai fait un UserForm avec des TextBox, des ComboBox et des
CommandButton. J'aimerais que lorsque je clique sur le CommandButton
"Effacer", tout ce qui a été tapé ou sélectionné (dans les TextBox et les
ComboBox) s'efface. Comment faire?
Private Sub B_raz_Click() Dim c As Control For Each c In Me.Controls Select Case TypeName(c) Case "TextBox" c.Value = "" Case "CheckBox" c.Value = False Case "ListBox", "ComboBox" c.ListIndex = -1 End Select Next c End Sub
JB On 19 mar, 11:22, YeTi wrote:
Bonjour,
Voilà, j'ai fait un UserForm avec des TextBox, des ComboBox et des CommandButton. J'aimerais que lorsque je clique sur le CommandButton "Effacer", tout ce qui a été tapé ou sélectionné (dans les TextBox et les ComboBox) s'efface. Comment faire?