Excel VBA - Comment réaliser des recherches dans une feuille à partir d'un Formulaire

Version imprimable

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

Code:

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

15/05/2020, 13h45
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.
15/05/2020, 14h52
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.

1 pièce(s) jointe(s)

recherches dans une feuille à partir d'un Formulaire

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 Pièce jointe 566361

Code:

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

18/05/2020, 15h05
Menhir

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