Ouvrir boite de dialogue Find & select

Claudy

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

gilbert_RGI

XLDnaute Barbatruc
Re : Ouvrir boite de dialogue Find & select

Bonjour

à l'ouverture d'un classeur

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

au changement de feuille

Code:
Private Sub Worksheet_Activate()
Application.Dialogs(xlDialogFormulaFind).Show
End Sub
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 895
Messages
2 093 382
Membres
105 713
dernier inscrit
Karimov