Excel

ludo80 -  
 néné -
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
Configuration: Windows XP
Internet Explorer 7.0

1 réponse

  1. néné
     
    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
    0