Supprimer des contrôles dynamiquement

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Supprimer des contrôles dynamiquement

Library

Bonjour à tous,

Je m'adresse à nouveau à vous pour une autre question.
Je souhaite avoir dynamiquement une zone de texte par cellule de la plage "Departments".
La partie ajout de contrôles marche très bien, mais par contre, quand je rouvre le formulaire après avoir rajouté des text_box automatiquement, elles restent sur le formulaire.
Je voudrais donc commencer par supprimer toutes les textbox de mon formulaire.

Voici le code que j'ai pour l'instant. Ca bloque sur "add_department.Controls.Remove (ctl)"

Code :

Private Sub UserForm_Activate()
Dim Top, Left, Width, Height, i As Integer
Dim NumeroTextBox As Integer
Dim TextBoxName As String
For i = 1 To 3
For Each ctl In add_department.Controls
If ctl.Name = "Txt" & i Then
add_department.Controls.Remove (ctl)
'Set ctl = Nothing
End If
Next ctl
Next i
Application.Goto Reference:="departments"
n = Selection.Rows.Count
nb_lines.Caption = n
Top = 10
Left = 10
Width = 100
Height = 20
NumeroTextBox = 1
For i = 1 To n
Set TextBox = Controls.Add("Forms.Textbox.1" )
With TextBox
.Name = "Txt" & i
.Text = Selection.Cells(i, 1)
.Visible = True
.Top = Top 'Definit la distance entre le bord de la fenetre et le bord du conteneur
.Left = Left 'Definit la distance entre le bord gauche de la fenetre et le bord du conteneur
.Width = Width 'Definit la largeur de l'objet
.Height = Height 'Definit la hauteur de l'objet
.Font.Size = 10
End With
Top = Top + 25
Next
Add_line.Top = Top - 25
Cancel.Top = Top
validate.Top = Top
Top = Top + 25
add_department.Height = Top + 25
End Sub

Avez-vous une idée ?

Merci

Publicité

dreameddeath

Remove ne fonctionne pour les contrôles ajoutés dynamiquement, et fonctionne avec un Identifiant qui peut être soit la position soit un nom

Donc c'est

Code :

add_department.Controls.Remove (ctl.Name)

Mais je le répète ça ne marchera que si ils ont été créés dynamiquement

Message édité par dreameddeath le 19-10-2008 à 16:12:28

Library

Merci pour ta réponse.

Est-ce que ça ne devrait pas fonctionner pour enlever les contrôles créés par la ligne 29 (set Textbox = control.add...) ?

Le problème est que quand je ferme le formulaire et que je le rouvre, les contrôles créés la fois d'avant sont toujours là.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Supprimer des contrôles dynamiquement

Sujets relatifs
Evenement Onclick sur des boutons créer dynamiquement	Modifier une page dynamiquement coté client
gestion des contrôles	supprimer caractère unicode invalide
[VBA] Supprimer un saut de page	Mysql supprimer donnes anterieure à une date
inserer et supprimer des lignes dans un fichier	petit pg pour supprimer certaines propriétés d'un fichier son (mp3)
creer un bouton supprimer un noeud et pouvoir modifier le nom du noeud	Créer un bouton dynamiquement
Plus de sujets relatifs à : Supprimer des contrôles dynamiquement

Page générée en 0.054 secondes