Pas trouvé de solution?

Re Bonjour,
..pressé ce matin,
mais si cela peut marcher mais plus compliqué à adapter que je
pensais

http://cjoint.com/?fwpFHMcayG

LSteph

le Code:

Option Explicit
Sub listTbox()
Dim i As Integer, j As Integer, mycheckup As String
With ThisWorkbook.VBProject
For i = 1 To .VBComponents.Count
If .VBComponents(i).Type = 3 Then

For j = 0 To .VBComponents(i).Designer.Controls.Count - 1
If Left(.VBComponents(i).Designer.Controls(j).Name, 5) = "TextB"
Then
mycheckup = mycheckup & .VBComponents(i).Name & " - " & _
.VBComponents(i).Designer.Controls(j).Name & vbCrLf
End If
Next j

End If
Next i
End With
MsgBox mycheckup
End Sub

'....
On 22 mai, 11:51, "Charly" <no_spam.SchaussChar...@hotmail.com> wrote:

merci pour votre aide,

mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),

Bonsoir,

Il semble que j'ai eu un petit pb avec l'interface utilisée en
dépannage pour envoyer ce post
que j'ai dû réécrire une seconde fois vers 17h30 car le prmier 13h15 me
signalait une erreur de serveur, je n'avais pas envisagé ces tentatives
réitérées à l'insu de mon plein gré et s'affichant avec un décalage
horaire tout aussi étrange.

Confus pour ce désagrément.

LSteph

Re Bonjour,
..pressé ce matin,
mais si cela peut marcher mais plus compliqué à adapter que je
pensais

http://cjoint.com/?fwpFHMcayG

LSteph

le Code:

Option Explicit
Sub listTbox()
Dim i As Integer, j As Integer, mycheckup As String
With ThisWorkbook.VBProject
For i = 1 To .VBComponents.Count
If .VBComponents(i).Type = 3 Then

For j = 0 To .VBComponents(i).Designer.Controls.Count - 1
If Left(.VBComponents(i).Designer.Controls(j).Name, 5) = "TextB"
Then
mycheckup = mycheckup & .VBComponents(i).Name & " - " & _
.VBComponents(i).Designer.Controls(j).Name & vbCrLf
End If
Next j

End If
Next i
End With
MsgBox mycheckup
End Sub

'....
On 22 mai, 11:51, "Charly" <no_spam.SchaussChar...@hotmail.com> wrote:

merci pour votre aide,

mais les deux solutions ne conviennent pas!
celle de LSteph ne fonctionne pas (merci tout de même),

Merci beaucoup, les amis, vous êtes des champions

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