1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| Private Sub CommandButton2_Click()
Unload Me
Worksheets("menu").Activate
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub ListBox2_Click()
On Error Resume Next
Worksheets("B").Select
Range("d1").Value = Me.ListBox2
End Sub
Private Sub TextBox3_Change()
On Error Resume Next
Dim ligne As Integer
Worksheets("bas_app").Select
Application.ScreenUpdating = False
ListBox1.Clear
ListBox2.Clear
If TextBox3 <> "" Then
For ligne = 2 To 1000
If Cells(ligne, 4) Like "*" & TextBox3 & "*" Then
ListBox1.AddItem Cells(ligne, 3)
ListBox2.AddItem Cells(ligne, 1)
End If
Next
End If
End Sub |
Partager