recherche sur plusieurs feuilles

[Michel]

Bonjour à tous,

Je sais, avec la fonction index et equiv, comment recherché une valeur sur une table.

Mon problème est que j'ai plusieurs fournisseurs et donc plusieurs tables.
Est-il possible de recherche sur plusieurs tables une valeur avec une seule formule ?

Exemple : j'ai un fournisseur de PVC et un d'ALU, je veux connaître tantot le prix d'une pièce en PVC et tantôt le prix d'une pièce en ALU pour établir une proposition de prix.

Comment pouvoir consulter l'une ou l'autre table.

Les élments de recherche sont :

Tables : ALU ou PVC
Colonne (dans l'une ou l'autre des tables) Large
Ligne ( dans l'une ou l'autre des tables) Epais

Merci pour votre aide.


Michel

 

[utilsfr]

Voici un code pour effectuer une recherche sur plusieurs feuilles

Sub recherche7()
texte_a_rechercher = InputBox("Texte à rechercher", "Recherche")
If texte_a_rechercher = "" Then Exit Sub
For Each feuille In Worksheets
feuille.Select
With feuille.Cells
Set C = .Find(texte_a_rechercher, LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.Select
rep = MsgBox("Recherche du suivant", vbYesNo, "Recherche")
If rep = vbNo Then Exit Sub
Set C = .FindNext(C)
If C Is Nothing Then
Adresse_encours = 0
Else
Adresse_encours = C.Address
End If
Loop While Not (C Is Nothing) And (Adresse_encours <> firstAddress)
End If
End With
Next
MsgBox "Texte non trouvé ou recherche terminée ou essayez une autre orthographe", vbInformation, "Recherche" 'Message si rien n'ai trouvé
End Sub


Cordialement
ROBERT René
http://membres.lycos.fr/utilsfr