Option dans macro rechercher

Pierrot93

XLDnaute Barbatruc

• 10 Mars 2011

• #2

Re : Option dans macro rechercher

Bonjour,

rajoute ceci :

Code:

Sheets("Classeur").Select

bonne journée
@+

 

Vote positif 0 Vote négatif

B

banban

Guest

• 10 Mars 2011

• #3

Re : Option dans macro rechercher

Merci pour ton aide.

J'ai essayer mais j'ai une erreur, je l'ai écrit comme ceci.


Sub Rechercher()

Application.CommandBars.FindControl(ID:=1849).Execute
Sheets("Classeur").Select

End Sub

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Mars 2011

• #4

Re : Option dans macro rechercher

Re,

non plutôt ainsi :

Code:

Sub Rechercher()
Sheets("Classeur").Select

Application.CommandBars.FindControl(ID:=1849).Execute

End Sub

 

Vote positif 0 Vote négatif

B

banban

Guest

• 10 Mars 2011

• #5

Re : Option dans macro rechercher

J'ai toujours une erreur excel me marque" Le focus ne peut être déplacé sur le contrôle car celui-ci est invisible, non activé, ou d'un type n'acceptant pas le focus."
C'est la ligne "Sheets("Classeur").Select qui est en erreur.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Mars 2011

• #6

Re : Option dans macro rechercher

Bonjour,

pas de souci chez moi... ta feuille n'est pas masquée par hasard...

bonne journée
@+

 

Dernière édition: 11 Mars 2011

Vote positif 0 Vote négatif

B

banban

Guest

• 11 Mars 2011

• #7

Re : Option dans macro rechercher

Non je n'ai pas de masquage de feuille, j'ai juste une protection des feuilles que j'ai enlevé, sa n'a rien changé. Je recherche....si sa marche pour toi il il y quelque chose qui me bloque sur mon fichier.

 

Vote positif 0 Vote négatif

B

banban

Guest

• 14 Mars 2011

• #8

Re : Option dans macro rechercher

Une erreur '9' apparait, avec comme message, l'indice n'appartient pas à la sélection??

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Mars 2011

• #9

Re : Option dans macro rechercher

Bonjour,

vérifie bien le nom de la feuille "classeur", casse et s'il n'y a pas une espace derrière:

Code:

Sheets("Classeur").Select

bonne journée
@+

 

Vote positif 0 Vote négatif

B

banban

Guest

• 14 Mars 2011

• #10

Re : Option dans macro rechercher

j'ai fais un Copier / Coller pourtant.
C'est une sélection de "Classeur" dans le bouton "Option" de la fenêtre de recherche excel que j'aimerais sélectionner à chaque fois. (Ctrl + F). Je ne vois pas trop l'erreur d'écriture avec l'espace.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Mars 2011

• #11

Re : Option dans macro rechercher

Re,

C'est une sélection de "Classeur" dans le bouton "Option" de la fenêtre de recherche excel que j'aimerais sélectionner à chaque fois.

Cliquez pour agrandir...

le code proposé "Sheets("Classeur").Select" sélectionne une feuille de calcul, mais en aucun cas
modifie les options de la boite de dialogue....

 

Vote positif 0 Vote négatif

B

banban

Guest

• 14 Mars 2011

• #12

Re : Option dans macro rechercher

j'ai bien compris la sélection des feuilles,j'ai dû mal expliquer mon problème au départ, donc la sélection automatique de la boîte de dialogue n'est pas réalisable?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Mars 2011

• #13

Re : Option dans macro rechercher

Re,

regarde peut être du coté de la méthode "SendKeys", à voir...

 

Vote positif 0 Vote négatif

B

banban

Guest

• 14 Mars 2011

• #14

Re : Option dans macro rechercher

Je te remercie, je recherche de ce côté là et je te retien au courant.

 

Vote positif 0 Vote négatif

B

banban

Guest

• 14 Mars 2011

• #15

Re : Option dans macro rechercher

Résultat enfin trouvé, merci pour ton aide car la solution était dans cette voie.
Voici le résultat, certes un peu répétitif et surement plus simple mais sa fonctionne très bien.

Sub Rechercher()

Application.CommandBars.FindControl(ID:=1849).Execute
SendKeys ("{TAB}")
SendKeys ("{Enter}")
SendKeys ("{TAB}")
SendKeys ("{TAB}")
SendKeys ("{DOWN}")
SendKeys ("{DOWN}")
SendKeys ("{Enter}")
SendKeys ("{TAB}")
SendKeys ("{TAB}")
SendKeys ("{TAB}")
SendKeys ("{TAB}")
SendKeys ("{TAB}")
SendKeys ("{Enter}")

End Sub

 

Vote positif 0 Vote négatif