ajouter un chiffre a un nom de textbox

Salut la room

je suis toujours dans mes textbox :)

sur mon form j'ai pleins de textbox en voici quelques exemples

textbox1_1
textbox1_5
textbox3_2
textbox4_8 etc...

quand je dbclic dessus, le nom s'affiche dans le textbox1

j'ai un combobox1 contenant des chiffres
1
2
3
4
5
etc...

j'aimerai mais je n'y arrive pas quand je double clic sur textbox4_8 par exemple

textbox4_8 s'affiche dans textbox1 ça c'est oki

ensuite quand je clic sur 4 par exemple du combobox1 alors mon

textbox4_8 dans le texbox1 se transforme en textbox4_12

en fait je cherche a ajouter le chiffre cliqué

moi quand j'essai ca me fait pour l'exemple susmentionné textbox4_84, en fait ça me le met au bout mais ça l'ajoute pas

merci espérant avoir été claire

Bonjour UDSP50,

Rien compris... :aie:
Exemple plus explicite ?
Fichier exemple ?
Code ?
Formalisme du UserForm (s'il y a) ?

Cordialement,
Kimy

désolé c'est pas toujours simple d'expliquer :oops:

bon sur mon form j'ai plein de textbox
mes textbox son placées comme un tableau

TextBox1_1 TextBox1_2 TextBox1_3 TextBox1_4 TextBox1_5 TextBox1_6 TextBox1_7.................................................. TextBox1_31
TextBox2_1 TextBox2_2 TextBox2_3 TextBox2_4 TextBox2_5 TextBox2_6 TextBox2_7.................................................. TextBox2_31
TextBox3_1 TextBox3_2 TextBox3_3 TextBox3_4 TextBox3_5 TextBox3_6 TextBox3_7.................................................. TextBox3_31
TextBox4_1 TextBox4_2 TextBox4_3 TextBox4_4 TextBox4_5 TextBox4_6 TextBox4_7.................................................. TextBox4_31
...................
...................
...................
...................
TextBox22_1 TextBox22_2 TextBox22_3 TextBox22_4 TextBox22_5 TextBox22_6 TextBox22_7.................................................. TextBox22_31

j'ai aussi
un textbox du nom de Mir
un bouton du nom de Cb1
une liste modifiable du nom de Rec

Le principe :

quand je double clic sur un textbox exemple TextBox3_1 le nom de ce textbox s'affiche dans Mir

Ensuite je clic sur Cb1, au clic sur ce bouton il lit le textbox qui a été double cliqué en regardant la valeur dans Mir et copie dans le textbox concerné le caption et la couleur du bouton

( c'est un exemple pour 1 bouton mais j'en ai plusieurs )

Ça ça marche

Ce que j'aimerais c'est que si je choisi 3 par exemple dans Rec et que je clic sur Cb1 il me fasse la meme chose qu'au dessus mais aussi dans le textbox de la meme ligne +3 c'est à dire :
TextBox3_1 TextBox3_4 TextBox3_7 TextBox3_10 TextBox3_13 TextBox3_16 TextBox3_19 TextBox3_22 TextBox3_25 TextBox3_28 TextBox3_31

si je choisi +1
TextBox3_1 TextBox3_2 TextBox3_3 TextBox3_4 TextBox3_5 TextBox3_6 ..................................................................................... TextBox3_31

moi avec mon code ca marche sans marcher voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Cb1_Click()   Z = Mir.Value Janvier_Général.Controls(Z + Rec).Value = Cb1.Caption 'Copie le texte du boutton Janvier_Général.Controls(Z + Rec).BackColor = Cb1.BackColor 'Copie la couleur de la télécommande dans le planning Janvier_Général.Controls(Z + Rec).ForeColor = Cb1.ForeColor 'Copie la couleur du texte de la télécommande dans le planning     End Sub

---

en fait (en considérent que rec est = à 3) le problème c'est que au lieu de me faire
TextBox3_1 + Rec = TextBox3_4

il me fait
TextBox3_1 + Rec =TextBox3_13

Est-ce plus clair comme ça

en tout cas merci d'avance

ça non plus ça marche pas

Code:

---

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

Private Sub Cb1_Click()     Z = Mir.Value For i = 1 To 31 Janvier_Général.Controls(Z & i).Value = Cb1.Caption Janvier_Général.Controls(Z & i).BackColor = Cb1.BackColor Janvier_Général.Controls(Z & i).BackColor = Cb1.BackColor Next i     End Sub

---

Bonjour,

Je te conseille d'utiliser Split pour isoler le dernier nombre du nom de ton TextBox:

Code:

---

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

Private Sub Cb1_Click() Dim aControlName() As String ' Array pour recevoir les 2 parties du nom du TextBox Dim iControlNumber As Integer Dim Z As String Z = Me.Mir.Value aControlName = Split(Z, "_") iControlNumber = Val(aControlName(1)) ' On isole le 2e nombre aControlName(1) = Str(iControlNumber + Val(Me.Rec.Text)) ' On incrément le 2e nombre, on le remet en String et on le place en 2e position dans l'Array Z = Join(aControlName, "_") ' On recrée le nom du TextBox en réassemblant l'Array Janvier_Général.Controls(Z).Value = Me.Cb1.Caption 'Copie le texte du boutton Janvier_Général.Controls(Z).BackColor = Me.Cb1.BackColor 'Copie la couleur de la télécommande dans le planning Janvier_Général.Controls(Z).ForeColor = Me.Cb1.ForeColor 'Copie la couleur du texte de la télécommande dans le planning   End Sub

---

Pense à déclarer toutes tes variables (Dim).

Code non testé car je n'ai pas ton UserForm à disposition.
Janvier_Général peut être remplacé par Me qui est le UserForm où est placé le code.