Une aide s'il cous plait !!!!

Question

Voila,j'ai cr&#233;e une arborescence en mode cr&#233;ation sur access et je
voudrais savoir si vous pouviez m'aider &#224; r&#233;aliser un programme qui me
permettrait d'utiliser,dans un formulaire,un combobox(liste
d&#233;roulante).Mon arborescence se d&#233;compose en 4 parties : la premi&#232;re
represente ce que j'ai appel&#233; des
divisions(AGRICULTURE,VIGNE,MEUNERIE....) &#224; qui j'ai associ&#233; a chacun
d'eux( en effectuant des relations ) des filiales,des site et des
villes ou elles sont implant&#233;s



ex : AGRICULTURE------ (division)

       ----------->soufflet agriculture------ (filiale)

       ----------------->soufflet atlantique ----(site)

       -------------------------->Vitrye  94400---- (Ville BP)

       ----------------->soufflet carburant-----(filiale)

       -------------------------->Troyes 10000----(ville)

       MEUNERIE----(division)

             etc......



De ce fait je veux r&#233;aliser 4 listes d&#233;roulantes
(divisions,filiales,sites,villes BP) qui g&#233;n&#232;re automatiquement une
filiale, lorsque je choisit une division,qui une fois la filiale
choisit g&#233;n&#233;re aussi automatiquement un site etc.........

En tout cas jespere que je me suis bien expliquer et ca me ferait
enormement plaisir si vous pouviez m'aider car l&#224; je bloque et j'ai du
mal &#224; avancer,je vous remercie d'avance !!!!



Bisous !!!!

capoueidiablo · Answer

je suis pas un expert en VBA mais en VB il est possible de cr&#233;er Dynamiquement les items dans une ComboBox



pour ajouter un item dans la comboBox : 

 - Combo1.AddItem "string"

pour r&#233;cuperer la valeur selectionner dans une combo (pour savoir qu'elle "sous-menu" afficher)

    Private Sub Combo1_Click()

        MsgBox Combo1.List(Combo1.ListIndex)

    End Sub


te reste plus qu'a faire les requets en fonction d'ou tu te trouve :o)



j'espere t'avoir un peu aid&#233; :o) 

Bon courage--Capoueidiablo--

marika21 · Answer

Merci pour ton aide mais le langage VB n'est pas mon point fort,si tu
pouvais m'expliquer ta syntaxe ca me ferait plaisir !!!merci

capoueidiablo · Answer

Re bonjour a toi,



d&#233;sol&#233; pour le temps de r&#233;ponse mais z'avais pas vue 



bon je t'ai fais un exemple plutot simple tu as juste a coller 3 combo
box sur ta form et de coller le code (enfin c'est toujours en vb6) si
ca ne marche toujours pas j'installerai VB rien que pour toi :p



bon voila le code :







Private Sub Combo1_Click()

    'on efface la combo a remplir avec les new valeurs

    Combo2.Clear

    Select Case Combo1.List(Combo1.ListIndex)

    Case "france"

        Combo2.AddItem "paris"

        Combo2.AddItem "drancy"

        Combo2.AddItem "toulouse"

    Case "espagne"

        Combo2.AddItem "madrid"

        Combo2.AddItem "salamanca"

        Combo2.AddItem "valadolid"

    Case "portugal"

        Combo2.AddItem "Porto"

        Combo2.AddItem "aveiro"

        Combo2.AddItem "coimbra"

        Combo2.AddItem "lisboa"

    End Select

End Sub



Private Sub Combo2_Click()

    'on efface la combo a remplir avec les new valeurs

    Combo3.Clear

    Select Case Combo2.List(Combo2.ListIndex)

    Case "coimbra"

        Combo3.AddItem "c'est chez moi :p"

    Case Else

        Combo3.AddItem "Rat&#233; :p"

    End Select

End Sub



Private Sub Form_Load()

    Combo1.AddItem "france"

    Combo1.AddItem "espagne"

    Combo1.AddItem "portugal"

End Sub



voila voila, h&#233;site pas, j'ai pas mal de temps en ce moment :p

--Capoueidiablo--

Une aide s'il cous plait !!!!

3 réponses

Discussions similaires