Discussion :

[mondev]

bonsoir tout le monde,


- je voudrais appeler, via une macro, la boite de dialogue "Rechercher/Remplacer" que l'on fait apparaitre en appuyant sur Ctrl+F.
Peut-on le faire en faite ?

Merci à tous...

[jfontaine]

Bonjour

Pour ouvrir la fenetre rechercher

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs(xlDialogFormulaFind).Show

Et remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs(xlDialogFormulaReplace).Show

Bon courage

[mondev]

Salut,
merci pour cette réponse jfontaine.

Mais en fait c'est pas exactement ça que je cherche, n'est il pas possible d'appeler la meme boite ? comme si l'on appuyait sur Ctrl+F quoi !
Ce qui m'intéresse dans cette boite c'est la liste des valeurs trouvées lorsqu'on choisie de rechercher dans tout le classeur et que l'on clic sur "Rechercher tout".

Voilà j'espère avoir était assez compréhensible.
J'attends vos réponses avec impatience. Merci...

[jfontaine]

Tu peux avoir ce code en utilisant l'enregistreur de macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Selection.Find(What:="mot recherché", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
 
Selection.FindNext(After:=ActiveCell).Activate

[mondev]

Oui, merci,


En faite, je crois que c'est pas possible de l'appeler, puisque je crois que ce n'est pas vraiment une boite de dialogue.
J'ai parcouru les boites de Excel avec une boucle, c'était assez intéressant de découvrir certaines que je n'avait jamais vu auparavant , et j'ai remarqué que chaque onglet des fenetres qu'on voit s'afficher a son propre nom de code, par exemple on appelle pas (j'ai pas encore réussi à le faire) la fenetre "Options" du menu "Outils" toute entière mais on peut appeler l'onglet "Général" de cette fenetre, alors je crois que c'est la meme chose pour "Rechercher/Remplacer".

Maintenant tout cela reste à confirmer, et j'attends vraiment cette confirmation . Peut être que ce n'est pas dans la collection Dialogs qu'il faut chercher ?


Have a great day...

[jfontaine]

Je ne comprend pas ton probleme

Un coup du veux ouvrir la fenetre rechercher, le coup d'après tu veux faire la recherche pour a la fin ouvrir la fenetre

Soit précis dans tes demandes

[mondev]

Je ne comprend pas ton probleme

Un coup du veux ouvrir la fenetre rechercher, le coup d'après tu veux faire la recherche pour a la fin ouvrir la fenetre

Soit précis dans tes demandes

bonjour,


Franchement cher 'jfontaine', sans vouloir être désagréable, je crois que plus précis que ça... heu... tu meurt !!!

Mais bon, je peux pas être encore plus précis alors, je vais répéter :
- Je voudrais savoir si on peut appeler la fenetre (la même avec les 2 onglets, le bouton Option et tout, la meme quoi !) "Rechercher/Remplacer" du menu "Edition" de Excel, par une macro ?


A vous, et merci encore...

[jfontaine]

Je voudrais savoir si on peut appeler la fenetre (la même avec les 2 onglets, le bouton Option et tout, la meme quoi !) "Rechercher/Remplacer" du menu "Edition" de Excel, par une macro ?

Pas a ma connaissance

[Duddy]

Bonjour,

Pourquoi ne pas utiliser tout simplement la commande : sendkeys

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendKeys "^{F}", True

Vois dans l'aide EXCEL, tu auras le détail.

Bon courage

[jfontaine]

Bien vu

[aalex_38]

Bonjour,

En effet un sendkey ou un find semble être les meilleurs solutions pour faire une recherche.

Sinon tu peux afficher :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs(130).Show

[mondev]

bonsoir,

J'étais entrain de la recréer cette boite (pas évident !), mais je crois que je vais prendre plutot la solution de 'marc58', je connaissait pas Sendkeys je débute encore

Merci beaucoup à tous,