Bonjour,
Ceci place dans une feuille "resultat" les noms correspondants dans les
feuilles Recherche1 à Recherche3 à la feuille nommée "source" dans les
colonnes A
'--------------
Sub jj()
Dim sh As Worksheet
With Sheets("Resultat")
.Cells.ClearContents
[a1] = "Identique"
[b1] = "Trouver dans"
End With
For Each sh In ActiveWorkbook.Sheets
If sh.Name <> "Source" And sh.Name <> "Resultat" Then
With Sheets("Source")
For Each c In .Range("a2:a" & .Cells(Rows.Count, "a").End(3).Row)
For Each ChercheC In sh.Range("a2:a" & sh.Cells(Rows.Count,
"a").End(3).Row)
If ChercheC = c Then
Sheets("Resultat").Range("a" &
Sheets("Resultat").Cells(Rows.Count, "a").End(3).Row + 1) = c
Sheets("Resultat").Range("b" &
Sheets("Resultat").Cells(Rows.Count, "a").End(3).Row) = sh.Name
End If
Next
Next
End With
End If
Next
End Sub
'---------------------
voir ici
http://cjoint.com/?gbkSqDnRsa
--
Salutations
JJ


<dracbi***hotmail.fr> a écrit dans le message de news:
fb655d79-9b78-4907-a62a-0c5cf8e614ff...oglegroups.com...
Bonjour,

Voici mon problème :
Les Objets :

Feuille : J' en ai 4
- Feuille 1 : Donnée source
- Feuille 2 : Donnée Recherche 1
- Feuille 3 : Donnée Recherche 2
- Feuille 4 : Donnée Recherche 3

J'aimerais rechercher une cellule de chaque ligne apparaissant dans la
feuille 1 dans chaque feuille suivante soit feuille 2 ; 3 ; 4.

Sub x()
Sheets("Feuille1").select
Activecell.specialcells(xltypelastcell).select
Range(Selection, (1)).select
For each d in Selection.rows
ligne as long
.....

Comment faire une recherche dans une boucle on sachant que je souhaite
parcourir chaque ligne de la feuille 1 dans chacune des autres
feuilles.