Effacer tout les TextBox contenus dans une feuille EXCEL

Commenter

Contenu du snippet 

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 SubBy Renfield

Compatibilité : VBA

A voir également

Du même auteur (jrivet)