userform indéxé

[yanou]

Bonjour,

est ce que c possible de charger un userform indéxé

c'est à dire:

private sub load()
dim i as string
i = combox1.value
userform(i).show <------ cette forme ne marche pas comment dois je faire?
end sub

 

[fdarro]

salut yanou

essayes ça

private sub load()
dim i as string
i = combox1.value
Me.Controls(userform & i).show
end sub

@+

 

[michel]

bonjour Yanou , bonjour Fdarro

ci joint une autre version

Sub choixUSF()
Dim i As Byte
i = ComboBox1.Value
VBA.UserForms.Add("UserForm" & i).Show
End Sub


bonne soiree
MichelXld

 

[yanou]

merci les gars, ca fonctionne!!!!

bonne fin de week