Il y a quelques problèmes, une astuce est apparue sur la façon d’afficher la zone Rechercher et remplacer et de définir la liste déroulante À l’intérieur sur Feuille. À l’époque, j’ai signalé que je n’avais pas trouvé de moyen d’accomplir cela, car VBA ne fournissait pas de moyen d’afficher la même boîte de dialogue Rechercher et remplacer qui apparaît lorsque vous appuyez sur Ctrl + F.

La semaine dernière, j’ai trouvé le moyen de le faire, grâce à la contribution d’un généreux abonné ExcelTips. La macro suivante montre comment accomplir la tâche:

Sub DoBox()

ActiveSheet.Cells.Find What:="", LookAt:=xlWhole     Application.CommandBars("Worksheet Menu Bar").FindControl( _       ID:=1849, recursive:=True).Execute End Sub

La méthode Find vous permet de définir les différents paramètres dans la boîte de dialogue Rechercher et remplacer, puis l’objet CommandBars est accessible pour afficher la boîte de dialogue.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2486) s’applique à Microsoft Excel 97, 2000, 2002 et 2003.