Améliorer une macro

T

thomashty

XLDnaute Occasionnel

• 24 Juin 2016

• #2

Re : Améliorer une macro

Une petite idée ?

D'avance merci pour votre aide

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 24 Juin 2016

• #3

Re : Améliorer une macro

Bonsoir.
Mes objets ComboBoxLiées sont d'habitude rapides pour isoler des lignes d'après choix dans des ComboBox

 

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 27 Juin 2016

• #4

Re : Améliorer une macro

Bonjour Dranreb,

Je n'ai pas bien compris votre message..

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 27 Juin 2016

• #5

Re : Améliorer une macro

Bonjour Thomas, bonjour Dranreb.

Je ne suis pas certain que ce soit plus fluide pour le moment, mais avec des liste de documents plus importantes ça le sera certainement.

 

Pièces jointes

• thomashty - Améliorer une macro.xlsm

  145.7 KB · Affichages: 40

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Juin 2016

• #6

Re : Améliorer une macro

Bonjour.

Je voulais dire que j'ai une solution facile à mettre en œuvre au moyen de 5 modules de service dont 3 de classe dont j'ai joint de nombreux exemples d'applications dans des discussions qu'on peut retrouver en tapant "ComboBoxLiées" dans la zone de recherche.

 

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 27 Juin 2016

• #7

Re : Améliorer une macro

Bonjour Benoît,

C'est génial c'est beaucoup plus fluide ! Puis je vous demander comment vous avez modifier le système de recherche ?

J'ai juste une petite question, lorsque la recherche ne donne rien, la macro entre en mode debogage, est-il possible d'éviter ça ?

Le bug se trouve à ce niveau :

Code:

tIndex = Application.Transpose(Split(d(1), ":"))
tListBox = Application.Index(TableauListe, tIndex, 6)
tListe = Application.Index(TableauListe, tIndex, Array(1, 2, 3, 4, 5, 6, 7))

Merci encore pour votre aide !!

Bien à vous

Thomas

 

Dernière modification par un modérateur: 27 Juin 2016

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 27 Juin 2016

• #8

Re : Améliorer une macro

Merci Dranreb, je vais regarder ça de plus près.

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 27 Juin 2016

• #9

Re : Améliorer une macro

Pour l'erreur, ajoute cette partie :

Code:

'On vérifie si le dictionnaire est vide
If d(1) = "" Then MsgBox "Pas de résultats": Exit Sub

'On enregistre les différents tableaux

Pour que ce soit plus fluide, j'ai enregistré la Liste dans un tableau virtuel.
Ensuite je n'ai pas décomposé le texte de recherche.
Le traitement des accents se réalise avec une fonction de BoisGontier.

Ensuite pour ne pas alimenter la ListBox et les résultats avec une boucle, j'ai extrait de la Liste de base, l'index des lignes répertoriées dans le dictionnaire.

Je te laisse analyser le code en pas à pas et si tu as une question je te filerai un coup de pouce.

Ah oui, j'ai ajouté un Boolean, pour éviter de devoir enregistrer le tableau à chaque boucle, tu le retrouves en début de procédure et également au niveau du bouton valider de ton userform.

 

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 27 Juin 2016

• #10

Re : Améliorer une macro

Merci pour l'explication c'est franchement excellent, vous avez optimiser mon outil et rendu bien plus puissant. Je vous remercie grandement !

Bonne journée

Thomas

 

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 27 Juin 2016

• #11

Re : Améliorer une macro

J'ai (déjà) une question...

Avec l'ancien système de recherche, les pluriels - mots de liaison - accents... étaient ignorés. Là ce n'est plus le cas, pensez vous que c'est possible de le faire ? exemple: "appareil app" donne -> "appareils d'appuis"

Merci d'avance

Thomas

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 27 Juin 2016

• #12

Re : Améliorer une macro

Pour les mots de laisions, je pense qu'on peut trouver une solution.
Pour les pluriels je ne sais pas. Comment le gérais-tu précédemment ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Juin 2016

• #13

Re : Améliorer une macro

Si la recherche est effectuée au moyen d'un objet ComboBoxLiées depuis le même UserForm que celui qui sert à mettre à jour la base (modification ou ajout proposée automatiquement selon préexistence ou non), il est possible d'y adjoindre une recherche intuitive sur certaines ComboBox dont on lui a confié la charge: propose alors la liste des valeurs contenant le texte tapé.
Aussi possible: une recherche de mots clés.

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 27 Juin 2016

• #14

Re : Améliorer une macro

Je viens de comprendre ton intérêt de découper le terme.

Code:

'On découpe le terme
temp = Split(TextBox1.Text, " ")

'On va chercher les références sur la colonne 6 du tableau virtuel
Set d = CreateObject("Scripting.Dictionary")
    For i = LBound(TableauListe) To UBound(TableauListe)
        For j = LBound(temp) To UBound(temp)
            If UCase(sansAccent(TableauListe(i, 6))) Like "*" & UCase(sansAccent(temp(j))) & "*" Then
                Trouver = True
                Else: Trouver = False: Exit For
            End If
        Next j
            If Trouver = True Then
                If Not d.exists(1) Then
                    d(1) = i
                    Else: d(1) = d(1) & ":" & i
                End If
            End If
    Next i

En espérant que le code soit toujours aussi fluide.
N'oublie pas de déclarer en Public Trouver As Boolean.

 

Vote positif 0 Vote négatif

T

thomashty

XLDnaute Occasionnel

• 27 Juin 2016

• #15

Re : Améliorer une macro

Super ça fonctionne !

Néanmoins j'ai quelques bugs parfois, si vous testez avec "pont rail" par exemple j'ai un bug à ce niveau :

Code:

'On colorie le fond
With Sheets("Liste de documents")
    For i = LBound(tIndex) To UBound(tIndex)
        .Cells(tIndex(i, 1) + 2, "F").Interior.ColorIndex = 24
    Next i
End With

 

Vote positif 0 Vote négatif