Effacer tout les TextBox contenus dans une feuille EXCEL
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
- Effacer tout les TextBox contenus dans une feuille EXCEL
- Copier automatiquement une cellule excel dans une autre feuille (vba) ✓ - Forum Visual Basic
- Copier cellule dans autre feuille (vba) - Forum Visual Basic
- Copier coller valeurs d'une feuille vers une autre feuille à partir de la premiè ✓ - Forum Visual Basic 6
- Vba supprimer une feuille ✓ - Forum VBA Office (Excel, Word ...)
- Copier le contenu d'une feuille excel dans une autre - Forum Visual Basic
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.