M
Michel Baillard
Guest
Bonjour,
Je tente de développer une fonction de recherche rapide en VBA.
(principe : j'ai une liste de plusieurs pages remplies chacune de plusieurs centaines de lignes contenant, en colonne A, des textes (prenons un exemple : nom prénom adresse dans l'ordre, espacés de blancs))
Bien sûr, si je recherche une chaîne de caractères qui se trouve en tête de la celulle (le nom, en l'occurence), ma macro donne des résultats très rapidement.
Mais si je cherche une chaîne qui se trouve au milieu de la celulle (dans mon exemple le prénom), les doubles recherches (for I = ligne, puis dans chaque ligne for J = position du caractère de début), j'obtiens évidemment le résultat après quelques siècles !!!).
Avez-vous une solution pour accélérer sensiblement cette recherche ?
(je pensais ce matin, à l'utilisation d'un boîtier de dialogue Excel cells.find (...), mais j'ai été incapable de trouver un truc qui me permette de passer dans la macro le paramètre what:=xxx )
Tyty = TextBox1.Text
Cells.Find(What:=Tyty, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
avez-vous déjà manipulé cette boîte de dialogue ? Quelle erreur ou quel oubli puis-je commettre ?)
Pouvez-vous m'apporter un peu d'aide ?
D'avance merci.
Je tente de développer une fonction de recherche rapide en VBA.
(principe : j'ai une liste de plusieurs pages remplies chacune de plusieurs centaines de lignes contenant, en colonne A, des textes (prenons un exemple : nom prénom adresse dans l'ordre, espacés de blancs))
Bien sûr, si je recherche une chaîne de caractères qui se trouve en tête de la celulle (le nom, en l'occurence), ma macro donne des résultats très rapidement.
Mais si je cherche une chaîne qui se trouve au milieu de la celulle (dans mon exemple le prénom), les doubles recherches (for I = ligne, puis dans chaque ligne for J = position du caractère de début), j'obtiens évidemment le résultat après quelques siècles !!!).
Avez-vous une solution pour accélérer sensiblement cette recherche ?
(je pensais ce matin, à l'utilisation d'un boîtier de dialogue Excel cells.find (...), mais j'ai été incapable de trouver un truc qui me permette de passer dans la macro le paramètre what:=xxx )
Tyty = TextBox1.Text
Cells.Find(What:=Tyty, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
avez-vous déjà manipulé cette boîte de dialogue ? Quelle erreur ou quel oubli puis-je commettre ?)
Pouvez-vous m'apporter un peu d'aide ?
D'avance merci.