Textbox fantÍ´me

Le 28/10/22 Í  12:45, Brat'ac a écrit :

Bonjour,

Je liste les TextBox d'un formulaire comme ceci:

Je trouve un TextBox "fantÍ´me" il est impossible de le voir dans le
UserForm
J'ai regardé sous toutes les formes présentes du Userform pour voir si
il y était (caché) mais rien, je ne le trouve pas
y a-t-il un moyen de le supprimer ?
Merci

Sub ListeTextBox()
   Dim objControl As Control
   I = 1
   For Each objControl In UserForm1.Controls
       If TypeOf objControl Is MSForms.TextBox Then
           Range("A" & I).Value = objControl.Name
           I = I + 1
       End If
   Next
End Sub

Bonjour,

Tu peux faire comme ceci :

Si le formule est non visible, il devrait apparaÍ®tre Í  l'écran
et tu vas obtenir son nom. Il s'agit de le supprimer en code création.

À moins d'avoir beaucoup de testbox, crée un point d'arrêt Í  l'évolution
de la procédure sur la ligne "objControl.Visible = True" , Í  partir de
lÍ , tu utilises la touche F8.

C'est sͻrement le plus simple!

'------------------------------
Sub ListeTextBox()
Dim I As Long
Dim objControl As Control
I = 1
For Each objControl In UserForm1.Controls
If TypeOf objControl Is MSForms.TextBox Then
If objControl.Visible = False Then
objControl.Visible = True
MsgBox objControl.Name
' Range("A" & I).Value = objControl.Name
I = I + 1
End If
Next
End Sub
'------------------------------

MichD

MichD a exposé le 28/10/2022 :

Le 28/10/22 Í  12:45, Brat'ac a écrit :

Bonjour,

Je liste les TextBox d'un formulaire comme ceci:

Je trouve un TextBox "fantÍ´me" il est impossible de le voir dans le
UserForm
J'ai regardé sous toutes les formes présentes du Userform pour voir si il y
était (caché) mais rien, je ne le trouve pas
y a-t-il un moyen de le supprimer ?
Merci

Sub ListeTextBox()
   Dim objControl As Control
   I = 1
   For Each objControl In UserForm1.Controls
       If TypeOf objControl Is MSForms.TextBox Then
           Range("A" & I).Value = objControl.Name
           I = I + 1
       End If
   Next
End Sub

Bonjour,

Tu peux faire comme ceci :

Si le formule est non visible, il devrait apparaÍ®tre Í  l'écran
et tu vas obtenir son nom. Il s'agit de le supprimer en code création.

À moins d'avoir beaucoup de testbox, crée un point d'arrêt Í  l'évolution de
la procédure sur la ligne "objControl.Visible = True" , Í  partir de lÍ , tu
utilises la touche F8.

C'est sͻrement le plus simple!

'------------------------------
Sub ListeTextBox()
Dim I As Long
Dim objControl As Control
I = 1
For Each objControl In UserForm1.Controls
If TypeOf objControl Is MSForms.TextBox Then
If objControl.Visible = False Then
objControl.Visible = True
MsgBox objControl.Name
' Range("A" & I).Value = objControl.Name
I = I + 1
End If
Next
End Sub
'------------------------------

MichD

Bonjour,
je visualise bien le textbox fantÍ´me dans la msgbox mais nada il
n'apparaͮt toujours pas
sur le formulaire
de guerre lasse j'ai supprimé le formulaire (sauvegarder le code avant
bien sur)
recrée le formulaire et tout est rentré dans l'ordre plus de textbox
fantÍ´me
Mais bon j'aurais bien aimé comprendre !!! ;-)
Merci et bonne journée

Mais bon j'aurais bien aimé comprendre !!! ;-)

Lorsque tu insères les textbox dans le formulaire, si tu enfonces la
touche CTRL Í  l'aide de la souris, tu peux dupliquer le textbox et il
conserve les mêmes propriétés que le premier. Par une mauvaise
manipulation, il arrive que l'on crée un textbox au-dessus de l'original
sans s'en rendre compte. Comme il est de même dimension, il est
exactement de même dimension et sous un autre...Le hic est de déplacer
légèrement chaque textbox et observer en dessous de quel textbox de
trouve le textbox fantÍ´me.

MichD

MichD a couché sur son écran :

Mais bon j'aurais bien aimé comprendre !!! ;-)

Le hic est de déplacer légèrement chaque textbox et observer en
dessous de quel textbox se trouve le textbox fantÍ´me.

J'ai bien essayé de le faire mais sans résultat :-(

Bonjour,
Í  tout hasard,
quels sont ses caractéristique left et top ?
Peut-être est-il "tellement loin" qu'il n'apparait pas dans le
userform.

Je liste les TextBox d'un formulaire comme ceci:

Je trouve un TextBox "fantÍ´me" il est impossible de le voir dans le UserForm
J'ai regardé sous toutes les formes présentes du Userform pour voir si il y
était (caché) mais rien, je ne le trouve pas
y a-t-il un moyen de le supprimer ?
Merci

Sub ListeTextBox()
Dim objControl As Control
I = 1
For Each objControl In UserForm1.Controls
If TypeOf objControl Is MSForms.TextBox Then
Range("A" & I).Value = objControl.Name
I = I + 1
End If
Next
End Sub

--

______________________________________________
Jc

Jc avait énoncé :

Bonjour,
Í  tout hasard,
quels sont ses caractéristique left et top ?
Peut-être est-il "tellement loin" qu'il n'apparait pas dans le userform.

Trop tard comme expliqué j'ai supprimé l'Userform et l'ai reconstruit
;-)