Combox et Listbox a reinitialiser

Question

Salut tous le monde,

Voila, j'ai plusieurs combox et listbox dans une frame. Je voulais savoir si i est possible de reinitialiser une combox ou une list box en fonction de la precedente. 

Pour l'instant voila ce que 'ai

Private Sub UserForm_Initialize()
    With CmbList1       'Values Available in CmbList1Box
        For i = 1 To 9
            Entrycount = ActiveSheet.Cells(i, 1).Value
            CmbList1.AddItem Entrycount
        Next
    End With
    With CmbList2      'Values Available in CmbList2 Box
        For i = 10 To 99
            Entrycount = ActiveSheet.Cells(i, 1).Value
            CmbList2.AddItem Entrycount
        Next
    End With 
End Sub

et je souhaite qu'en choississant:
      - 1 dans la 1ere combox, la deuxieme combox ne me donne que les choix de 10 a 19
      - 2 dans la 1ere combox, la deuxieme combox ne me donne que les choix de 20 a 29
etc.....

Probleme supplementaire
Dans les frame, comment fait-on pour k'on ne puisse selectionner k'une des option. Je sais kil y a un truc a faire dans les proprietes, mais je ne sais plus koi et je ne sais plus si c dans les prop de la frame ou des option.

Merci de vos reponses...

jpleroisse · Answer

Bonsoir,



Option Explicit

Private Sub CmbList1_Click()

CmbList2.Clear

Dim i, y, x, Entrycount1, Entrycount2, Entrycount3

Select Case CmbList1.ListIndex

    Case 0

        For x = 10 To 19

           Entrycount2 = ActiveSheet.Cells(x, 1).Value

           CmbList2.AddItem Entrycount2

        Next x

    Case 1

        For y = 20 To 29

         Entrycount3 = ActiveSheet.Cells(y, 1).Value

         CmbList2.AddItem Entrycount3

       Next y

    Case Else

        For i = 10 To 99

        Entrycount1 = ActiveSheet.Cells(i, 1).Value

       CmbList2.AddItem Entrycount1

    Next i

End Select

End Sub



Private Sub UserForm_Initialize()

Dim i, Entrycount

       'Values Available in CmbList1Box

        For i = 1 To 9

            Entrycount = ActiveSheet.Cells(i, 1).Value

            CmbList1.AddItem Entrycount

        Next

End Sub

Pour les options dans le Frame, donne un peu plus d'explications.



jpleroisse

cs_vevel · Answer

Merci pour la soluce jpleroisse,

pour la frame, quand t as plusieurs otions et que tu veux qu'une seule de ces options soit choisie (et une seule uniquement), c'est a dire que si tu selectionne une option, et que tu veux changer. et bien ca te deselectionne automatiquement la premiere.

Combox et Listbox a reinitialiser

2 réponses

Discussions similaires