Nom d'objet variable

Question

J&#8217;ai une Userform dans laquelle j&#8217;ai plusieurs Textbox dans lesquelles je veux placer des information à l&#8217;aide d&#8217;un tableau dynamique. 
J&#8217;ai nommé les TextBox de façon séquentiel. Il s&#8217;agit de plusieurs ligne de text box qui contiennent des infos sur des employés chaque ligne 
Contient les mêmes informations mais pour un employé différent  

Voici le code que je veux Faire ================================================


'Placer les infos dans les cases appropriés.
    
    TB_TS_SEM_1.text = Tab_Taux_Employé(1).T_Simple
    TB_TD_SEM_1.text = Tab_Taux_Employé(1).T_Demi
    TB_TD_WE_1.text = Tab_Taux_Employé(1).T_Double
    TB_Sus_SEM_1.text = Tab_Taux_Employé(1).T_Demi - Tab_Taux_Employé(1).T_Simple
    TB_Sus_WE_1.text = Tab_Taux_Employé(1).T_Double - Tab_Taux_Employé(1).T_Simple
    TB_Pension_1.text = Tab_Taux_Employé(1).T_Pension
    TB_Voy_1.text = Tab_Taux_Employé(1).T_Voyage

Qui se transforme en ceci

Call Module_Sub.Placer_Info(Tab_Taux_Employé(), Z) (QUI EST DANS UNE COMBO BOX CHANGE())

Public Sub Placer_Info(ByRef Tab_Taux_Employé() As Données_Taux_Employé, ByVal Z As Integer)

    TB_TS_SEM_Z.text = Tab_Taux_Employé(Z).T_Simple
    TB_TD_SEM_Z.text = Tab_Taux_Employé(Z).T_Demi
    TB_TD_WE_Z.text = Tab_Taux_Employé(Z).T_Double
    TB_Sus_SEM_Z.text = Tab_Taux_Employé(Z).T_Demi - Tab_Taux_Employé(Z).T_Simple
    TB_Sus_WE_Z.text = Tab_Taux_Employé(Z).T_Double - Tab_Taux_Employé(Z).T_Simple
    TB_Pension_Z.text = Tab_Taux_Employé(Z).T_Pension
    TB_Voy_Z.text = Tab_Taux_Employé(Z).T_Voyage

End Sub

NHenry · Answer

Bonjour,

Controls("TextBox1").Text="Valeur"
.text ou .Value, je ne sais plus.
ça fonctionne ?

Mon site

cs_rafanel · Answer

Oui c'est bien ça
Controls fonctionne avec n'import quel objet

TR

ucfoutu · Answer

Bonjour,

Donc (exemple) :

Me.Controls("TB_TS_SEM_" & Z).text = Tab_Taux_Employé(Z).T_Simple 
'.....etc ===>> pareil pour toutes les lignes de même espèce ...


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Nom d'objet variable

3 réponses

Votre réponse

Discussions similaires