rechercher un mot

P

pascal22

Guest
bonjour a tous et a toutes

j'ai cree un base de donnée avec plusieurs milliers de ligne sur 5 colonnes.
existe t-il un moyen pour avoir une page d'accueil et quand je tape un mot dans un espace prevu a cette effet et qu'ensuite je clic sur un bouton 'rechercher' , j'ai toute mes lignes qui s'affichent correspondant au mot rechercher.

en esperant avoir ete clair sinon je peux preciser par mail. merci a tous
pascal
 
F

F.LAUNAY

Guest
bonjour,
ci joint du code à placer dans un module
la valeur à chercher est toto, tu adaptes

Sub MaRecherche()
For Each f In WorkSheets
With f.Cells
'créer l'objet range de la valeur trouver
Set c = .Find(What:='toto')
'ensuite on test si cette objet n'est pas vide
If Not c Is Nothing Then
'on garde en mémoire l'adresse de la première occurence trouvée
firstaddress = c.Address
' on affiche la première occurance trouvée
MsgBox c.Address
'on continue a chercher pour trouver d'autres occurences
Set c = .FindNext(c)
Do While c.Address <> firstaddress And Not c Is Nothing
MsgBox c.Address
Set c = .FindNext(c)
Loop
End If
End With
Next
End Sub
 

Discussions similaires

Réponses
6
Affichages
776

Statistiques des forums

Discussions
312 492
Messages
2 088 912
Membres
103 983
dernier inscrit
AlbertCouillard