Ouvrir boite de dialogue Find & select

[Claudy]

Bonjour,
Comment ouvrir directement la boite de dialogue "Find & select" en arrivant sur une feuille?
Merci d'avance,
A+
Claudy

 

[gilbert_RGI]

Re : Ouvrir boite de dialogue Find & select

Bonjour

à l'ouverture d'un classeur

Private Sub Workbook_Open()
            Application.Dialogs(xlDialogFormulaFind).Show
End Sub

au changement de feuille

Private Sub Worksheet_Activate()
Application.Dialogs(xlDialogFormulaFind).Show
End Sub