Petit problème de code

**jackall** · 23/07/2009, 10h06

Bonjour à tous,

J'aurais besoin de votre aide pour un petit problème ( enfin je l'éspère ^^ ).

Mon idée de départ est la suivante, j'ai un userform, dedans j'ai placé deux pages. La première dispose de label ainsi que des textbox.
Dans ma 2ème page, je voudrait que selon ce que je trouve dans une des textbox de la 1ère page, ( ici je cherche à trouver "1" ),
je récupère le nom de la textbox (exemple: OOT_LL_TextBox ) je coupe le la fin et je le remplace par "lbl" (donc: OOT_LL_lbl)
pour par la suite pouvoir grace au nom du label séléctioner la caption de ce label et le recopier dans la 2ème page dans un autre label.
Je pensais pouvoir faire sa sans rencontrer de problème ... manque de bol ... il y a un problème ^^

voila le code que j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Ctl As Control
i = 1
Me.MultiPage1.Value = 0
For Each Ctl In Me.Controls
    If TypeOf Ctl Is MSForms.TextBox Then
        If Left(Ctl.Name, 3) = "OOT" Then
            If Ctl.Value = i Then
                x = Left(Ctl.Name, 7)
                x = x & "_lbl"
                y = x.Caption
            End If
        End If
    End If
    Me.MultiPage1.Value = 1
    Label1.Caption = y
Next Ctl