Excel
ludo80
-
néné -
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
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
A voir également:
- Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
- Excel trier par ordre croissant chiffre - Guide
1 réponse
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
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
