XL 2016 Récuperer tous les TxTbox et Labels d'un Frame

[Flx1er]

Bonjour,
Comment peut-on lister tous les textbox et label d'un frame.
Ci joint un exemple de user.form
En vous remerciant
Bien à vous

 

[patricktoulon]

re
bonjour
a oui !!!!!il est beau ton userform superbe!!!!
tellement beau qu'il m'a rendu aveugle et malheureusement je le vois plus
en même temps comme c'est un xlsx ton fichier, il y a de fortes chances que je l'eusse rêvé ton userform
LOL

 

[Flx1er]

Désolé patricktoulon,
Je suis un débutant.

En te remerciant.

re
bonjour
a oui !!!!!il est beau ton userform superbe!!!!
tellement beau qu'il m'a rendu aveugle et malheureusement je le vois plus
en même temps comme c'est un xlsx ton fichier, il y a de fortes chances que je l'eusse rêvé ton userform
LOL

 

[Dranreb]

Bonjour.
Un Frame possède une collection Controls, alors c'est simple de faire ce que vous dites.

 

[Flx1er]

Bonjour.
Un Frame possède une collection Controls, alors c'est simple de faire ce que vous dites.

Bonjour,
Merci pour l’info, cela m’aide bien.
Si je passe par ce forum, c’est pour avoir de l’aide. Mais pouvez vous me mettre sur la voie, un exemple me suffirait.
En vous remerciant

 

[Dranreb]

Tout comme vous pouvez faire For Each CtlU In UserForm1.Controls
vous pouvez faire For Each CtlF In Frame1.Controls
voire For Each CtlF In CtlU.Controls s'il s'avère que TypeOf CtlU Is MSForms.Frame

 

[patricktoulon]

re
bonjour
listé dans l'ordre d'appartenance et rien que les textbox et label dans les frames

Private Sub CommandButton1_Click()
    Dim ctrl As Control, ctrlf, texte
    For Each ctrl In UserForm1.Controls
        If TypeOf ctrl Is msforms.Frame Then
            texte = texte & ctrl.Name & vbCrLf
            For Each ctrlf In ctrl.Controls
                If TypeOf ctrlf Is msforms.TextBox Then texte = texte & ctrlf.Name & vbCrLf
                If TypeOf ctrlf Is msforms.Label Then texte = texte & ctrlf.Name & vbCrLf
            Next
        End If
    Next ctrl
    MsgBox texte
End Sub

 

[Flx1er]

re
bonjour
listé dans l'ordre d'appartenance et rien que les textbox et label dans les frames

Private Sub CommandButton1_Click()
    Dim ctrl As Control, ctrlf, texte
    For Each ctrl In UserForm1.Controls
        If TypeOf ctrl Is msforms.Frame Then
            texte = texte & ctrl.Name & vbCrLf
            For Each ctrlf In ctrl.Controls
                If TypeOf ctrlf Is msforms.TextBox Then texte = texte & ctrlf.Name & vbCrLf
                If TypeOf ctrlf Is msforms.Label Then texte = texte & ctrlf.Name & vbCrLf
            Next
        End If
    Next ctrl
    MsgBox texte
End Sub

Merci patricktoulon,
Super. C'est ce que je cherchais à faire.

Encore une question :
Est-il possible, lorsque l'on double clic sur un textbox, d'avoir le nom du frame auquel il appartient ?
En vous remerciant
Bien à vous

 

[patricktoulon]

Bonjour
ben dans l'event click
msgbox toto.parent.name
remplacer "toto" par le nom du control cliqué dans son event click

 

[Flx1er]

Bonjour
ben dans l'event click
msgbox toto.parent.name
remplacer "toto" par le nom du control cliqué dans son event click

Merci patricktoulon.
Tu m'as vraiment bien aidé.

 

[Flx1er]

B

Merci patricktoulon.
Tu m'as vraiment bien aidé.

Bonjour,
Je reviens vers vous pour les 2 problèmes ci-dessous (qui sont un peu similaires) :

1. Lorsque je double clic dans un txtbox, je souhaiterais remonter tous les noms des labels dans un ordre précis d'une ligne et le nom du txtbox.
   Par ordre, j'entends pouvoir remonter, lorsque je double clic sur
   1. TxtBox_PathFile_VH (p.e.), les noms labels dans cet ordre :
      • Lbl_VH
      • Lbl_VH1
      • Lbl_VH2
      • TxtBox_PathFile_VH
   2. TxtBox_PathFile_AH, les noms labels dans cet ordre :
      • Lbl_AH
      • Lbl_AH1
      • Lbl_AH2
      • Lbl_AH3
      • Lbl_AH4
      • TxtBox_PathFile_VH
2. Lorsque je clic sur le bouton "Liste TxtBox et Label", nous remontons par Frame les contrôles qui le compose mais de façon désordonné.
   Je souhaiterais avoir par Frame tous les contrôles de la 1ere ligne puis de la 2ème et ensuite de suite, classé par label et txtbox.
   Résultat attendu :
   • Fr_IN
   • Lbl_RH
   • Lbl_RH1
   • Lbl_RH2
   • Lbl_RH3
   • TxtBox_PathFile_RH
   • Lbl_VH
   • Lbl_VH1
   • Lbl_VH2
   • TxtBox_PathFile_VH
   • ...

Je vous remercie pour le temps que vous me consacré
Bien à vous