Bonjour au forum,
Je voudrais savoir si il y a une possibilité de simplifier le code ci dessous :
Comme la combobox105 se situe dans la frame 100 je n'arrive pas à dialoguer avec celle ci si je ne spécifie pas le nom de la frame et je suis obligé de la rentrer à chaque fois sinon sa ne fonctionne pas.
Merci à vous
Je voudrais savoir si il y a une possibilité de simplifier le code ci dessous :
Code:
Dim Sh As Worksheet
Data = "aaa"
With USF.Controls("Frame" & 100).ComboBox105.Clear
For Each Sh In Worksheets
If InStr(1, UCase(Sh.Name), UCase(Data)) > 0 Then USF.Controls("Frame" & 100).ComboBox105.AddItem Sh.Name
Next Sh
Data = USF.Controls("Frame" & 100).ComboBox105.Value
Comme la combobox105 se situe dans la frame 100 je n'arrive pas à dialoguer avec celle ci si je ne spécifie pas le nom de la frame et je suis obligé de la rentrer à chaque fois sinon sa ne fonctionne pas.
Merci à vous