[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
 

Pierrot93

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

Re

comprends pas trop, chez moi cela fonctionne, regarde le fichier joint.

@+
 

Pièces jointes

  • classeur1.zip
    9.6 KB · Affichages: 171
  • classeur1.zip
    9.6 KB · Affichages: 178
  • classeur1.zip
    9.6 KB · Affichages: 168

Discussions similaires

Réponses
3
Affichages
294

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 851
dernier inscrit
vaiata