Macro pour rechercher

[Goodparts]

Bonjour à tous,

J'aimerais créer une macro applicable à un bouton et qui permettra de remplacer la fontion "CTRL + F" dans excel.

Merci d'avance

André

 

[Popeye]

Bonjour



Private Sub CommandButton1_Click()
Cells(1, 1).Select
Application.SendKeys ("^f")
End Sub

Le cells(1,1).select c parce que apparemment il faut que tu aies une cellule de selectionnée
application.sendkeys() c une fonction qui permet de simuler l'appui de touche
le "^" c pour dire que tu garde control appuyé et F car tu appuies sur F avec

genre pour selectionner tout c
sendkeys("^a")

voili voilou

 

[Goodparts]

Hello,

Un grand merci pour la rapiditée, et cela fonctionne très bien.

Merci

André