Discussion :

[jackall]

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

Le problème ce situe à :

Code :

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

y = x.Caption

L'erreur dit : Qualificateur incorrect

Et je ne sais pas quoi faire...

J'éspère m'avoir éxpliqué le mieu possible.

Cordialement

[aalex_38]

un survol rapide montre que tu ne défini pas x

Ici tu as un string

Code :

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

x = Left(Ctl.Name, 7)

ici tu dis que c'est un objet :

Code :

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

y = x.Caption

Il faut déja régler ce problème

[jackall]

Bonjour et merci de ta réponse

Arf oui effectivement je n'avais pas fait attention ...

une fois que j'ai écrit cela :

Code :

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

x = Left(Ctl.Name, 7)

et que ensuite j'ai recollé "_lbl" a x

comment est ce que je pourrais faire pour pouvoir utiliser la propriété caption du label avec le nom que contient x ?

Cordialement

[Krovax]

Bonjour
Si x contient bien le nom d'un control (exemple textbox1)

Code :

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

Controls(x).captation

Par contre un tuto pout toi
Fondements sur les variables et les constantes

Tu devrais utiliser l'option explicite et déclarer tes variable cela t'éviterai de tels des erreurs

[jackall]

Merci à toi, cela fonctionne.
Et merci aussi pour ce tuto, je vais le regarder de plus prés, il devrait m'aider ^^

Cordialement