Effacer les textes de plusieurs zones de texte avec une macro

[debef54]

Bonjour,

J'ai plusieurs zones de texte dans une feuille excel et aimerais par le biais d'une macro, effacer tous les textes
merci pour votre aide
PS: Je suis novice dans ce domaine!
Cordialement
Debef54

 

[Staple1600]

Re : Effacer les textes de plusieurs zones de texte avec une macro

Bonjour à tous


Une possibilité

Sub ClearTextBoxOnWKS()
Dim OLEObj As OLEObject
For Each OLEObj In ActiveSheet.OLEObjects
If OLEObj.progID = "Forms.TextBox.1" Then
OLEObj.Object.Value = Empty
End If
Next OLEObj
End Sub

 

[debef54]

Re : Effacer les textes de plusieurs zones de texte avec une macro

Bonsoir,
Merci pour cette proposition, mais hélas, cela ne fonctionne pas!
Les textes dans les zones de textes ne s'effacent pas!
C'est un casse-tête!
Si vous avez une autre idée, je suis preneur🙂!
Cordialement

 

[Staple1600]

Re : Effacer les textes de plusieurs zones de texte avec une macro

Bonsoir à tous

EDITION: Si tes zones de texte sont des formes (Shapes), essaie alors cette macro

Sub EffaceContenuZT()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoTextBox Then
shp.TextFrame.Characters.Delete
End If
Next
End Sub

Chez moi, elles s'effacent bien 😉

D'où l'importance de joindre un fichier exemple 😉

De quel type sont des zones de texte ? (mon exemple concernait des zones de texte ActiveX)

 

[Staple1600]

Re : Effacer les textes de plusieurs zones de texte avec une macro

[...Suite...]

Si tu veux effacer tous les types de TextBox sur toutes les feuilles du classeur actif, cette macro devrait faire l'affaire

Sub EffacerContenu_TEXTBOXS_PartoutDansLeClasseur()
Dim ws As Worksheet, shp As Shape
For Each ws In ActiveWorkbook.Worksheets
    For Each shp In ws.Shapes
        Select Case shp.Type
        Case 17
        shp.TextFrame.Characters.Delete
        Case 12
        shp.OLEFormat.Object.Object.Value = Empty
        End Select
    Next shp
Next ws
End Sub

 

[debef54]

Re : Effacer les textes de plusieurs zones de texte avec une macro

Bonjour,
Je vous remercie pour votre aide, j'essaie ce soir!
Je vous tiens au courant
Bonne journée
Debef54

 

[debef54]

Re : Effacer les textes de plusieurs zones de texte avec une macro

PS😛our tout vous dire, je connais pas la différence entre le "Shape" et "TextBox"
En fait, j'ai fait insertion "Zone de texte" tout simplement!
Bien à vous

 

[debef54]

Re : Effacer les textes de plusieurs zones de texte avec une macro

Je viens d'essayer,
Cela ne fonctionne que sur 2 zones de texte!
En fait par le biais d"un bouton nommé nouveau devis, j'aimerais effacer toutes les données, y compris les textes dans les zones de texte!
Merci pour votre aide
A+
Debef54