Salut,
Quelque chose du genre à adapter et à tester, on recherche dans les feuilles mentionnées le nom de ville qu'on récuupére dans un tableau ainsi que les nom des clients
Option Base 1
Const Nbcol as byte=2 '2 valeurs on récupère
Sub Princ()
Dim T, I As Byte, W As Worksheet, Chaine
Chaine = Application.InputBox("Saisir la ville", , , , , , , 2)
If Chaine <> False And Len(Chaine) > 0 Then
For Each W In Worksheets(Array("ARA", "ACTIVITY1203", "Lenom3"))
T = Recherche(W, Chaine)
If IsArray(T) Then
With Sheets("Lenomdetafeuilleresultat")
.[A65536].End(xlUp)(2).Resize(UBound(T, 2), UBound(T, 1)) = Application.Transpose(T)
End With
End If
Next W
End If
End Sub
Function Recherche(F As Worksheet, ByVal Valeur As String)
Dim C As Range, Adresse1 As String, I As Long, T
I = 1
With F.UsedRange
Set C = .Find(Valeur, , xlValues, xlWhole, xlByRows, , True)
If Not C Is Nothing Then
Adresse1 = C.Address
ReDim T(Nbcol, I)
Do
ReDim Preserve T(Nbcol, I)
T(1, I) = C.Value 'Ville
T(2, I) = C.Offset(0, 1).Value 'Clients
'T(3,I)=C.Offset(0, 2).Value par exemple pour l'adresse
I = I + 1
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse1
End If
End With
Recherche = T
End Function
A+++
