optionbutton et choix de code

[rudy dehaudt]

bonjour a tous
j ai placer 3 optionbuttons dans mon usf et j aimerai savoir si je peut en selectionnent le bouton4 le code ci dessou se lance

Private Sub UserForm_Initialize()
With Feuil8
j = 0
i = 3
While .Cells(i, 2) <> ""
If .Cells(i, 12) = "EN ATTENTE" Then
ListBox1.AddItem .Cells(i, 2)
ListBox1.List(j, 1) = .Cells(i, 3)
ListBox1.List(j, 2) = .Cells(i, 4)
ListBox1.List(j, 3) = .Cells(i, 5)
j = j + 1
End If
i = i + 1
Wend
End With

End Sub



et si c est le bouton 1 se sera le code ci dessou

Private Sub UserForm_Initialize()
With Feuil8
j = 0
i = 3
While .Cells(i, 2) <> ""
If .Cells(i, 12) = "NC" Then
ListBox1.AddItem .Cells(i, 2)
ListBox1.List(j, 1) = .Cells(i, 3)
ListBox1.List(j, 2) = .Cells(i, 4)
ListBox1.List(j, 3) = .Cells(i, 5)
j = j + 1
End If
i = i + 1
Wend
End With

End Sub

est ce la plus simple des solutions ?

A+

 

[Minick]

Re : optionbutton et choix de code

Salut,

Tu peux faire comme cela, sur click d'une option la liste se met a jour
(pas besoin du bouton afficher):

Private Sub CommandButton1_Click()
  Unload Me
End Sub

Private Sub OptionButton1_Click()
    Call MajListe("NC")
End Sub

Private Sub OptionButton3_Click()
    Call MajListe("C")
End Sub

Private Sub OptionButton4_Click()
    Call MajListe("EN ATTENTE")
End Sub

Private Sub UserForm_Initialize()
    Me.OptionButton4.Value = True
    Call MajListe("EN ATTENTE")
End Sub

Private Sub MajListe(Donnees As String)
    With Feuil8
    j = 0
    i = 3
    ListBox1.Clear
    While .Cells(i, 2) <> ""
    If .Cells(i, 12) = Donnees Then
    ListBox1.AddItem .Cells(i, 2)
    ListBox1.List(j, 1) = .Cells(i, 3)
    ListBox1.List(j, 2) = .Cells(i, 4)
    ListBox1.List(j, 3) = .Cells(i, 5)
    j = j + 1
    End If
    i = i + 1
    Wend
    End With
End Sub

 

[rudy dehaudt]

Re : optionbutton et choix de code

super merci je vais replacer tout sa

A+