Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les Control
TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les Control
TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les Control
TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les Control
TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les Control
TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les Control
TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
celle de Misange pourrait fonctionner si je pouvais renseigner le formulaire
traité -
dans le style :
Sub ListeLables()
Dim Frm As VBComponent
Dim Ctrl As Control
Dim i As Integer
i = 1
For Each Frm In ThisWorkbook.VBProject.VBComponents
If Frm.Type = vbext_ct_MSForm Then
For Each Ctrl In Frm.Controls ' <<<<<
mon problème !
If TypeOf Ctrl Is MSForms.Label Then
Cells(i, 1).Value = Frm.Name
Cells(i, 2).Value = Ctrl.Name
Cells(i, 3).Value = Ctrl.Caption
i = i + 1
End If
Next
End If
Next
End Sub
mon problème est de faire fonctionner la boucle for each Ctrl ...
Merci quand même
Charles
"Charly" a écrit dans le message de news:Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
celle de Misange pourrait fonctionner si je pouvais renseigner le formulaire
traité -
dans le style :
Sub ListeLables()
Dim Frm As VBComponent
Dim Ctrl As Control
Dim i As Integer
i = 1
For Each Frm In ThisWorkbook.VBProject.VBComponents
If Frm.Type = vbext_ct_MSForm Then
For Each Ctrl In Frm.Controls ' <<<<<
mon problème !
If TypeOf Ctrl Is MSForms.Label Then
Cells(i, 1).Value = Frm.Name
Cells(i, 2).Value = Ctrl.Name
Cells(i, 3).Value = Ctrl.Caption
i = i + 1
End If
Next
End If
Next
End Sub
mon problème est de faire fonctionner la boucle for each Ctrl ...
Merci quand même
Charles
"Charly" <schauss_charles@hotmail.com> a écrit dans le message de news:
eFQltODnHHA.4516@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
celle de Misange pourrait fonctionner si je pouvais renseigner le formulaire
traité -
dans le style :
Sub ListeLables()
Dim Frm As VBComponent
Dim Ctrl As Control
Dim i As Integer
i = 1
For Each Frm In ThisWorkbook.VBProject.VBComponents
If Frm.Type = vbext_ct_MSForm Then
For Each Ctrl In Frm.Controls ' <<<<<
mon problème !
If TypeOf Ctrl Is MSForms.Label Then
Cells(i, 1).Value = Frm.Name
Cells(i, 2).Value = Ctrl.Name
Cells(i, 3).Value = Ctrl.Caption
i = i + 1
End If
Next
End If
Next
End Sub
mon problème est de faire fonctionner la boucle for each Ctrl ...
Merci quand même
Charles
"Charly" a écrit dans le message de news:Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
Bonjour
For Each Ctrl In Frm.Designer.Controls
A+merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
celle de Misange pourrait fonctionner si je pouvais renseigner le
formulaire traité -
dans le style :
Sub ListeLables()
Dim Frm As VBComponent
Dim Ctrl As Control
Dim i As Integer
i = 1
For Each Frm In ThisWorkbook.VBProject.VBComponents
If Frm.Type = vbext_ct_MSForm Then
For Each Ctrl In Frm.Controls '
<<<<< mon problème !
If TypeOf Ctrl Is MSForms.Label Then
Cells(i, 1).Value = Frm.Name
Cells(i, 2).Value = Ctrl.Name
Cells(i, 3).Value = Ctrl.Caption
i = i + 1
End If
Next
End If
Next
End Sub
mon problème est de faire fonctionner la boucle for each Ctrl ...
Merci quand même
Charles
"Charly" a écrit dans le message de news:Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
Bonjour
For Each Ctrl In Frm.Designer.Controls
A+
merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
celle de Misange pourrait fonctionner si je pouvais renseigner le
formulaire traité -
dans le style :
Sub ListeLables()
Dim Frm As VBComponent
Dim Ctrl As Control
Dim i As Integer
i = 1
For Each Frm In ThisWorkbook.VBProject.VBComponents
If Frm.Type = vbext_ct_MSForm Then
For Each Ctrl In Frm.Controls '
<<<<< mon problème !
If TypeOf Ctrl Is MSForms.Label Then
Cells(i, 1).Value = Frm.Name
Cells(i, 2).Value = Ctrl.Name
Cells(i, 3).Value = Ctrl.Caption
i = i + 1
End If
Next
End If
Next
End Sub
mon problème est de faire fonctionner la boucle for each Ctrl ...
Merci quand même
Charles
"Charly" <schauss_charles@hotmail.com> a écrit dans le message de news:
eFQltODnHHA.4516@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
Bonjour
For Each Ctrl In Frm.Designer.Controls
A+merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
celle de Misange pourrait fonctionner si je pouvais renseigner le
formulaire traité -
dans le style :
Sub ListeLables()
Dim Frm As VBComponent
Dim Ctrl As Control
Dim i As Integer
i = 1
For Each Frm In ThisWorkbook.VBProject.VBComponents
If Frm.Type = vbext_ct_MSForm Then
For Each Ctrl In Frm.Controls '
<<<<< mon problème !
If TypeOf Ctrl Is MSForms.Label Then
Cells(i, 1).Value = Frm.Name
Cells(i, 2).Value = Ctrl.Name
Cells(i, 3).Value = Ctrl.Caption
i = i + 1
End If
Next
End If
Next
End Sub
mon problème est de faire fonctionner la boucle for each Ctrl ...
Merci quand même
Charles
"Charly" a écrit dans le message de news:Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
celle de Misange pourrait fonctionner si je pouvais renseigner le formula ire
traité -
dans le style :
Sub ListeLables()
Dim Frm As VBComponent
Dim Ctrl As Control
Dim i As Integer
i = 1
For Each Frm In ThisWorkbook.VBProject.VBComponents
If Frm.Type = vbext_ct_MSForm Then
For Each Ctrl In Frm.Controls ' << <<<
mon problème !
If TypeOf Ctrl Is MSForms.Label Then
Cells(i, 1).Value = Frm.Name
Cells(i, 2).Value = Ctrl.Name
Cells(i, 3).Value = Ctrl.Caption
i = i + 1
End If
Next
End If
Next
End Sub
mon problème est de faire fonctionner la boucle for each Ctrl ...
Merci quand même
Charles
"Charly" a écrit dans le message de news:Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
celle de Misange pourrait fonctionner si je pouvais renseigner le formula ire
traité -
dans le style :
Sub ListeLables()
Dim Frm As VBComponent
Dim Ctrl As Control
Dim i As Integer
i = 1
For Each Frm In ThisWorkbook.VBProject.VBComponents
If Frm.Type = vbext_ct_MSForm Then
For Each Ctrl In Frm.Controls ' << <<<
mon problème !
If TypeOf Ctrl Is MSForms.Label Then
Cells(i, 1).Value = Frm.Name
Cells(i, 2).Value = Ctrl.Name
Cells(i, 3).Value = Ctrl.Caption
i = i + 1
End If
Next
End If
Next
End Sub
mon problème est de faire fonctionner la boucle for each Ctrl ...
Merci quand même
Charles
"Charly" <schauss_char...@hotmail.com> a écrit dans le message de news:
eFQltODnHHA.4...@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
celle de Misange pourrait fonctionner si je pouvais renseigner le formula ire
traité -
dans le style :
Sub ListeLables()
Dim Frm As VBComponent
Dim Ctrl As Control
Dim i As Integer
i = 1
For Each Frm In ThisWorkbook.VBProject.VBComponents
If Frm.Type = vbext_ct_MSForm Then
For Each Ctrl In Frm.Controls ' << <<<
mon problème !
If TypeOf Ctrl Is MSForms.Label Then
Cells(i, 1).Value = Frm.Name
Cells(i, 2).Value = Ctrl.Name
Cells(i, 3).Value = Ctrl.Caption
i = i + 1
End If
Next
End If
Next
End Sub
mon problème est de faire fonctionner la boucle for each Ctrl ...
Merci quand même
Charles
"Charly" a écrit dans le message de news:Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
celle de Misange pourrait fonctionner si je pouvais renseigner le formula ire
traité -
dans le style :
Sub ListeLables()
Dim Frm As VBComponent
Dim Ctrl As Control
Dim i As Integer
i = 1
For Each Frm In ThisWorkbook.VBProject.VBComponents
If Frm.Type = vbext_ct_MSForm Then
For Each Ctrl In Frm.Controls ' << <<<
mon problème !
If TypeOf Ctrl Is MSForms.Label Then
Cells(i, 1).Value = Frm.Name
Cells(i, 2).Value = Ctrl.Name
Cells(i, 3).Value = Ctrl.Caption
i = i + 1
End If
Next
End If
Next
End Sub
mon problème est de faire fonctionner la boucle for each Ctrl ...
Merci quand même
Charles
"Charly" a écrit dans le message de news:Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
celle de Misange pourrait fonctionner si je pouvais renseigner le formula ire
traité -
dans le style :
Sub ListeLables()
Dim Frm As VBComponent
Dim Ctrl As Control
Dim i As Integer
i = 1
For Each Frm In ThisWorkbook.VBProject.VBComponents
If Frm.Type = vbext_ct_MSForm Then
For Each Ctrl In Frm.Controls ' << <<<
mon problème !
If TypeOf Ctrl Is MSForms.Label Then
Cells(i, 1).Value = Frm.Name
Cells(i, 2).Value = Ctrl.Name
Cells(i, 3).Value = Ctrl.Caption
i = i + 1
End If
Next
End If
Next
End Sub
mon problème est de faire fonctionner la boucle for each Ctrl ...
Merci quand même
Charles
"Charly" <schauss_char...@hotmail.com> a écrit dans le message de news:
eFQltODnHHA.4...@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
celle de Misange pourrait fonctionner si je pouvais renseigner le formula ire
traité -
dans le style :
Sub ListeLables()
Dim Frm As VBComponent
Dim Ctrl As Control
Dim i As Integer
i = 1
For Each Frm In ThisWorkbook.VBProject.VBComponents
If Frm.Type = vbext_ct_MSForm Then
For Each Ctrl In Frm.Controls ' << <<<
mon problème !
If TypeOf Ctrl Is MSForms.Label Then
Cells(i, 1).Value = Frm.Name
Cells(i, 2).Value = Ctrl.Name
Cells(i, 3).Value = Ctrl.Caption
i = i + 1
End If
Next
End If
Next
End Sub
mon problème est de faire fonctionner la boucle for each Ctrl ...
Merci quand même
Charles
"Charly" a écrit dans le message de news:Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
celle de Misange pourrait fonctionner si je pouvais renseigner le formula ire
traité -
dans le style :
Sub ListeLables()
Dim Frm As VBComponent
Dim Ctrl As Control
Dim i As Integer
i = 1
For Each Frm In ThisWorkbook.VBProject.VBComponents
If Frm.Type = vbext_ct_MSForm Then
For Each Ctrl In Frm.Controls ' << <<<
mon problème !
If TypeOf Ctrl Is MSForms.Label Then
Cells(i, 1).Value = Frm.Name
Cells(i, 2).Value = Ctrl.Name
Cells(i, 3).Value = Ctrl.Caption
i = i + 1
End If
Next
End If
Next
End Sub
mon problème est de faire fonctionner la boucle for each Ctrl ...
Merci quand même
Charles
"Charly" a écrit dans le message de news:Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
celle de Misange pourrait fonctionner si je pouvais renseigner le formula ire
traité -
dans le style :
Sub ListeLables()
Dim Frm As VBComponent
Dim Ctrl As Control
Dim i As Integer
i = 1
For Each Frm In ThisWorkbook.VBProject.VBComponents
If Frm.Type = vbext_ct_MSForm Then
For Each Ctrl In Frm.Controls ' << <<<
mon problème !
If TypeOf Ctrl Is MSForms.Label Then
Cells(i, 1).Value = Frm.Name
Cells(i, 2).Value = Ctrl.Name
Cells(i, 3).Value = Ctrl.Caption
i = i + 1
End If
Next
End If
Next
End Sub
mon problème est de faire fonctionner la boucle for each Ctrl ...
Merci quand même
Charles
"Charly" <schauss_char...@hotmail.com> a écrit dans le message de news:
eFQltODnHHA.4...@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles
merci pour votre aide,
mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),
celle de Misange pourrait fonctionner si je pouvais renseigner le formula ire
traité -
dans le style :
Sub ListeLables()
Dim Frm As VBComponent
Dim Ctrl As Control
Dim i As Integer
i = 1
For Each Frm In ThisWorkbook.VBProject.VBComponents
If Frm.Type = vbext_ct_MSForm Then
For Each Ctrl In Frm.Controls ' << <<<
mon problème !
If TypeOf Ctrl Is MSForms.Label Then
Cells(i, 1).Value = Frm.Name
Cells(i, 2).Value = Ctrl.Name
Cells(i, 3).Value = Ctrl.Caption
i = i + 1
End If
Next
End If
Next
End Sub
mon problème est de faire fonctionner la boucle for each Ctrl ...
Merci quand même
Charles
"Charly" a écrit dans le message de news:Bonjour à tous,
Je cherche un moyen de créer une procédure pour boucler sur tous les
Control TextBox de tous les UserForm de mon classeur actif.
J'ai bien trouvé une procédure pour boucler sur tous les formulaires
Dim frm As vbcomponent
For Each frm In ThisWorkbook.VBProject.VBComponents
If frm.Type = 3 Then
End If
Next frm
mais je coince pour boucler ensuite sur les contrôles TextBox des
formulaires trouvés.
Merci pour votre aide
Charles