Discussion :

[Aurélien13140]

Bonjour,
Encore et toujours, j'ai besoin de l'aide de la communauté pour un problème auquel je suis confronté.

Sur un UF, j'ai réussi tant bien que mal à ajouter automatiquement des Textbox en fonction d'une valeur lambda.

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
Private Sub commandbutton1_Click()
Dim NbTB As Integer
Dim ctlNew As Control
 
NbTB = Textbox1.value
 
    For i = 1 to NbTB
        Set ctlNew = Me.Controls.Add("Forms.TextBox.1", "Textbox" & 100 + i, True)
                With ctlNew
                        .Width = 145
                        .Left = 11
                        .Height = 15
                        .Top = 159 + i * ctlNew.Height
                End With
    Next
End Sub

Bon, pas de problème particulier pour ce code.

Par contre, si NbTB = 5 par exemple, on est bien d'accord que je vais créer automatiquement les TextBox101, TextBox102, TextBox103, TextBox104, TextBox105.

Pourtant, lorsque je veux utiliser ces nouvelles Textbox fraichement créées, de cette manière par exemple :

Code :

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

 Sheets("Feuille1").Cells(500, 500).Value = textbox103.Value

on me renvoi cette erreur :

Comme si la textbox n'existait pas.

Quelqu'un aurait une idée?

[Aurélien13140]

Un petit up'

[Invité]

Bonsoir,
Ici on ce trouve face au problème des torchons et des serviettes qu'il ne faut pas mélanger!

Texte + integer = "Texteinteger" => "TextBox" & 100 + 1 = "TextBox1001" => "TextBox" & (100 + 1) = "TextBox101"

[Aurélien13140]

heu..... Comment dire simplement que ton explication m'a plus embrouillé qu'autre chose
looll

[Invité]

Et ça c'est plus clair on additionne pas les carottes et le patates?

Code :

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

Set ctlNew = Me.Controls.Add("Forms.TextBox.1", "Textbox" & (100 + i), True

[Aurélien13140]

J'avais bien compris ton premier post, mais je ne vois pas la différence entre :

Code :

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

"Textbox" & (100 + i)

et

Code :

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

"Textbox" & 100 + i

.

Par curiosité, j'ai tout de même écrit le code suivant

Code :

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

Set ctlNew = Me.Controls.Add("Forms.TextBox.1", "Textbox" & (100 + i), True)

mais lorsque je tape par exemple

Code :

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

msgbox Textbox105.Value

rien ne se passe. Comme si elle n'existait pas.... comme avant

[Invité]

Il ce passe quelque chose apparemment puisque tu ne parles plus de message d'erreur!

L'erreur est toujousr présente?

Code :

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

1
2
Textbox105.Value="toto"
msgbox Textbox105.Value

[Aurélien13140]

J'ai toujours le même message d'erreur :
"Erreur d'execution 424"
Objet requis
avec cette ligne de soulignée

Code :

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

Textbox105.Value="toto"

[mjpmjp]

bonjour,
tu as un message "objet requis" !!!
çà peut être le nom mais çà peut être le lieu --> ou ce trouve l'objet ?
Feuil1.objet
Me.objet
UserFormName.objet
...

Set ctlNew = Me.Controls.Add("Forms.TextBox.1", "Textbox" & 100 + i, True)
et
Sheets("Feuille1").Cells(500, 500).Value = textbox103.Value

@+JP

[Aurélien13140]

Bonjour,
Tous mes controls sont sur un seul et même Userform.
J'ai testé de mettre Me.textbox105.value = "Toto" mais ce coup ci, j'ai cette erreur :


Rhhhhaaaa, je sais plus où donner de la tête!!!!!!!!

[mjpmjp]

bonjour,

et le "t" et "T" de Texbox ?

J'ai testé de mettre Me.textbox105.value = "Toto" mais ce coup ci, j'ai cette erreur :

Code :

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

1
2
 
Me.Textbox105.value = "Toto"

@+JP