Bonjour,
Je me permet de revenir vers vous car malgré avoir fait plusieurs recherches sur internet et le forum, je n'arrive toujours pas a faire fonctionner ma combobox comme je le souhaiterais...
Ci-dessous la demande effectuer sur mon dernier post.
Merci d'avance pour votre aide.
Je me permet de revenir vers vous car malgré avoir fait plusieurs recherches sur internet et le forum, je n'arrive toujours pas a faire fonctionner ma combobox comme je le souhaiterais...
Ci-dessous la demande effectuer sur mon dernier post.
J'ai réalisé un code pour le système de saisi semi-intuitif mais celui-ci selectionne la première valeur sans me proposer les autres qui suivent et qui commencent par les même caractère.
De plus, j'ai rajouté le système de combobox cascade. Or dans mon fichier excel, la valeur pour le 2ème ComboBox ne se situe pas en face de la valeur sélectionner dans le 1er ComboBox.
Comme dans l'exemple ci-dessous, je souhaiterai sélectionner 2-Documention dans le 1er ComboBox puis 1-Heures dans le 2ème ComboBox puis heures fabrication dans le 3ème ComboBox
Exemple: Regarde la pièce jointe 329692
Code:Private Sub ListActivity_Change() ListSection.Clear Set Dico1 = CreateObject("Scripting.Dictionary") Set Dico2 = CreateObject("Scripting.Dictionary") tmp = UCase(ListActivity) & "*" For i = LBound(TabTotal) To UBound(TabTotal) If UCase(i) Like tmp Then If Not IsNumeric(TabTotal(i, 1)) Then Dico1(TabTotal(i, 1)) = "" If TabTotal(i, 1) = ListActivity Then Dico2(TabTotal(i, 2)) = "" Next ListActivity.List = Dico1.keys ListActivity.DropDown ListSection.List = Dico2.keys End Sub
Pouvez-vous m'indiquez la démarche à suivre?
Merci bien
Merci d'avance pour votre aide.