faire un Sub pour plein de TextBox

Version imprimable

12/09/2019, 09h58
Fireapple

faire un Sub pour plein de TextBox
Bonjour, bonsoir !

Je vais sûrement poser une question stupide. et peut-être même une question qui a déjà été posée (a ce moment la je m'en excuse mais je ne l'avais pas trouvé).

J'ai un UserForm avec entre 10-20 Textbox. tout les TextBox on le même nom (c-a-d Textebox1, Textebox2 ... etc.) et doivent exécuter un même code.

Style :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub TextBox1_Change() TextBox1.Text = Cells(1.1) End Sub Private Sub TextBox2_Change() TextBox1.Text = Cells(2.1) End Sub
serait-il possible de faire un grand Private Sub pour tout les TextBox histoire de rendre le tout un poil plus propre?

merci bien,

bonne journée

PS : Après 30 secs de réfection je me suis dit qu'un bouton pour tout retranscrire d'un coup serait bien plus simple. mais du coup je sais pas si je peux écrire un truc du style
Code:

1 2 3 Private Sub CommandButton1_Click() TextBox & X.Text = Cells(X.1) End Sub
Mais la première question reste intéressante et me permettra de rendre d'autre petit code plus joli (genre une battail navale avec 100 boutons. oui le code est moche. très moche...)
12/09/2019, 13h21
MarcelG
Bonjour,

Généralement, lorsqu'un même évènement est lié à un même type de contrôle, l'on procède par module de classe.

Maintenant, la ligne de code
Code:

1 2 TextBox & X.Text = Cells(X.1)
ne signifie absolument, absolument rien.

Par contre,
Code:

1 2 3 4 Dim i as Byte For i = 1 To 10 Me.Controls("Textbox_" & i).Text = Worksheets("lawks").Cells(i,1).Value Next i
est autrement plus significatif.

Je ne peux que te conseiller la lecture, voire l'étude des 2 tutoriels de Silkyroad consacrés respectivement aux formulaires(Userform) et aux contrôles.
Ils figurent, entre autres, sur son espace documentaire.

Bonjour,

Code:

1
2
3
4
5
Public WithEvents TXT As msforms.TextBox
Public Inx As Integer
Private Sub TXT_Change()
UserForm1.TextChange Inx
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Ctr As New Collection
Public Sub TextChange(I As Integer)
MsgBox "TextBox" & I & ".Text = Cells(" & I & ".1)"
End Sub
Private Sub UserForm_Initialize()
For Each c In Me.Controls
    If TypeName(c) = "TextBox" Then
        Ctr.Add New Classe1
        Set Ctr(Ctr.Count).TXT = c
        Ctr(Ctr.Count).Inx = Ctr.Count
    End If
Next
End Sub

Salut Thumb down

Personnellement, j'utilise une variante

Modules de classe (idem au tien) nommé ici

Citation:

Class_changt_couleur_Textbox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Public WithEvents TB As MSForms.TextBox
 
Private Sub TB_Change()
 
With TB
        If Len(.Value) > 0 Then
                .BackColor = RGB(30,25,0)
        Else
                .BackColor = RGB(10,10,10)
        End If
End With
 
End Sub

Variante sur alimentation de la classe
Dans le module du formulaire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim CTB() As New Class_changt_couleur_Textbox
 
Private Sub UserForm_Initialize()
 
Dim Ctl As MSForms.Control
 
Dim k as Byte
 
k = 0
 
For Each Ctl In Me.Controls
    If TypeName(Ctl) = "TextBox" Then
          k = k + 1
          ReDim Preserve CTB(1 To k)
           Set CTB(k).TB = Ctl
    End If
Next ctl

10/10/2019, 11h29
Fireapple

1 pièce(s) jointe(s)

Bonsoir!
Je voulais déjà m'excuser pour cette longue absence. promis ce n'est pas volontaire je suis en stage.

MarcelG effectivement mon code "style" n’existe pas haha. C'était juste pour me faire comprendre. Donner une image de ce que je souhaitais obtenir à la fin.

Mais merci à vous deux pour vos conseils aviser ! Ils m'ont été très utiles. Et du coup pour vous remercier je vous envoie ici mon code (presque) finit et surtout FONCTIONNELLE !

Bon pour des soucis de confidentialité j'ai dû supprimer tout le contenu du excel. Reste que ce qui est utile au code.

je vous explique rapidement comment il fonctionne. L'idée de base et qu'il doit copier coller des cellules de la feuille "produit" vers la feuilles "historique des prix".
étant donné qu'on parle d'un projet il n'a pas mal de chose qui bougent. Par exemple de nouvelles pièces: on peut en remplacer deux par une ou l'inverse.
Bref tout ça pour dire que les cellules bouge. Et vu qu'elle bouge leurs coordonnées change aussi.
J'ai dû donc créé un un programme qui me permettrait de mettre à jour les coordonnées des cellules à copier. Et c'est là ou votre aide mon été précieux. Le programme devait pouvoir aussi s'adapter au désire de l'utilisateur et ne pas être brider sur un nombre de cases à copier coller.

Bref si vous voulez essayer, le premier programme sauvegarde des prix est exécutable depuis le bouton "save" en L3 sur la feuille produite, et l'autre en passent par le menu exécutable depuis le bouton "ici" dans la feuilles "historique des prix".
Si vous avez des idées d’amélioration ou de quelconque réflexions dessus je suis tout ouïe.

Bonne journée

Pièce jointe 509002