Bonjour,
J'ai effectué une macro qui recherche, le codes des ports maritimes dans tous les pays du monde, j'ai une base de 104 986 lignes. Le résultat est affiché dans une listebox.
Le code ci-dessous fonctionne, en revanche pour 104 986 lignes c'est long et fait bugger le fichier. Pourtant j'ai un pc correct I3 dernière génération et 8 go de ram avec ssd , je pense pas que mon pc soit en cause. lol
Pensez-vous qu'un code plus optimisé permettrait d’accélérer la recherche?
Merci d'avance.
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 Option Compare Text Private Sub TextBox1_Change() Application.ScreenUpdating = False ' ActiveSheet.Unprotect ListBox1.Clear If TextBox1 <> "" Then For ligne = 2 To 104986 If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then ListBox1.AddItem Cells(ligne, 1) End If Next End If 'ActiveSheet.Protect End Sub
Partager