Discussion :

[nonesofar]

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?

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

Merci d'avance.

[Jean-Philippe André]

Bonjour,

je pose la question a toute fin utile :
pourquoi ne pas passer par Access ?


Sinon, a la place de faire un traitement ligne a ligne, pourquoi ne passes-tu pas par un filtre Excel ? La decomposition du code se ferait en 3 etapes :
- application du filtre sur tes donnees
- vidage d'une zone recipient, copie/collage des donnees filtrees
- alimentation a partir de la zone recipient avec la propriete RowSource

[nonesofar]

Salut les gars,

En effet Menhir je suis d'accord mais j'ai que excel de dispo.

Ben c'est vrai qu'avec 2013 on à quand même pas mal de place pour placer des données. Mais la c'est too much.

Pense que je vais restreindre les données par utilisateur. Etant donnée que pas tous le monde à besoin des chercher sur les 1000 000 de lignes.

@Jean-Philippe André tu as des exmples de code qui permet de filtrer?

Merci

[Jean-Philippe André]

Bien sur, issu de l'enregistreur de macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("A1").AutoFilter
ActiveSheet.Range("$A$1:$A$8").AutoFilter Field:=1, Criteria1:="=*I*", _
        Operator:=xlAnd

[Menhir]

En effet Menhir je suis d'accord mais j'ai que excel de dispo.

Juste pour info et sans vouloir insister lourdement, Open Base et Libre Base sont gratuits.
http://www.openoffice.org/fr/
http://fr.libreoffice.org/
Je conseille plutôt le premier.

[patricktoulon]

Bonjour
c'est un vrai casse tete chinois ces filtres tout du moins l'utilisation des resultat

depuis tout a l'heure je suis en traine d'essayer de mettre la plage obtenu dans la liste box et rien ne fait j'ai des erreurs complètement incohérentes
la plage obtenue directement dans list marche pas
alors
tant pis on copie la plage dans une autre colonne et on récupère le tableau le tableau est bon sur le sheets mais... ben ca marche pas

rien mais alors rien ne marche c'est un truc qui me fait monter la tentions depuis tout a l'heure

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
Private Sub CommandButton1_Click()
    Dim tableau
    With ActiveSheet   ' plage a adapter
        .Range("$A$1:$A$" & Rows.Count).AutoFilter Field:=1, Criteria1:="=*" & TextBox1 & "*"  'mot recherché a adapter
        'pour connaitre l'adress des cellules concernées par le filtre sans les cellules adgacentes
        'plage =.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Address' j'ai bien les bonne cellules non contiguës dans l'addresse
        .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Destination:=[c1]c'est bien copié dans la colonne C 
        Application.Wait (Now + TimeValue("0:00:02"))' on fait une pose café au cas ou 
        derlig = .Cells(Rows.Count, 3).End(xlUp).Row récupération de la derniere ligne de C 
        tableau = .Range(.Cells(1, 3), .Cells(derlig, 3)).Value tableau est remplie 
        .Range("$A$1:$A$" & Rows.Count).AutoFilter    ' stop le filtre
        MsgBox derlig
        ListBox1.List = tableau
    End With
End Sub

un truc de fou je vous dis moi

[joe.levrai]

Bonjour,

le coup du SpecialCells(XlCellTypeVisible) qui tape au mauvais endroit (récupération des lignes non visibles ou arrêt de la plage à la première ligne masquée), je rencontre parfois également des surprises.

En gros, la sélection s'effectue sur le premier Areas de la zone, et ensuite il s'arrête on dirait


Du coup, je procède différemment maintenant :

- filtre avancé avec fonction d'export dans une autre feuille
- mise sous Array du résultat
- injection du Array dans la listbox

[Jean-Philippe André]

Salut,
je me permets de m'auto-citer

- application du filtre sur tes donnees
- vidage d'une zone recipient, copie/collage des donnees filtrees
- alimentation a partir de la zone recipient avec la propriete RowSource

[patricktoulon]

Salut,
je me permets de m'auto-citer

Envoyé par Jean-Philippe André


- application du filtre sur tes donnees
- vidage d'une zone recipient, copie/collage des donnees filtrees
- alimentation a partir de la zone recipient avec la propriete RowSource

ou ".list"

[patricktoulon]

aurais tu la possibilité de nous faire parvenir un exemple de fichier avec un centaine de ligne au moins en xlx(sans macro)

[Menhir]

Perso, je pense que tu est en train d'utiliser un couteau de cuisine pour visser des vis cruciformes.
Plus clairement, tu n'utilises pas le bon outil.

Excel est conçu pour faire des calculs.
Là, tu fais de la gestion de base de données.
Donc, tu devrais utiliser un logiciel de gestion de base de données comme Access, Open Base ou Libre Base (ou autres) qui sont bien plus adaptés à ton besoin.