Faire apparaitre tableau avec une liste deroulante

Bonjour à tous,

Je galère depuis un petit moment, je vous pose donc la question, peut-être avez-vous la solution...

Comme le titre l'indique, je souhaiterais faire apparaitre un tableau avec une liste déroulante, pour être un peu plus précis, imaginons que dans mon classeur j'ai X tableaux, sur une autre feuille je sélectionne un élément et hop ! le tableau correspondant s'affiche ....!! Je mets en PJ un fichier pour que ce soit plus compréhensible. Si vous avez des idées, je vous remercie.

Bonjour,

peut être ici tu as une multitude d'exemples

http://boisgontierjacques.free.fr/pages_site/FiltreElabore.htm

ex. ci-joint

crdlt,

André

Bonjour à tous

Un essai à tester. Te convient-il ?

Bye !

Merci à vous tous,

Pour gmb : c'est impec, merci beaucoup, si je souhaiterais faire afficher d'autres tableaux (sur d'autres cellules), je suppose qu'il faut changer les paramètres du l'userform ??? mais je ne vois pas ou se trouve l'endroit qui indique quelles ou quelles cellules seront copiées/déplacées..????

Merci

- Option Explicit

Dim i&, cell As Range

Private Sub ListBox1_Click()

Application.EnableEvents = False

Set cell = Cells.Find(ListBox1, lookat:=xlWhole)

cell.CurrentRegion.Copy Range("P18")

Range("Q15") = cell

Range("R18").Select

Application.EnableEvents = True

End Sub

Private Sub UserForm_initialize()

For i = 1 To Range("A" & Rows.Count).End(xlUp).Row

If Range("A" & i) <> "Total" _

And Range("A" & i) Like "*Sous theme*" = False _

And Range("A" & i) Like "*Thème*" = False _

And Range("A" & i) <> "" Then

ListBox1.AddItem Range("A" & i)

End If

Next i

End Sub

vincent59870 a écrit :

si je souhaiterais faire afficher d'autres tableaux

* ils sont stucturés comme les 3 premiers : mêmes titres et même nombre de lignes et de colonnes,

* ils sont disposés dans les mêmes colonnes

* ils n'ont pas de cellules fusionnées : j'ai dû enlever celles des tableaux existants. Pour en faire des nouveaux, faire des copier coller

Fais l'essai !

Bye !