Bonsoir le forum,
J'aimerai remplir le contenu d'une combobox en fonction d'une autre et que le contenu soit trié par ordre alphabétique...
Je ne sais pas comment m'y prendre :
1/ Je peux initialiser mes comboboxes dans la fonction UserForm_Initialize()
et supprimer les éléments en fonction du contenu d'autres comboboxes
2/ Je peux ajouter mes éléments en fonction de ce que je choisis dans la combobox précédente...
Comment faire mon choix entre ces deux solutions ?
J'ai essayé la deuxième solution mais je pense avoir un problème de rafraichissement de mes comboboxes puisque ça ne fonctionne pas..
Merci pour le coup de pouce,
Baptiste
J'aimerai remplir le contenu d'une combobox en fonction d'une autre et que le contenu soit trié par ordre alphabétique...
Je ne sais pas comment m'y prendre :
1/ Je peux initialiser mes comboboxes dans la fonction UserForm_Initialize()
et supprimer les éléments en fonction du contenu d'autres comboboxes
2/ Je peux ajouter mes éléments en fonction de ce que je choisis dans la combobox précédente...
Comment faire mon choix entre ces deux solutions ?
J'ai essayé la deuxième solution mais je pense avoir un problème de rafraichissement de mes comboboxes puisque ça ne fonctionne pas..
Code:
Private Sub cbx_type_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If cbx_type.Value = "OSP" Then
With cbx_subType
.AddItem "DPE/Network"
.AddItem "SS7"
.AddItem "Backup"
.AddItem "Access/GUI"
.AddItem "ddup/snap"
.AddItem "stat/account"
.AddItem "fileset"
.AddItem "configuration"
.AddItem "MCP"
.AddItem "Defence"
End With
ElseIf cbx_type.Value = "Service" Then
With cbx_subType
.AddItem "ICC -Kernel"
.AddItem "ICC -Voice"
.AddItem "ICC -Data"
.AddItem "frc"
.AddItem "cmm"
.AddItem "other"
End With
EsleIf cbx_type.Value = "3rd Party"
With cbx_subType
.AddItem "Tru64"
.AddItem "Solaris"
.AddItem "DECSS7"
.AddItem "Oracle"
.AddItem "Ulticom"
End With
EsleIf cbx_type.Value = "HW"
With cbx_subType
.AddItem "Disk"
.AddItem "CPU"
.AddItem "PSU"
.AddItem "MotherBoard"
.AddItem "Cabling"
.AddItem "SS7 board"
End With
End If
End Sub
Merci pour le coup de pouce,
Baptiste