Effacer useform

fifi · 20 Novembre 2006

bonsoir

j'ai un userform qui comprends pa smal de champs et je voulais donner l'opportunité à l'utilisateur d'affacer les champs s'il le désire (l'userform se remplit tous seul si l'utilisateur remplit certains champ comme une sorte de recherche )

mais bon il y a bien 60 champs possible, alors sans doute il est possible de les effacer tous d'un coup plutot que je tappe le code

champX.Value = "" pour tous :/ ???

MichelXld · 20 Novembre 2006

Re : Effacer useform

bonjour

Tu peux essayer ces deux exemples

Code:

Private Sub CommandButton1_Click()
Dim Ctrl As Control

For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Object.Value = ""
Next Ctrl
End Sub

Code:

Private Sub CommandButton2_Click()
Dim Ctrl As Control

For Each Ctrl In Controls
    If TypeName(Ctrl) = "TextBox" Then Ctrl.Object.Value = ""
Next Ctrl
End Sub

Bonne journée
MichelXld

fifi · 20 Novembre 2006

Re : Effacer useform

trés bien cette solution

J'ai aussi adapté le truc pour les combobox

merci beaucoup

Effacer useform

fifi

XLDnaute Occasionnel

MichelXld

XLDnaute Barbatruc

fifi

XLDnaute Occasionnel

Discussions similaires