XL 2010 [RESOLU] Supprimer Textbox par code

[cp4]

Bonsoir,

SVP, comment pourrait-on supprimer une textbox (par exemple TextBox3) dans une Userform par code.

En vous remerciant par avance.

Bonne soirée.

 

[Phil69970]

Bonjour @cp4

Et pourquoi pas la rendre invisible comme elle est dans un usf

TextBox3.Visible = False

 

[sylvanu]

Bonjour Cp4, Phil,
Voulez vous le supprimez ou le rendre invisible ?
Généralement on le rend invisible, dans ce cas faites :

UserForm1.TextBox3.Visible = False

et true pour le rendre visible.

 

[Phil69970]

Re

@cp4
Je pense que l'on ne peut supprimer que les contrôles créés dynamiquement

Si ce n'est pas le cas on en revient à l'idée :

Et pourquoi pas la rendre invisible comme elle est dans un usf

Et personne ne la verra sans même 1 ligne de code !!! 😉

 

[cp4]

Bonsoir @Phil69970 😉, @sylvanu 😉,

Merci pour vos réponses.
En fait, lors de la construction de mon formulaire je fais de fausses manipulations.
Je ne m'en suis rendu qu'en testant mon formulaire.
J'ai une procédure qui vérifie que les contrôles ayant un tag sont bien remplis avant l'enregistrement des données.

Private Sub Complet()
   Dim CtrL As MSForms.Control
   kit = False
  
   For Each CtrL In Me.Controls
      If TypeOf CtrL Is MSForms.Textbox Or TypeOf CtrL Is MSForms.ComboBox Then
Debug.Print CtrL.Name
         If CtrL.Tag = "1" Then
            If Len(CtrL) = 0 Then
               CtrL.BackColor = RGB(255, 0, 0)   'rouge
               kit = True
            Else
               CtrL.BackColor = &H80FFFF
            End If
         End If
      End If
   Next CtrL
   If kit Then MsgBox "Complétez les données!"

End Sub

La procédure me renvoyait que des contrôles sont vides alors qu'ils étaient tous renseignés.
Le Debug.Print m'a donné 3 controles (Textbox3 et Combobox1 ,combobox3) que je n'arrive pas à retrouver.
J'ai bien mis leur propriété visible à true par code dans l'initialisation. Ayant plusieurs frames, même en modifiant leur left, top, value. Impossible de les retrouver.
Ma procédure ne me renvoyant plus le message après avoir vidé leur tag ="" par code.
Mais je voudrais les supprimer, d'où ma présente demande de les supprimer par code.

Encore merci. Bonne soirée

 

[Gégé-45550]

Bonsoir,

SVP, comment pourrait-on supprimer une textbox (par exemple TextBox3) dans une Userform par code.

En vous remerciant par avance.

Bonne soirée.

Bonsoir,
À tout hasard : méthode Application.DeleteControl
Cordialement,

 

[TooFatBoy]

Bonjour,

Dans la fenêtre "Propriétés", tu peux sélectionner l'objet (du UserForm ) que tu veux.
Malgré cela tu ne le vois pas à l'écran ?

La TextBox est peut-être cachée derrière un autre objet. 🤔

 

[Phil69970]

Re
@cp4

Tu mets la propriété TabIndex à 0 de la textbox3

Et tu lances ton USF

Et tu regardes ou le cursor clignote c'est l’endroit ou se trouve ta texbox3 surement cachée par une ou des autres textbox....

 

[Dranreb]

Bonsoir
Vérifiez aussi ses propriétés Left, Top, Width et Height

 

[cp4]

Bonsoir,
À tout hasard : méthode Application.DeleteControl
Cordialement,

Bonjour @Gégé-45550 ,

Je te remercie. Soit je n'ai pas su utiliser la méthode, soit elle n'est applicable qu'à l'objet qui vient d'être créer par code.

 

[cp4]

Bonjour,

Dans la fenêtre "Propriétés", tu peux sélectionner l'objet (du UserForm ) que tu veux.
Malgré cela tu ne le vois pas à l'écran ?

La TextBox est peut-être cachée derrière un autre objet. 🤔

Bonjour @TooFatBoy ,

C'est sûr, ils sont caché derrière un autre objet.
Le plus bizarre est qu'ils n'apparaissent dans la liste déroulante des propriétés.

Merci.

 

[Phil69970]

@cp4

As tu essayer mon post #8 ?

 

[Dranreb]

À mon avis s'ils ne sont pas proposés dans la liste déroulante des propriétés c'est qu'ils n'existent pas. Du moins pas avant une insertion dynamique lors de l'exécution.

 

[cp4]

Messieurs Bonjour,

Je vous remercie. Je viens de résoudre mon problème.
J'avais des frames en double dans d'autres frames avec top et left négatif.
On ne pouvait pas les voir.

Bonne journée.

 

[cp4]

@cp4

As tu essayer mon post #8 ?

Je ne la trouvais pas (elle était dans une frame non visible). Je n'ai donc pas pu agir sur la propriété TabIndex.
J'ai enfin résolu mon problème comme expliqué dans mon précédent post.

Merci.

Bonne journée.