Barre d'outils "recherche"

[pfff]

Bonjour,

J'utilise énormément la combinaison CTRL + F pour lancer la boite de dialogue "rechercher et remplacer"

le probleme c'est qu'elle prends de la place et souvent la donnée recherchée est sous cette boite !!

Je voudrais savoir s'il y a moyen d'ajouter cette boite dans une barre d'outils ? si oui comment ???

Merci

 

[Staple1600]

Re : Barre d'outils "recherche"

Bonjour


sub affichefind()
Application.Dialogs.Item(xlDialogFormulaFind).Show
end sub


ensuite sur une barre d'outils (clic-droit)
Personnaliser/Commandes/Macros/Bouton personnalisé

Ensuite sur ce nouveau bouton
Affecter une macro

tu choisis la macro ci-dessus

(tu peux modifier l'image du bouton)

Et il faut enregistrer la macro dans Perso.xls (classeur de macros personelles)


Autrement il y beaucoup plus simple (suis-je stupide)

Tu choisis une BO
Tu fais personnaliser [Personnaliser/Commandes/Edition/Rechercher]
ensuite tu sélectionnes Rechercher et tu glisses l'icone Rechercher sur ta BO et hop
tu as directement la commande dans la BI avec la bonne icone.

Tu peux faire cela avec d'autres commandes (il suffit de choisir)

 

[pfff]

Re : Barre d'outils "recherche"

Merci pour la réponse rapide mais elle ne me staisfait pas vraiment ... car entre cliquer sur une icone ou faire ctrl F ... pas trop de changement.

Ce que j'aimerais c'est que le champ de recherche soit dans la barre (un peu comme l'aide ou il y a écrit "tapez une question")

Est ce possible ??

 

[Staple1600]

Re : Barre d'outils "recherche"

Bonsoir


Si tu es anglophone

voici un exemple complet
VBA Express : Excel - Create a custom "Worksheet Find" toolbar

Voila la version francophone

 

[pfff]

Re : Barre d'outils "recherche"

Ok merci, j'essaierai lundi au boulot lorsque j'aurais une machine sous windows... car la je suis linuxien ;-)

 

[pfff]

Re : Barre d'outils "recherche"

Bonjour,

J'avouerais que je ne sais pas bien quoi faire avec le fichier que tu m'as envoyé...

J'ai tenté la version anglaise mais je n'ai pas du l'enregistrer comme il faut puisque ca ne se lance pas quand j'ouvre Excel ...

Désolé, c'est la premiere fois que je touche à VBE ....

 

[pfff]

Re : Barre d'outils "recherche"

En fait je me rends compte quand ouvrant le fichier findo.xls que j'ai enregistré sur le bureau ... ma barre apparait et c'est nickel ... mais comment faire pour que cette barre soit en "tache de fond" (sans ouvrir le fichier)

 

[Dull]

Re : Barre d'outils "recherche"

Salut pfff, Staple, le Forum

Pour que cet "Utilitaire" soit disponible dans tous tes fichiers, enregistre le dans

C:\Documents and Settings\Nom_Utilisateur\Application Data\Microsoft\Excel\XLSTART

Bonne Journée

 

[Staple1600]

Re : Barre d'outils "recherche"

Bonjour


Tu enregistres findbo.xls en macro complémentaire
(Fichier/Engegistrer sous/Type de Fichier/Macros complémentaires
(extension: xla)

Fermes ensuite findbo.xls, puis Excel

Réouvre Excel

Ensuite lorsque tu ouvres Excel, la barre d'outils sera affichée
en permanence.

Théoriquement il devrait y avoir aucun problème.

La méthode proposée par Dull est plus simple à mettre en place.

 

[pfff]

Re : Barre d'outils "recherche"

Tout d'abord bonjour et merci beaucoup.

Il y a t'il la possibilité d'ajouter des option avec des cases a cocher genre: insensible a la casse, recherche dans tous le classeur ou seulement dans la page et surtout qu'il trouve le resultat seulement sur une partie de la cellule ...

Ex avec le fichier joint:

Si je cherche la valeur 07W05190, finbo va la trouver mais si je recherche 06S12001, findbo ne va pas le trouver alors que le module de recherche d'Excel (ctrl F) le fait ...

Il y a t'il une amélioration a apporter facilement ?

merci