SendKeys : lancer une recherche

Paf

XLDnaute Barbatruc

• 24 Mars 2014

• #2

Re : SendKeys : lancer une recherche

Bonjour

j'avais trouver la solution SendKeys ("^f") & "1500" mais qui, curieusement ne fonctionne que depuis l'éditeur Vba, pas depuis un commandbutton ou via une macro

Et j'ai trouvé en passant par une boite de dialogue Excel:
MaVar = "1500"
Application.Dialogs(xlDialogFormulaFind).Show MaVar
ou
Application.Dialogs(xlDialogFormulaFind).Show "1500"

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Mars 2014

• #3

Re : SendKeys : lancer une recherche

Bonjour almoha,

Testez ces 2 macros :

Code:

Sub search1()
'la feuille de calcul doit être affichée
Application.SendKeys "^f1500"
End Sub

Code:

Sub search2()
Application.Dialogs(xlDialogFormulaFind).Show "1500"
End Sub

L'envoi de touches pose problème sur Excel 2010, la 2ème macro est donc préférable.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Mars 2014

• #4

Re : SendKeys : lancer une recherche

Re,

Je n'avais pas vu votre post #2.

Pour pouvoir lancer la 1ère macro avec un CommandButton, il faut que sa propriété TakeFocusOnClick ait la valeur False.

A+

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 24 Mars 2014

• #5

Re : SendKeys : lancer une recherche

Bonjour et merci job75

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Mars 2014

• #6

Re : SendKeys : lancer une recherche

Re,

Désolé, salut Paf, je croyais que c'était almoha.

Noter aussi que sur Excel 2003, si on lance la macro search2, l'envoi de touches Ctrl+F ou Ctrl+H ne fonctionne plus.

Il faut fermer et rouvrir Excel.

A+

 

Vote positif 0 Vote négatif

A

almoha

Guest

• 25 Mars 2014

• #7

Re : SendKeys : lancer une recherche

Merci à Paf et à Job75, vos solutions répondent à ma problématique 🙂

 

Vote positif 0 Vote négatif