racourcie ctrl F

[creolia]

bonjour une question peut ont creer un bouton sur une feuille pour qu'il execute la commande ctrl F (recherche) je sais qu'il existe les petite jumelle mais moi je voudrais juste l'integrer a un bouton,merci d'avance

 

[Brigitte]

Re : racourcie ctrl F

Bonsoir,

J'ai trouvé ce code de GP Lionel en furetant dans les vieux fils :

Sub Macro1()

a = InputBox("Remplacer", "Vous voulez remplacer quoi ?")
b = InputBox("Remplacer par", "Vous voulez le remplacer par quoi ?")

Cells.Replace What:=a, Replacement:=b, LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

mais qui concerne Edition/Remplacer.

Je suppose qu'en remplaçant :

Cells.Replace par Cells.find (ca semble être la fonction), ca fonctionne... et la suite aussi bien sûr.

Bon courage. Viens nous dire si tu y parviens.

 

[Staple1600]

Re : racourcie ctrl F

Bonjour à tous


Comme dit Brigitte dans les vieux fils, les meilleures soupes

https://www.excel-downloads.com/threads/realiser-un-ctrl-f-en-vba-dans-excel.93115/

 

[JNP]

Re : racourcie ctrl F

Bonsoir Creolia, Brigitte 🙂,
Le plus simple est d'émuler le Ctrl+f avec Sendkeys (voir pièce jointe).
Bonne soirée 😎
Ajout : Salut Staple

 

[Staple1600]

Re : racourcie ctrl F

Bonjour JNP


C'est ce qu'on s'est amusé à faire dans le fil que je cite JNP 😉

 

[JNP]

Re : racourcie ctrl F

Re 🙂,
C'est bien pour cela que j'ai signalé la collision 😉.
Effectivement, étaient cités des problèmes pour Sendkeys. Personnellement, Vista + Excel 2007 le prennent bien.
Bonne soirée 😎

 

[creolia]

Re : racourcie ctrl F

bonsoir et merci a tous la technique emulation est parfaite une fois de plus la communauté a ete a la hauteur de mes attente et de bon conseille merci a bientot