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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
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
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
'------------------------------
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
Brat'ac
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
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
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
MichD
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
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.
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
Brat'ac
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 :-(
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 :-(
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 :-(
Jc
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
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
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