Public Sub ClearTextBoxes(WS As Worksheet)
Dim Ctrl As OLEObject
'Pour chaque OLEObject contenu dans
'la feuille
For Each Ctrl In WS.OLEObjects
'Si c'est un TextBox , on vide le textbox
If TypeOf Ctrl.Object Is MSForms.TextBox Then Ctrl.Object.Text = vbNullString
Next
End Sub
'Exemple d'utilisation avec un bouton dans
'une feuille
Private Sub CommandButton1_Click()
Call ClearTextBoxes(ActiveWorkbook.Worksheets("Feuil1"))
End Sub
|
| By Renfield |