Supprimer des contrôles dynamiquement

Supprimer des contrôles dynamiquement - VB/VBA/VBS - Programmation

Marsh Posté le 19-10-2008 à 13:28:57    

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 :
  1. Private Sub UserForm_Activate()
  4. Dim Top, Left, Width, Height, i As Integer
  5. Dim NumeroTextBox As Integer
  6. Dim TextBoxName As String
  9. For i = 1 To 3
  10.     For Each ctl In add_department.Controls
  11.         If ctl.Name = "Txt" & i Then
  12.             add_department.Controls.Remove (ctl)
  13.             'Set ctl = Nothing
  14.         End If
  15.     Next ctl
  16. Next i
  18. Application.Goto Reference:="departments"
  19. n = Selection.Rows.Count
  20. nb_lines.Caption = n
  22. Top = 10
  23. Left = 10
  24. Width = 100
  25. Height = 20
  26. NumeroTextBox = 1
  28. For i = 1 To n
  29. Set TextBox = Controls.Add("Forms.Textbox.1" )
  31. With TextBox
  32. .Name = "Txt" & i
  33. .Text = Selection.Cells(i, 1)
  34. .Visible = True
  35. .Top = Top 'Definit la distance entre le bord de la fenetre et le bord du conteneur
  36. .Left = Left 'Definit la distance entre le bord gauche de la fenetre et le bord du conteneur
  37. .Width = Width 'Definit la largeur de l'objet
  38. .Height = Height 'Definit la hauteur de l'objet
  39. .Font.Size = 10
  40. End With
  42. Top = Top + 25
  44. Next
  46. Add_line.Top = Top - 25
  47. Cancel.Top = Top
  48. validate.Top = Top
  50. Top = Top + 25
  52. add_department.Height = Top + 25
  54. End Sub


 
Avez-vous une idée ?
 
Merci

Reply

Marsh Posté le 19-10-2008 à 13:28:57   

Reply

Marsh Posté le 19-10-2008 à 16:12:06    

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 :
  1. 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
Reply

Marsh Posté le 20-10-2008 à 12:26:22    

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à.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed