excel Fermé

Question

Bonjour, 
je suis entrain de faire une dvdtheque, mais je rencontre un probleme j'ai 3 feuilles : 1 feuille ou je purrais mettre l'insertion de film et la recherche une 2éme feuille les dessins animé une  3 émefeuille  les films. Je voudrais creer soit une macro ou trouver la fonction qui me permet d'atteindre le film recher dans les 2 fuilles dessins anime et film

néné · Answer

Bonjour, 
Voici une belle macro qui permet de saisir ta film dans un champ(Inputbox) puis de faire la recherche sur toute tes feuilles de ton classeur


Sub recherchefilm()
texte_a_rechercher = InputBox("Film à 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 "Film non trouvé ou recherche terminée ou essayez une autre orthographe", vbInformation, "Recherche" 'Message si rien n'ai trouvé
End Sub



Utilsfr
http://utilsfr.new.fr
Applications, Utilitaires, Macros, Fonctions, Formulaires, Graphiques Excel