Fonction recherche

[Presse_citron]

Bonsoir à tous,

dans une basse de donnée, j'ai plus de 7'500 références toujours dans la colonne A,sur une dizaine de pages composé de 6 chiffres chaque référence utilise 1 ligne avec une formule
j'aimerais dans la fonction "recherche" limiter la frappe à 6 chiffres uniquement. Et j'aime savoir si il est possible que le résultat apparaisse plus visiblement(ligne complète) Toute solution alternative serait la bienvenue
merci de votre aide

 

[Cousinhub]

Re : Fonction recherche

Bonsoir pressecitron, stapple

et en complément de ce que t'as dit stapple, tu peux rédéfinir le début de code comme ceci :

Sub Recherche()
Reviens:
texte_a_rechercher = InputBox("Saisissez une référence", "Recherche")
If texte_a_rechercher = "" Then Exit Sub
If Len(texte_a_rechercher) <> 6 And Not IsNumeric(texte_a_rechercher) Then MsgBox "6 chiffres uniquement": GoTo Reviens

 

[Presse_citron]

Re : Fonction recherche

Re bonsoir, je viens de tester le complément de macro la recherche s'effectue mais elle n'est pas limitée à 6 chiffres, pouvez vous mela joindre en exemple svp.. merci

 

[fred65200]

Re : Fonction recherche

bonsoir à tous
juste pour mettre mon grain de sel

If Not texte_a_rechercher Like "######" Then.....

fred65200

 

[fred65200]

Re : Fonction recherche

re bonsoir le fil, staple1600

Je préfère toujours ###### qui correspond à 6 chiffres
un seul if

@+
fred65200

 

[Presse_citron]

Re : Fonction recherche

sa joue nickel, je viens de tester sur notre base de donée merci à tous pour votre aide précieuse.
passer une bonne soirée