faire un genre de variable

Bonsoir la room
Je me pose une question sans savoir si c'est possible et surtout si je vais reussir à exprimer ma pensée simplement

est il possible de mettre alors pas sous cette forme puisque j'ai essayé et cela ne marche pas mais je voulais faire ca

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() Val = UserForm2.TextBox1.Value     Janvier_Général.Val.Value = CommandButton1.Caption     End Sub

---

en fait dans le principe j'ai un userform1 avec pleins de textbox

quand je clique dans une textbox par exemple la textbox69 cela m'ouvre le userform2 qui possede des bouttons avec une donnée sur chaque button.
Sur le userform2 j'ai mis un textbox1 qui me remonte le nom de la textebox qui a été cliqué pour ouvrir le userform2 ici textbox69.

Ca, ça marche. Ce que je n'arrive pas a lui faire comprendre c'est que la donnée du boutton doit etre inscrit dans le texbox dont le nom est affiché dans le textbox1.
pour cela je voulais créer un genre de variable qui lui dit qui la textbox a remplir c'est le nom affiché ds le textebox1 du userform2


bon c'est un peut compliquer a explique mais c'est en gros ce que j'essai de faire

merci de votre patience.

Bonjour,

Citation:

---

quand je clique dans une textbox par exemple la textbox69 cela m'ouvre le userform2 qui possede des bouttons avec une donnée sur chaque button.
Sur le userform2 j'ai mis un textbox1 qui me remonte le nom de la textebox qui a été cliqué pour ouvrir le userform2 ici textbox69.

Ca, ça marche. Ce que je n'arrive pas a lui faire comprendre c'est que la donnée du boutton doit etre inscrit dans le texbox dont le nom est affiché dans le textbox1.
pour cela je voulais créer un genre de variable qui lui dit qui la textbox a remplir c'est le nom affiché ds le textebox1 du userform2

---

Si ça ce n'est pas de l'hébreux... ;-)
Regarde la propriété "Controls" de l'UserForm :

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click()   Me.Controls(TextBox1.Text).Text = CommandButton1.Caption   End Sub

---

Hervé.

Coucou j'ai mis du temps mais voici mon code et ça fonctionne:P

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton1_Click()   Z = Télécommande.TextBox1.Value   Janvier_Général.Controls(Z).Value = CommandButton1.Caption 'Copie la valeur de la télécommande dans le planning Janvier_Général.Controls(Z).BackColor = CommandButton1.BackColor 'Copie la couleur de la télécommande dans le planning Janvier_Général.Controls(Z).ForeColor = CommandButton1.ForeColor 'Copie la couleur du texte de la télécommande dans le planning Télécommande.Hide 'ferme la télécommande       End Sub

---

merci