Bonjour à tous,
petit souci de code. J'aimerais générer du code à partir de variables. Concrètement, voici mon pb:
* Dans ma feuille, j'ai des contrôles indexés (avec l'index 0 et visible=false)
* Je remplis un tableau avec le nom de ses éléments indexés à 1.
* Je désire ensuite charger chaque élément se trouvant dans mon tableau avec une boucle.
Voici un bout de code illustrant cette description:
dim TableauInfoDosage(6) as string
dim IndiceBoucleInfoDosage as integer
TableauInfoDosage(0) = "Lb_VolumeWerner1(1)"
TableauInfoDosage(1) = "Lb_CoeffMulti(1)"
TableauInfoDosage(2) = "Lb_DensiteTheo(1)"
TableauInfoDosage(3) = "Lb_Kr(1)"
TableauInfoDosage(4) = "Lb_VolumeWerner(1)"
TableauInfoDosage(5) = "Zs_DensiteTheo(1)"
TableauInfoDosage(6) = "Zs_Kr(1)"
For IndiceBoucleInfoDosage = 0 To 6
Load TableauInfoDosage(IndiceBoucleInfoDosage)
With TableauInfoDosage(IndiceBoucleInfoDosage)
Set .Container = Fr_InfoDosage(1) 'Indique l'objet devant contenir le contrôle
.Visible = True
End With
Next IndiceBoucleInfoDosage
Bien évidemment ca ne fonctionne pas mais je voudrais savoir s'il y avait un moyen d'y parvenir.
Merci
Jeom