Supprimer TextBox

Bonjour,

J'ai un sushis!

Je doit afficher un certain nombre de Textbox selon une valeur choisis dans une ComboBox (de 0 à 10 par exemple).

J'arrive à les afficher, et à agrandir l'UserForm en fonction. J'arrive même à la rétrécir. Cependant je n'arrive pas a supprimer les TextBox !

J'ai trouvé ce code :

Public Sub EffaceTextBox(ByRef UForm As UserForm)
    Dim Ctrl As Control
    'Boucle pour tout les contrôle de UForm
    For Each Ctrl In UForm.Controls
        If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = vbNullString
    Next
    Set Ctrl = Nothing
End Sub

Il fonctionne mais que si on choisi 1 ou 2 TextBox! Des que je passe au dessus de 3 il ne les supprime plus ( mais réduit bien la fenetre)

Tout ce que je trouve autrement sur internet, c'est des code pour supprimer le contenu de la TextBox

Je pense que c'est assez clair, si besoin dite-moi si je poste le fichier ! Soyer indulgent je ne sais pas codé en VBA !

cordialement

NI3

Nobody?

Bonjour

NI3 a écrit :

Nobody?

Ah si il y a du monde

Pose toi la question de savoir si tu as tout fait pour obtenir de l'aide

Voir particulièrement le point 6

Mais dans mes souvenirs (pas vérifié) on ne peut supprimer que les contrôles créés dynamiquement