Discussion :

[patricktoulon]

bonjour
je souhaiterais bien savoir comment on supprime un textbox ajouté par vba dynamiquement dans un sheet

e l'ajoute comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set T = ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1")
    T.Name = "TextBox1"

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.OLEObjects("TextBox1").Delete

[Jean-Philippe André]

Salut,

au feeling, je partirais sur un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

T.Delete

Tu peux feinter ulterieurement avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub OLEObjects3()
'Delete/hide only all CommandButtons from the Control Toolbox
    Dim obj As OLEObject
    For Each obj In ActiveSheet.OLEObjects
        If TypeOf obj.Object Is MSForms.TextBox And obj.Name= "TextBox1" Then
            obj.Delete
            ' or obj.Visible = False if you want to hide them
        End If
    Next
End Sub

adapte de
https://www.rondebruin.nl/win/s4/win002.htm

[patricktoulon]

merci pour les retours
mais rien de toutes les propositions ne fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function textB(cel)
    Set T = ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1")
    T.Name = "TextBox1"
    'reste du code 
T.Delete                                                                      'marche pas 
'ActiveSheet.OLEObjects.Controls("TextBox1").Delete     'marche pas
'ActiveSheet.OLEObjects("TextBox1").Delete                  'marche pas
'ActiveSheet.Controls("TextBox1").Delete                      'marche pas
'OLEObjects3                                                               'marche pas
End Function
 
 
Sub OLEObjects3()
'Delete/hide only all CommandButtons from the Control Toolbox
    Dim obj As OLEObject
    For Each obj In ActiveSheet.OLEObjects
        If TypeOf obj.Object Is MSForms.TextBox And obj.Name = "TextBox1" Then
            obj.Delete
            ' or obj.Visible = False if you want to hide them
        End If
    Next
End Sub

toujours la même erreur 438 propriété non gérée par l'object

[Jean-Philippe André]

Un ou des messages d'erreur ?

J'ai fait un test avec ton code et le mien, et la textbox se fait bien supprimer...

[patricktoulon]

toujours la même erreur 438 "propriété non gérée par l'object "

[patricktoulon]

bon déjà on avance
en fait quand je fait ceci ca marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function tableau_lignes(cel)
Dim T, i
    Set T = ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1")
   T.Name = "toto"
    T.Text = "blabla" & vbCrLf & " blabla"
tableau_lignes = T.Text
    supprT
'T.Delete
End Function
 
 
Sub supprT()
'ActiveSheet.OLEObjects("toto").Delete   'les deux méthodes fonctionnent quand je lance la sub depuis VBE
    ActiveSheet.Shapes("toto").Select
    Selection.Delete
End Sub

mais quand je lance la sub "supprt" depuis VBE elle me supprime bien le textbox
des idées ?????