Vider textbox

Pierrot93

XLDnaute Barbatruc

• 16 Février 2011

• #2

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
@+

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 16 Février 2011

• #3

Re : Vider textbox

Bonjour le fil 🙂,
A tester :

Code:

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 😎

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 16 Février 2011

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Février 2011

• #5

Re : Vider textbox

Re, bonjour JNP

fait ton test ainsi :

Code:

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 16 Février 2011

• #6

Re : Vider textbox

Re Pierrot

J'ai mis ce code la

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Février 2011

• #7

Re : Vider textbox

Re,

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 16 Février 2011

• #8

Re : Vider textbox

Re,

Pourquoi sa me vide tous les TextBox?

@+

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 16 Février 2011

• #9

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...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Février 2011

• #10

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...

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 16 Février 2011

• #11

Re : Vider textbox

Re,

Je joint mon fichier il seras certainement plus parlant.

@+

Max

 

Pièces jointes

• Vider textbox.xls

  45 KB · Affichages: 105

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Février 2011

• #12

Re : Vider textbox

re,

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

Code:

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 16 Février 2011

• #13

Re : Vider textbox

Re,

Non il vide tous les textBox

Max

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Février 2011

• #14

Re : Vider textbox

Re,

remplace le "or" par un "and" :

Code:

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 16 Février 2011

• #15

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

 

Vote positif 0 Vote négatif