[XL-2003] Supprimer tous les controls d'une userforms

[redstoff]

Bonjour je cherche une commande qui sais supprimer tous les types de controls

genre

Code :

1
2
3
for each controls in userforms
     userformes.controls.remove
next

quelqu'un connait une solution?

Merci

[Daniel.C]

Bonjour,

Je pense que tu ne peux supprimer que les contrôles que tu as créés par VBA.

[francky74]

Salut,

Je pense que tu peux peut-être les rendre invisibles avec la commande userformes.controls.show = false

Francky,

[redstoff]

bonjour, c'est ce que j'ai pu remarqué en faisant quelques manip que l'on pouvait supprimé que les objets crées en dynamique. j'ai donc faire autrement mon fichier.

merci d'être passé par ici^^

[aalex_38]

En effet, pourquoi vouloir supprimer des éléments que l'on a pas crée dynamiquement, en tout cas en VBA c'est pas évident :

Donc a première vue 2 solutions :
1 => création dynamique et donc suppression dynamique possible.
2 => on masque les éléments que l'on ne veut pas voir apparaitre.

Deux liens de silkyroad sur les userforms et sur VBE


Edit : un exemple pour masquer les controles :

Code :

1
2
3
4
5
6
7
8
Sub Touslescontrolesinvisibles()
Dim ctrl As Control
For Each ctrl In Userform1.Controls
    Debug.Print ctrl.Name
    ctrl.Visible = False
Next
Userform1.Show
End Sub