Je veux enregistrer une macro très simple : je veux afficher la boîte de
dialogue "rechercher" (celle avec l'icône des longues vues dans Édition,
Rechercher).
Lorsque je fais des macros, je passe souvent par l'enregistrement de macros.
Ensuite si j'ai des modifications, je vais dans ALT-F11. Mais avec cette
façon de faire, il faut "terminer" l'action du menu sélectionné pour avoir
avoir accès au bouton de "arrêter l'enregistrement". Sûrement est-ce très
simple. Je fais des macros beaucoup plus compliquées parfois mais je bloque
souvent sur ce type pourtout sûrement si simple.
"Caroline L." a écrit dans le message de news: M%6sd.27608$ Bonjour,
Je veux enregistrer une macro très simple : je veux afficher la boîte de dialogue "rechercher" (celle avec l'icône des longues vues dans Édition, Rechercher).
Lorsque je fais des macros, je passe souvent par l'enregistrement de macros. Ensuite si j'ai des modifications, je vais dans ALT-F11. Mais avec cette façon de faire, il faut "terminer" l'action du menu sélectionné pour avoir avoir accès au bouton de "arrêter l'enregistrement". Sûrement est-ce très simple. Je fais des macros beaucoup plus compliquées parfois mais je bloque souvent sur ce type pourtout sûrement si simple.
Pouvez-vous m'expliquer comment faire ?
Merci à l'avance. Caroline
Bonjour Caroline,
Essaie ceci : à copier dans un module standard
'----------------------
Sub Rechercher()
Application.Dialogs(xlDialogFormulaReplace).Show
End Sub
'----------------------
Salutations!
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news: M%6sd.27608$lm4.1180344@wagner.videotron.net...
Bonjour,
Je veux enregistrer une macro très simple : je veux afficher la boîte de
dialogue "rechercher" (celle avec l'icône des longues vues dans Édition,
Rechercher).
Lorsque je fais des macros, je passe souvent par l'enregistrement de macros.
Ensuite si j'ai des modifications, je vais dans ALT-F11. Mais avec cette
façon de faire, il faut "terminer" l'action du menu sélectionné pour avoir
avoir accès au bouton de "arrêter l'enregistrement". Sûrement est-ce très
simple. Je fais des macros beaucoup plus compliquées parfois mais je bloque
souvent sur ce type pourtout sûrement si simple.
"Caroline L." a écrit dans le message de news: M%6sd.27608$ Bonjour,
Je veux enregistrer une macro très simple : je veux afficher la boîte de dialogue "rechercher" (celle avec l'icône des longues vues dans Édition, Rechercher).
Lorsque je fais des macros, je passe souvent par l'enregistrement de macros. Ensuite si j'ai des modifications, je vais dans ALT-F11. Mais avec cette façon de faire, il faut "terminer" l'action du menu sélectionné pour avoir avoir accès au bouton de "arrêter l'enregistrement". Sûrement est-ce très simple. Je fais des macros beaucoup plus compliquées parfois mais je bloque souvent sur ce type pourtout sûrement si simple.
Pouvez-vous m'expliquer comment faire ?
Merci à l'avance. Caroline
Alain CROS
Bonjour
Un petit exemple avec les paramètres disponibles.
Alain CROS
Sub FormulaReplace() Dim WS As Worksheet On Error Resume Next Application.DisplayAlerts = False Sheets("AC_Demo_W").Delete Application.DisplayAlerts = True Set WS = Worksheets.Add With WS .Name = "AC_Demo_W" 'Remplissage de la plage source .[A1] = "Je" .[A2] = "Remplace" .[A3] = "Le" .[A4] = "Mot" .[A5] = "Texte" .[A6] = "Dans" .[A7] = "Cette" .[A8] = "Feuille" .[B1] = "Le" .[B2] = "Texte" .[B3] = "Doit" .[B4] = "Se" .[B5] = "Trouver" .[B6] = "Dans" .[B7] = "La" .[B8] = "Sélection" .[A1:B8].Select End With 'Appel de la boite de dialogue intégrée Application.Dialogs(xlDialogFormulaReplace).Show _ "Texte", "MonTexte", True, 2&, , True On Error GoTo 0 Set WS = Nothing 'Remplacer 'Arg1 = Rechercher: ' texte à rechercher 'Arg2 = Remplacer par: ' texte de remplacement 'Arg3 = Cellule entière ' True cochée ' False non cochée 'Arg4 = Sens: ' 1 Par ligne ' 2 Par colonne 'Arg6 = Respecter la casse ' True cochée ' False non cochée End Sub'AC
Bonjour
Un petit exemple avec les paramètres disponibles.
Alain CROS
Sub FormulaReplace()
Dim WS As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
Sheets("AC_Demo_W").Delete
Application.DisplayAlerts = True
Set WS = Worksheets.Add
With WS
.Name = "AC_Demo_W"
'Remplissage de la plage source
.[A1] = "Je"
.[A2] = "Remplace"
.[A3] = "Le"
.[A4] = "Mot"
.[A5] = "Texte"
.[A6] = "Dans"
.[A7] = "Cette"
.[A8] = "Feuille"
.[B1] = "Le"
.[B2] = "Texte"
.[B3] = "Doit"
.[B4] = "Se"
.[B5] = "Trouver"
.[B6] = "Dans"
.[B7] = "La"
.[B8] = "Sélection"
.[A1:B8].Select
End With
'Appel de la boite de dialogue intégrée
Application.Dialogs(xlDialogFormulaReplace).Show _
"Texte", "MonTexte", True, 2&, , True
On Error GoTo 0
Set WS = Nothing
'Remplacer
'Arg1 = Rechercher:
' texte à rechercher
'Arg2 = Remplacer par:
' texte de remplacement
'Arg3 = Cellule entière
' True cochée
' False non cochée
'Arg4 = Sens:
' 1 Par ligne
' 2 Par colonne
'Arg6 = Respecter la casse
' True cochée
' False non cochée
End Sub'AC
