Bonjour,

Je souhaiterais pouvoir supprimer des TextBox créés dynamquement.

Lorsque j'essaie le code suivant, j'obtiens l'erreur 438..
(je laisse aussi des bouts de codes en commentaire, au cas où..)

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
Private Sub OLEObjects()
Dim Ctrl As Control
Dim i As Long
 
'Dim obj As OLEObject
'UserForm1.Granulo.OLEObjects("TextBox1").Delete
 
'    For Each Ctrl In UserForm1.Granulo.Controls
'        If TypeOf Ctrl Is MSForms.TextBox And Ctrl.Name <> "FondR" Then
'            MsgBox Ctrl.Name
'            Ctrl.Delete
'        End If
'    Next
 
For i = 0 To UBound(mesbouts)
    mesbouts(i).TxBox1.Delete
Next
 
End Sub

Avez-vous des idées?

Merci d'avance