mon programme deviens lourd
merci les amis de me corriger les erreurs dans ce code et de le simplifier :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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