Discussion :

[sofiane.bg]

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

[illight]

Hello,


Sinon, tu veux pas un café aussi, avec un mars ?

Déjà, si tu mettais les balises CODE on comprendrait mieux, et si tu expliquais ce que tu voulais ça serait mieux.
Où as-tu tes erreurs ? Tu nous balances ton truc, on ne sait même pas de ce qu'il en retourne.

[Menhir]

Tu mets des On Error Resume Next partout.
Cette instruction ne sert pas à corriger les erreurs mais à les masquer.
Commence par les retirer (ou les mettre en remarque) et l'exécution t'expliquera quels sont les problèmes.

[sofiane.bg]

je m'excuse les amis

ce ci est un partie des codes de mon programme de scolarité
le problème si j'exécute ce code de recherche un nom tous mon programme deviens lourde , des fois sa bloc

voici limage di user forme

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
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

[Menhir]

J'ai un peu l'impression d'avoir posté pour rien...