Fonction recherche

Cousinhub

XLDnaute Barbatruc

• 23 Octobre 2007

• #2

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

P

Presse_citron

XLDnaute Nouveau

• 23 Octobre 2007

• #3

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

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 23 Octobre 2007

• #4

Re : Fonction recherche

bonsoir à tous
juste pour mettre mon grain de sel

Code:

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

fred65200

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 23 Octobre 2007

• #5

Re : Fonction recherche

re bonsoir le fil, staple1600

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

@+
fred65200

 

Vote positif 0 Vote négatif

P

Presse_citron

XLDnaute Nouveau

• 23 Octobre 2007

• #6

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

 

Vote positif 0 Vote négatif