Recherche multiple

[BERTRAND]

Je dispose du code suivant pour effectuer une recherche dans une feuille
et récupérer les lignes.

Sub RechercheTOTO()

Dim C As Range, lignes As Range
Dim firstAddress As String
With Cells
Set C = .Find(what:="TOTO", LookAt:=xlWhole)
If Not C Is Nothing Then
firstAddress = C.Address
Set lignes = Rows(C.Row)
Do
Set lignes = Application.Union(lignes, Rows(C.Row))
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstAddress
End If
End With
If Not lignes Is Nothing Then
lignes.Select
End If

'Selection.Copy
'Sheets("Feuil2").Select
'Range("A1").Select
'ActiveSheet.Paste

'Columns("A").Find("").Activate
End Sub

Je souhaite, en une seule opération, effectuer plusieurs recherches, et
sélectionner toutes les lignes contenant les mots recherchés.

Merci de m'aider. (et Bravo pour votre site)

R BERTRAND

 

[vincent]

Bonjour

voila une petite modif qui devrait fonctionner

Sub RechercheTOTO()

Dim i As Integer
Dim C As Range, lignes As Range
Dim firstAddress As String
exemple = Array("toto", "paul", "anne")
With Cells
For i = 0 To 2
Set C = .Find(what:=exemple(i), LookAt:=xlWhole)
If Not C Is Nothing Then
firstAddress = C.Address
Do
Application.Union(Selection, Rows(C.Row)).Select
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstAddress
End If
Next
End With
End Sub

@+Vincent

 

[Romain BERTRAND]

C'est impeccable, cela fonctionne parfaitement. Un grand merci.
Dans le même style de recherche avec sélection des lignes, je cherche une variante, à savoir une imputbox qui demande à l'utilisateur le ou les mots cherchés et qui sélectionne les lignes de la même manière.
Peut-être as-tu une idée ?

RB

 

[michel]

Bonjour Romain , Bonjour Vincent

Comme tu parlais en début de ce fil d'effectuer une recherche multiple en une seule opération , j'ai fait des essais avec un userform & plusieurs textbox dans lesquels tu saisis les différents mots à trouver ( recherche sur 3 mots simultanés dans mon exemple )

Dans le fichier tu n'es pas obligé de remplir tous les champs de recherche : tu peux aussi effectuer une recherche sur un ou deux mots , mais il faut toujours commencer par remplir le textbox du haut pour que cela fonctionne

J'espère que cela pourra t'aider

Bon week end
Michel

 

[math]

Bonjour tout le monde

Je viens de regarder par curiositer ton e-mail , quelques fois ,les commentaires et exemples de nos pros sont fort utiles .

je viens de visonner le fichier zip de Michel qui me convient , quelques fois ,il faut être patient et un jour !!!!!! .... ça tombe ;-))

j'avais fait un sujet que personnes ne m'avait répondu , alors ,Michel ou bien Vincent les pros des macros et les autres aussi .

un petit coup d'oeil sur le sujet que j'avais proposé.

et merçi à BERTRAND de mettre incruster dans ton problème de formules ,mais tu es entre de bonnes mains ?

http://www.excel-downloads.com/html/French/forum/messages/1_47162_47162.htm

a+