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:
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
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)
VB:
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
Bonjour le forum
Bonjour Claudy, dg62 - Bonjour Bruno
Un code donné par notre ami ériiic (que je salue au passage ) :
VB:
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.
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:
VB:
Sub test()
Application.CommandBars.FindControl(ID:=1849).Execute
CreateObject("wscript.shell").SendKeys ("zaza")
End Sub
Sub test()
Application.CommandBars.FindControl(ID:=1849).Execute
CreateObject("wscript.shell").SendKeys ("zaza")
CreateObject("wscript.shell").SendKeys ("{Tab}{Tab}{down}{down}{Enter}")
End Sub
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 :
VB:
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