Bonjour à tous,
je bosse depuis quelques semaines sur une base de données clients.
C'est un tableau Excel de Plus de 6000 ligne. et 250 colonnes.
J'utlise des Usf comme interface, l'un deux est un Listview avec les noms de clients en 1ere colonne.
Un doubleclick ouvre la fiche du client.
Mon pb est que j'utilise un fonction recherche péchée sur le forum. Au début super, maintenant avec 6000 clinets (6000 ligne) le pb est que la recherche se faisant sur l'intégralité du tableau si le nom du client est court: AMA
je dois passer en revue de plus en plus de fiches pour trouver la bonne (il me sort l'une après l'autre toutes les fiche qui contiennent quelques part ces 3 lettres AMA par exemple)
Ci dessous le code d'origine dans un module:
j'ai tout essayé: remplacer xlByColumns par xlByRows
remplacer Cells par Range ("A8:A65000") (le tableau commence en ligne 8)
mais aussi:
ou
et d'autres encore !!!
Rien n'y fait la recherche se fait sur l'intégralité du tableau (limiter la recherche à la colonne A devient impératif aujourd'hui))
En fait j'ai bien besoin d'aide:
peut être aussi le moyen de lancer une recherche sur l'expression exacte (ce qui éviterait d'afficher les fiches des client BAMA, AMATO et autres!)
merci d'avance pour toute suggestion!
Cordialement
je bosse depuis quelques semaines sur une base de données clients.
C'est un tableau Excel de Plus de 6000 ligne. et 250 colonnes.
J'utlise des Usf comme interface, l'un deux est un Listview avec les noms de clients en 1ere colonne.
Un doubleclick ouvre la fiche du client.
Mon pb est que j'utilise un fonction recherche péchée sur le forum. Au début super, maintenant avec 6000 clinets (6000 ligne) le pb est que la recherche se faisant sur l'intégralité du tableau si le nom du client est court: AMA
je dois passer en revue de plus en plus de fiches pour trouver la bonne (il me sort l'une après l'autre toutes les fiche qui contiennent quelques part ces 3 lettres AMA par exemple)
Ci dessous le code d'origine dans un module:
Code:
Cells.Find(What:=Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
j'ai tout essayé: remplacer xlByColumns par xlByRows
remplacer Cells par Range ("A8:A65000") (le tableau commence en ligne 8)
mais aussi:
Code:
With Worksheets("Feuil1").Range("A8:A65000")
Cells.Find(What:=Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, _
' LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
End With
ou
Code:
Columns("A").Find(What:=Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
et d'autres encore !!!
Rien n'y fait la recherche se fait sur l'intégralité du tableau (limiter la recherche à la colonne A devient impératif aujourd'hui))
En fait j'ai bien besoin d'aide:
peut être aussi le moyen de lancer une recherche sur l'expression exacte (ce qui éviterait d'afficher les fiches des client BAMA, AMATO et autres!)
merci d'avance pour toute suggestion!
Cordialement