'Dans un Module Public Sub EffaceTextBox(ByRef UForm As UserForm) Dim Ctrl As Control 'Boucle pour tout les contrôle de UForm For Each Ctrl In UForm.Controls If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = VbNullString Next Set Ctrl = Nothing End Sub 'N'importe ou dans un USerForm Call EffaceTextBox(Me)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.