Vider textbox

[apdf1]

Bonjour

Comment vider ou effacer mes 10 textbox d'un coup en sachant que mes textbot sont nommé TxtNom, TxrAdresse ect...

Merci d'avance et bonne journée

Cordialement

Max

 

[Pierrot93]

Re : Vider textbox

Bonjour,

manque un peu d'éléments... Où sont placées tes textbox, USF où feuille de calcul ? Tu en as d'autres sur le même objet qu'il ne faudrait pas effacer ? plus de questions que de réponses...

bonne journée
@+

 

[JNP]

Re : Vider textbox

Bonjour le fil 🙂,
A tester :

Dim Ctl As MSForms.Control
For Each Ctl In Me.Controls
    If TypeOf Ctl Is MSForms.TextBox Then
        Ctl.Text = ""
    End If
Next

Tu peux faire un test sur Ctl.Name pour ne pas en vider certains 😛.
Bonne journée 😎

 

[apdf1]

Re : Vider textbox

Bonjour Pierrot, JNP,

Oui Pierrot tu as raison, Il sont tous USF et deux TextBox ne sont pas a effacer, je n'y est pas pensse a le dire tous de suite.

Parceque le code de JNP marche trés bien mais il efface tous. Comment faire un Ctl. Name pour ne pas vider certains ?

Ex :Ctl.TxtNom = ?

@+ et merci

Max

 

[Pierrot93]

Re : Vider textbox

Re, bonjour JNP

fait ton test ainsi :

Dim Ctl As MSForms.Control
For Each Ctl In Me.Controls
    If TypeOf Ctl Is MSForms.TextBox Then
it Ctl.Name <> "monnom1" or  Ctl.Name <> "monnom2" then
        Ctl.Text = ""
end if
    End If
Next

 

[apdf1]

Re : Vider textbox

Re Pierrot

J'ai mis ce code la

Private Sub BtnViderTexBox_Click()


Dim Ctl As MSForms.Control
For Each Ctl In Me.Controls
    If TypeOf Ctl Is MSForms.TextBox Then
If Ctl.Name <> "TxtNom" Or Ctl.Name <> "TxtCP" Then
        Ctl.Text = ""
End If
    End If
Next

End Sub

Et sa me vide tous les textbox.
Dans la cinquiéme ligne tu avait mis "it Ctl.Name...... je les remplacer par IF Ctl.Name....." je pensse que c'est une erreur de frappe.

@+

Max

 

[Pierrot93]

Re : Vider textbox

Re,

oui c'est bien un "if", pas un "it"...

 

[apdf1]

Re : Vider textbox

Re,

Pourquoi sa me vide tous les TextBox?

@+

 

[Robert]

Re : Vider textbox

Bonjour le fil, bonjour le forum,

Que de perte de temps Apdf ! Si tu avais daigné mettre une exemple en pièce jointe ton problème serait déja résolu...

 

[Pierrot93]

Re : Vider textbox

Re, bonjour Robert🙂

vérifie bien les noms des contrôles à exclure, la casse a son importance.... perso je laisse les noms par défaut "TextBox1"... moins de soucis, enfin c'est juste mon avis...

 

[apdf1]

Re : Vider textbox

Re,

Je joint mon fichier il seras certainement plus parlant.

@+

Max

 

[Pierrot93]

Re : Vider textbox

re,

tu as placé le test après la boucle....
modifie ainsi :

For Each Ctl In Me.Controls
    If TypeOf Ctl Is MSForms.TextBox Then
        If Ctl.Name <> "TxtNom" Or Ctl.Name <> "TxtRéf" Then
            Ctl.Text = ""
        End If
    End If
Next

 

[apdf1]

Re : Vider textbox

Re,

Non il vide tous les textBox

Max

 

[Pierrot93]

Re : Vider textbox

Re,

remplace le "or" par un "and" :

For Each Ctl In Me.Controls
    If TypeOf Ctl Is MSForms.TextBox Then
        If Ctl.Name <> "TxtNom" And Ctl.Name <> "TxtRéf" Then
            Ctl.Text = ""
        End If
    End If
Next

 

[apdf1]

Re : Vider textbox

Re,

A OUI la sa marche nickel.

Je te remercie beaucoup pour ta patience et persévérance.

Bonne journée et à bientôt

Max