creation d'userform a partir d'une macro (nombre textbox fixé par la macro)

Bonjour a tous,
Je suis actuellement sur un projet Excel 2007 et dans ce projet j'ai besoin de pouvoir entrer des données lors de l'excécution de ma macro. Je dois faire une analyse de portefeuilles par rapport a un portefeuille de référence. J'aimerai pouvoir entrer mon portefeuille de référence dans un userform. Pour cela, il faudrait que lors de l'activation du userform, celui ci prenne en compte une feuille "ClasseActif" pour creer autant de textbox qu'il y a d'élément dans cette feuille afin d'avoir la composition du-dit portefeuille.
Je me demandais si cela était possible et si quelqu'un savait ou je pourrai trouver une aide la dessus?

Une autre solution serait de demander a l'utilisateur de donner le portefeuille de référence dans une autre feuille Excel avant de lancer la procédure, mais j'effectue une boucle sur les différentes feuilles du fichier qui contiennent des classes d'actif différentes (donc avec des feuilles "ClasseActif" qui change a chaque boucle).

Merci beaucoup!

Il y a une rubrique sur la création dynamique de contrôles sur une Form dans la FAQ VB6 qui pourrait t'aider. Il te faudra faire attention au noms des composants standards de vb6 qui ne sont pas les mêmes qu'en VBA... Mais le principe reste le même.

Bonjour,
Merci pour ta réponse!
Dans le lien que tu m'as donné, est ce que les Text1() du premier exemple pourraient éventuellement etre remplacés par des combobox ou des textbox en VBA?
Qu'entendent ils par "placer un controle" ?

Oui... Le principe reste le même.

Ok. J'ai essayé de faire un petit programme. Dans celui ci, je crée un userform contenant des textbox et des label. Les labels sont dans une feuille.
Je me demandais s'il était possible de prendre les valeurs des textbox pour les mettre dans des variables? Je les ai renommé pour ce faire, mais je ne sais pas comment faire pour sauvegarder ces valeurs dans des variables au moment du clique sur mon bouton.
Faut il que je recrée une discussion ou alors quelqu'un pourrait m'aider ici?
Merci beaucoup

Voici mon code :
L'userform3 est un userform que j'ai crée a part mais qui est vide (je le dimenssionne lors de l'éxécution de ma macro.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

Sub Test()   Dim MonLabel As Object Dim MaTextBox As Object   PositionTop = 10 For Ctr = 1 To ActiveSheet.UsedRange.Rows.Count   Set MaTextBox = UserForm3.Controls.Add("Forms.TextBox.1") Set MonLabel = UserForm3.Controls.Add("Forms.label.1") With MonLabel .Caption = ActiveSheet.UsedRange.Cells(Ctr, 1).Value .Height = "16" .Top = PositionTop + 2 .Width = "180" .Left = "60" End With   With MaTextBox .Height = "16" .Top = PositionTop .Width = "26" .Left = "20" .Name = "TextBox" & Ctr End With   PositionTop = PositionTop + 24   Next   With UserForm3 .Height = PositionTop + 50 .Width = "260" .Caption = "Saisie du compte de référence" End With   With UserForm3.CommandButton1 .Caption = "OK" .Height = "24" .Top = PositionTop .Width = "96" .Left = "60" End With UserForm3.Show   End Sub

---

J'ai également joint mon fichier

Bon du coup j'ai crée mon commandbutton sur mon userform et je change sa taille et sa position apres. Bref, le probleme que j'ai est que je ne sais pas comment récupérer les données de mes textbox. J'ai donc le code suivant pour mon clique :

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click()   ActiveSheet.Cells(1, 3).Value = Me.TextBox1.Value   End Sub

---

Mais ca me met l'erreur suivante : Erreur de compilation : Membre de méthode ou de données introuvable. Et ca surligne en jaune TextBox1
Merci d'avance