SendKeys : lancer une recherche

almoha · 24 Mars 2014

Bonjour,

Grâce aux SendKeys, je souhaite ouvrir la boîte de recherche et indiquer le nombre recherché :

Code:

Sub search()

   Application.SendKeys "%EH1500%V"

End Sub

Mais cela ne fonctionne pas : à l'exécution de la macro dans un classeur test (vierge à l'exception du nombre 1500 recherché en A1), la boîte ne s'ouvre pas et le nombre recherché s'inscrit directement dans la fenêtre de l'éditeur MVB... Voyez-vous pourquoi cela ne marche pas ? Merci.

Paf · 24 Mars 2014

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+

job75 · 24 Mars 2014

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+

job75 · 24 Mars 2014

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+

Paf · 24 Mars 2014

Re : SendKeys : lancer une recherche

Bonjour et merci job75

job75 · 24 Mars 2014

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+

almoha · 25 Mars 2014

Re : SendKeys : lancer une recherche

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

SendKeys : lancer une recherche

almoha

XLDnaute Nouveau

Paf

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Paf

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

almoha

XLDnaute Nouveau

Discussions similaires