Discussion :

[UDSP50]

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

[Kimy_Ire]

Bonjour UDSP50,

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

Cordialement,
Kimy

[UDSP50]

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

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 :

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

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

[UDSP50]

ça non plus ça marche pas

Code :

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

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

[AlainTech]

Bonjour,

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

Code :

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

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.