Discussion :

[FishAndChips]

Bonjour à tous,

J'aimerai créer dynamiquement des labels pour un projet que je veux réaliser.
J'ai donc fait quelques recherches et j'ai trouvé pas mal de code.
Voici un exemple:

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
17
18
19
20
21
22
23
24
25
26
27
 
Dim Top, Left, Width, Height, i As Integer
Dim NumeroTextBox As Integer
 
Top = 250
Left = 60
Width = 400
Height = 20
NumeroTextBox = 10
 
For i = 0 To TextBox1.Value - 1
 
Set Text = Me.Controls.Add("Forms.TextBox.1")
 
With Text
.Name = "Text" & NumeroTextBox
.Left = Left
.Top = Top
.Width = Width
.Height = Height
.Text = "-> "
End With
 
Top = Top + 20
NumeroTextBox = NumeroTextBox + 1
 
Next

Le Problème c'est que des que j'essaie d'utiliser ce bout de code, j'ai le message suivant:
"Method or data member not found"
Et le .Add de la ligne ci-dessous apparait sur fond bleu.

Code :

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

1
2
 
Set Text = Me.Controls.Add("Forms.TextBox.1")

Je ne sais pas quoi faire pour résoudre mon souci. Y a t-il une option à appeler ou une référence à mettre pour que ça fonctionne?
Je vous remercie par avance pour vos réponses.
Cordialement,

[FishAndChips]

Bon finalement après pas mal de recherche il semblerait que se soit Le Me de Me.Controls.Add qui posait probleme seulement maintenant toujours sur la meme ligne j'ai l'erreur "424 object required".
Quelqu'un pourrait m'aider?