Microsoft 365 Afficher Fenêtre Rechercher et remplacer en VBA

[Claudy]

Bonjour,
comment afficher directement la fenêtre "Rechercher et Remplacer" à l'ouverture d'un classeur
Avec Mot à chercher "zaza" et en option dans tout le classeur...
Comme ci dessous:

Merci d'avance et bonne journée,
Claudy

 

[dg62]

Bonjour Claudy

Utilisez l’enregistreur de macro et vous intégrez la macro générée dans votre code à l’ouverture du classeur.

 

[Claudy]

Bonjour dg
Avant de poster c'est ce que j'avais fait, mais rien n'appert dans la macro.
Et suite à ton post, j'ai réessayé, et je te confirme qu'il ny a rien dans la macro!
Merci, et ????
Claudy

 

[dg62]

je viens de vérifier, exact

 

[youky(BJ)]

Bonjour tous,
Voici pour chercher dans tout le classeur
Bruno
Edit j'avais fait un copié-collé et boulette sur sheets(k) au lieu sheets(1)

Sub recherche()
nom = InputBox("A rechercher", "Recherche")
If nom = "" Then Exit Sub
For k = 1 To Sheets.Count
With Sheets(k).UsedRange
Set c = .Find(nom, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Sheets(k).Select
c.Activate
rep = MsgBox("Continuer la recherche ?", 4 + 32, "Sélection")
If rep = vbNo Then Exit Sub
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Next
MsgBox "Recherche terminée!"
End Sub

 

[dg62]

Application.Dialogs(xlDialogFormulaReplace).Show

 

[Eric C]

Bonjour le forum
Bonjour Claudy, dg62 - Bonjour Bruno

Un code donné par notre ami ériiic (que je salue au passage ) :

Private Sub Workbook_Open()
Set c = [A1].Find(what:="Zaza", LookIn:=xlValues, lookat:=xlWhole, _
        searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False)
' afficher la boite
Application.CommandBars.FindControl(ID:=1849).Execute
End Sub

A approfondir pour "classeur" mais je n'ai pas le temps ce matin.

 

[Claudy]

Bonjour à tous et merci,
La proposition d'Eric C me plait, mais juste:
Application.CommandBars.FindControl(ID:=1849).Execute

Mais pour Classeur? et pour la recherche par défaut "zaza"????

Merci,
Claudy

 

[patricktoulon]

Bonjour
le dialog est indépendant du bouton dans le ruban qui l'appelle on a donc aucun pointeur sur cette fenêtre
par contre!!!! le textbox prévu pour la recherche dans cette fenêtre est pointé et activé

ben... il te reste plus qu a taper le texte

pour cela utilise sendkeys
alors sendkeys est une vrai cochonnerie pour celui de l'application utilise celui de wscript.shell

conclusion:

Sub test()
Application.CommandBars.FindControl(ID:=1849).Execute
CreateObject("wscript.shell").SendKeys ("zaza")
End Sub

 

[Claudy]

Super , merci
Bonne journée,
Claudy

 

[dg62]

Re,
en complément pour sélectionner "Classeur"

Sub test()
Application.CommandBars.FindControl(ID:=1849).Execute

CreateObject("wscript.shell").SendKeys ("zaza")
CreateObject("wscript.shell").SendKeys ("{Tab}{Tab}{down}{down}{Enter}")
End Sub

 

[patricktoulon]

 

[Eric C]

Re le fil,

En continuant à chercher, je suis "tombé" sur le post d'un pti gars qui mériterait d'être connu "patricktoulon" qui donnait sa version à une question similaire :

Private Sub Workbook_Open()
Application.Dialogs(xlDialogFormulaReplace).Show "zaza", "toto", 2
End Sub

Dans le présent cas, il n'y a plus lieu de se creuser la tête, les remplacements interviennent dans toutes les feuilles du classeur.
Bonne soirée à toutes & à tous

 

[patricktoulon]

re
oh puré c'est vrai je l'avais complètement oubliée celle la
t a du trouver ca sur dvp non ?

en effet les dialog vont jusqu'a 30 arguments possible pour certaines
bravo eric C

 

[Eric C]

re le fil,

Oui Patrick Ici -
Bonne soirée
Eric