Vider toutes les boîtes de texte d'une fiche

Question

J'ai &#233;crit un petit code pour vider toutes les bo&#238;tes de texte d'une
fiche sans avoir &#224; les effacer une par une.  Malheureusement, ce
petit code ne marche pas correctement.  En utilisant le mode Pas &#224;
pas, j'ai remarqu&#233; que le If donnait faux comme s'il ne d&#233;tectait pas
que mes bo&#238;tes de texte &#233;taient vraiment des bo&#238;tes de texte. 
Pouvez-vous me dire ce qui cloche dans mon code.  Merci!



Public Sub ViderFiches()

Dim Tempo As Control



For Each Tempo In fchDonnees1.Controls

    If TypeOf Tempo Is TextBox Then Tempo = ""

Next Tempo

End Sub

cs_wape · Answer

Bonjour,

Si c'est du VBA, essaye avec :

Public Sub ViderFiches()
Dim Tempo As Control

For Each Tempo In fchDonnees1.Controls
    If TypeOf Tempo Is MSForms.TextBox Then Tempo = ""
Next Tempo
End Sub

wape

jpleroisse · Answer

Bonsoir,

Ce code est valable aussi bien pour VB6, que pour VBA.



Private Sub Command1_Click()

    Dim obj As Object

        For Each obj In Me.Controls

        If TypeName(obj) = "TextBox" Then

         obj.Text = ""

       End If

Next

End Sub



jpleroisse

Vider toutes les boîtes de texte d'une fiche

2 réponses

Discussions similaires