Formulaire de recherche

Bonjour a tous,

Je suis actuellement en stage.

Pour mon entreprise, je dois réaliser un listing de concessionnaires dans différents pays d'Europe.

J'ai donc un gros fichier excel avec plus 1200 noms, région, adresse, téléphone et les marques qu'ils distribuent.

Ce que j'aimerai c'est réaliser un formulaire de recherche (je ne suis pas trop sur du nom) par exemple un commercial se rend en Piemont en Italie il suffit de taper dans le formulaire:

Région : Piemont

Pays: Italie

Pour que excel lui trouve la liste des concessionnaires dans cette région d'Italie. J'espère me faire bien comprendre. J'aimerai pouvoir mettre plusieurs critères de recherches : adresse, ville, région, marque...

Pouvez m'aider svp !

Un grand merci

J'ai oublié de préciser je suis Excel 2010

Bonjour bigou,

Regarde si tu peux adapter ce qui est dans le fichier joint,

Si non mets un fichier anomysé, je regarderais ce que je peux faire pour toi.

Merci mobil, de ta réponse malheureusement ce n'est pas exactement ce que je veux faire.

En faite j'ai déjà un listing existant ce que j'aimerai c'est faire un système de recherche pour voir tels ou tels concessionnaires en fonction des critères choisis.

Ci joint le listing que j'ai réalisé ce que j'aimerai maintenant créer c'est un nouvelle feuille avec les différents critères de recherches.

Un grand merci par avance

Re,

Quels sont les critères?

Peux tu être plus précis

Dans ton premier poste tu parle de région ce qui n'apparait pas dans ton fichier.

Ah je suis désolé je me suis trompé de fichier. Désolé

Voici donc le bon fichier ce que je cherche c'est en gros un système de filtre mais sur une nouvelles feuilles avec plus ou moins de critères: région, pays, constructeurs...

Re,

Dans un module

Sub extrait()
 Application.DisplayAlerts = False
 If ActiveCell.Row > 1 And ActiveCell <> "" Then
   nomOnglet = CStr(ActiveCell)
   titreCritere = Cells(1, ActiveCell.Column)
   Critere = ActiveCell
   On Error Resume Next
   Sheets(nomOnglet).Delete
   On Error GoTo 0
   Sheets.Add after:=Sheets(Sheets.Count)
   ActiveSheet.Name = nomOnglet
   [N1] = titreCritere
   [N2] = Critere
   Sheets("Feuil1").[A1:L1500].AdvancedFilter Action:=xlFilterCopy, _
      criteriarange:=[N1:N2], CopyToRange:=Sheets(nomOnglet).[A1]
 End If
End Sub

Sur la feuille un bouton avec macro affectée

Le critère de filtrage est : la case sélectionnée.

ex : Dans région tu sélectionne BASSE-SAXE

Quand tu clic sur le bouton une nouvelle feuille est crée, nommée BASSE-SAXE

Merci mobil c'est parfai merci beaucoup