Macro qui contiendrait la fonction recherche de ex

[Veloutine]

Bonjour, J'ai un fichier excel avec une macro qui sélectionne des colonnes, mais je voudrais ajouter la fonction recherche (ctrl+f) qui s'ouvrirais automatiquement . Est-ce possible?

Merci

 

[Hellboy]

Bonjour Veloutine

Oui, c'est possible, mais il manque tellement de détail ds ta demande.

En attandant, ceci est une proposition:

Private Sub Workbook_Open()
Call Recherche
End Sub



Public Sub Recherche()
Dim strFind As String
strFind = InputBox('Q 'est-ce qu 'on cherche aujourd 'hui ?', 'Recherche')
Cells.Find(What:=strFind, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
End Sub

Message édité par: Hellboy, à: 17/07/2005 16:14

 

[MichelXld]

bonjour

si tu veux juste afficher la boite de dialogue , tu peux tester

Sub afficherBoiteDialogue_Recherche_Remplacer()
CommandBars('Edit').Controls(14).Execute
End Sub

sinon pour utiliser la methode Find dans une macro , tu peux par exemple regarder dans ce lien

Lien supprimé

tu trouveras de nombreux autres exemples dans les archives du forum


bon après midi
MichelXld

 

[MichelXld]

bonjour Philippe

excuses moi de ne pas t'avoir salué...nos messages se sont croisés


bon apres midi
MichelXld

 

[Hellboy]

Bonjour MichelXld

Même chose pour moi désolé.

a+