[VBA] Position Textbox par rapport à label dans Frame

Allergique

XLDnaute Junior
Bonsoir tout le monde,

je bloque sur un code actuellement dans une macro.

Dans un formulaire j'ai une Frame j'ai une multitude de Labels.
Le but de la macro est de remplacer les Labels par des Textbox, et de les mettre à la même position.

j'ai mis le code suivant:

Code:
Dim Ctrl As Control
Dim i As Integer

For i = 2 To 22

Set Ctrl = Me.Controls.Add("forms.textbox.1")

With Ctrl
    .Name = "textbox" & i
    .Visible = True
    [b].Left = UserForm1("Label" & i).Left[/b]
    [b].Top = UserForm1("Label" & i).Top[/b]
    .Value = UserForm1("Label" & i).Caption
End With

Next i
La position retournée est Left=36, et Top =12. Le problème c'est que cette position doit être par rapport au Frame1 et non par rapport au bord de l'userform.
Le Textbox se retrouve donc complètement à gauche

Comment est-ce possible de positionner le Textbox par rapport au Frame?

Merci d'avance pour votre aide
 

Pierrot93

XLDnaute Barbatruc
Re : [VBA] Position Textbox par rapport à label dans Frame

Bonjour Allergique

essaye peut être comme suit :

Code:
Dim Ctrl As Control
Dim i As Integer
For i = 2 To 22
Set Ctrl = Frame1.Controls.Add("forms.textbox.1")
With Ctrl
    .Name = "textbox" & i
    .Visible = True
    .Left = Frame1("Label" & i).Left
    .Top = Frame1("Label" & i).Top
    .Value = Frame1("Label" & i).Caption
End With
Next i
bonne soirée
@+

Edition : code doit être dans le module de l'USF, sinon faire précéder le nom du cadre par le nom de l'USF.
 

Allergique

XLDnaute Junior
Re : [VBA] Position Textbox par rapport à label dans Frame

Merci pour ton aide Pierrot93,

J'ai essayé les 2 manières mais rien ne change malgré les 2essais de codes suivants:

Code:
.Left = Frame1("Label" & i).Left
ou

Code:
.Left = UserForm1.Frame1("Label" & i).Left
 

Allergique

XLDnaute Junior
Re : [VBA] Position Textbox par rapport à label dans Frame

Re,

Autant pour moi, j'avais fait une erreur bête en modifiant le code :eek:

Maintenant ça fonctionne très bien

Merci et bonne soirée
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas