VBA: Vider Textbox, Checkbox quand TextBox_change

Le 04/09/2019 à 11:59

Bonjour,

J'aimerai vider les TextBox ainsi que les checkbox quand il y a TextBox Change, j'ai reussi à faire pour les TextBox, mais je n'arrive pas pour les Checkbox.

Merci de l'aide,

ci-dessous le code utilisé pour vider les textbox.

Dim Ctrl As Control

'vide les champs (TextBox et ComboBox) sauf le TextBox servant à la recherche
For Each Ctrl In Me.Controls

    If Ctrl.Name <> "TextBox-Test" Then
        If TypeName(Ctrl) = "TextBox" Or TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
    End If

Next
Le 04/09/2019 à 12:05

Bonjour, juste une ligne à rajouter :

Dim Ctrl As Control

'vide les champs (TextBox et ComboBox) sauf le TextBox servant à la recherche
For Each Ctrl In Me.Controls

    If Ctrl.Name <> "TextBox-Test" Then
        If TypeName(Ctrl) = "TextBox" Or TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "CheckBox" Then Ctrl.Value = False
    End If

Next
Le 04/09/2019 à 12:11

Bonjour le fil, bonjour le forum,

Autre méthode :

Private Sub TextBox1_Change()
Dim CTRL As Control

For Each CTRL In Me.Controls
    If TypeOf CTRL Is MSForms.TextBox Then CTRL.Value = ""
    If TypeOf CTRL Is MSForms.CheckBox Then CTRL.Value = False
Next CTRL
End Sub
Le 04/09/2019 à 12:26
ThauThème a écrit :

Bonjour le fil, bonjour le forum,

Autre méthode :

Private Sub TextBox1_Change()
Dim CTRL As Control

For Each CTRL In Me.Controls
    If TypeOf CTRL Is MSForms.TextBox Then CTRL.Value = ""
    If TypeOf CTRL Is MSForms.CheckBox Then CTRL.Value = False
Next CTRL
End Sub

bonjour,

j'ai essayé ton code, mais il me mets une erreur qu'il ne connais pas la propriété Value.

pour texte on peut mettre

CTRL.text= ""

mais pour le checkbox, je ne sais pas.

merci.

Le 04/09/2019 à 13:07
melch a écrit :

Bonjour, juste une ligne à rajouter :

Dim Ctrl As Control

'vide les champs (TextBox et ComboBox) sauf le TextBox servant à la recherche
For Each Ctrl In Me.Controls

    If Ctrl.Name <> "TextBox-Test" Then
        If TypeName(Ctrl) = "TextBox" Or TypeName(Ctrl) = "ComboBox" Then Ctrl.Text = ""
        If TypeName(Ctrl) = "CheckBox" Then Ctrl.Value = False
    End If

Next

Merci, cette solution marche, top.

Le 04/09/2019 à 13:39

Re

New_VBA_User a écrit :

j'ai essayé ton code, mais il me mets une erreur qu'il ne connais pas la propriété Value.

Ha bon !?... remplis les 3 textboxes, coche les troix checkboxes, et dès que tu tapes dans la TextBox4.

code :

Private Sub TextBox4_Change()
Dim CTRL As Control

For Each CTRL In Me.Controls
    If TypeOf CTRL Is MSForms.TextBox Then CTRL.Value = ""
    If TypeOf CTRL Is MSForms.CheckBox Then CTRL.Value = False
Next CTRL
End Sub
11exemple.xlsm (20.22 Ko)
Le 04/09/2019 à 13:59
ThauThème a écrit :

Re

New_VBA_User a écrit :

j'ai essayé ton code, mais il me mets une erreur qu'il ne connais pas la propriété Value.

Ha bon !?... remplis les 3 textboxes, coche les troix checkboxes, et dès que tu tapes dans la TextBox4.

code :

Private Sub TextBox4_Change()
Dim CTRL As Control

For Each CTRL In Me.Controls
    If TypeOf CTRL Is MSForms.TextBox Then CTRL.Value = ""
    If TypeOf CTRL Is MSForms.CheckBox Then CTRL.Value = False
Next CTRL
End Sub

Merci pour l'aide, ça marche. Top.

Rechercher des sujets similaires à "vba vider textbox checkbox quand change"