Macro recherche multiple sous conditions

Bonjour à tous,

Je viens vers vous car j’ai besoin d’aide…

Voilà je suis en train de réaliser une base de donnée d’entreprises sous excel, le fichier se compose d’un unique classeur, lui-même composé d’une page ‘d’accueil’ et de plusieurs autres feuilles qui dépendent du domaine d’activité des entreprises. Chacune de ces feuilles comprend différentes informations au sujet des entreprises : nom, ville, cp, contact, mail, tel…

Je voudrais réaliser une fonction recherche sur la page d’accueil du fichier, du moment où l’opérateur rentre le domaine d’activité (via une liste déroulante) ainsi que le département des sociétés cherchées, la fonction retourne les noms des entreprises (du domaine donné) ainsi que les infos relatives : ville, cp, contact, mail, et ceux lignes par lignes pour chaque société trouvée, en prenant en compte les conditions que sont le domaine d’activité et le département…

Je pense que réaliser une fonction via VBA est la meilleure solution, malheureusement je suis novice dans ce domaine et vous demande donc de m’aider dans ce travail…

De plus le fait que cette fonction marche sous conditions me complique la tache…

Pour info j’essaye de regarder également de mon côté, prenant connaissance des différents cours trouvés sur le net !

Voici ci-joint un fichier type qui ressemble fortement à celui avec lequel je travail (les infos essentielles en moins…)

Je vous remercie beaucoup par avance de l’aide que vous pourrez m’apporter pour mener ce projet à bien ! =)

Cordialement.

Sub recherche()
    Dim i As Long, j As Integer, k As Long
    Dim domaine As String, departement
    With Sheets("ACCUEIL")
        .Range("D5:R20000").ClearContents
        domaine = .Range("B5")
        departement = .Range("C5")
        k = 5
        For i = 2 To Sheets(domaine).Range("R" & Sheets(domaine).Rows.Count).End(xlUp).Row
            If CStr(Sheets(domaine).Range("R" & i)) = CStr(departement) Then
                For j = 3 To 17
                    .Cells(k, j + 1) = Sheets(domaine).Cells(i, j)
                Next j
            k = k + 1
            End If
        Next i
    End With
End Sub

Bonjour EngueEngue,

Merci pour ton aide, malheureusement la macro ne fonctionne pas...

Je pense l'avoir placer au bon endroit (en module 1) mais je pense qu'il doit falloir placer une macro-fonction dans la feuille1 ACCUEIL non ? Quant pense tu..?

Salutation

Salut

Voila une solution tres basique avec des UF

La macro marche parfaitement.

Tu dois inscrire le numéro du département en C5 ton domaine en B5 et la lancer...

C'est bon EngueEngue ça marche !

J'avais juste un soucis dans le lançage de ma macro ! ^^

Merci pour ton aide qui me dépanne bien, je vais essayé maintenant de mieux me familiariser avec VBA afin de me rendre plus utile sur ce domaine !

A+

Salutation

Egalement merci à toi Cari pour ton travail, je n'est pas retenu ta solution sur ce coup là mais je la met de côté pour une future occasion qui sait..!! ^^