Option dans macro rechercher

[banban]

Bonsoir,

Je voulais ajouter à ma macro de "Recherche" qui affiche "Ctrl + F" une sélection automatique de "Classeur".
Je m'explique:
Je voudrais sélectionner automatiquement l'onglet "Classeur" à la place de "Feuille" dans le bouton "Option" à chaque ouverture de la macro.

Voici ma macro :

Sub Rechercher()

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

End Sub

Merci pour votre aide.

 

[Pierrot93]

Re : Option dans macro rechercher

Bonjour,

rajoute ceci :

Sheets("Classeur").Select

bonne journée
@+

 

[banban]

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

 

[Pierrot93]

Re : Option dans macro rechercher

Re,

non plutôt ainsi :

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

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

End Sub

 

[banban]

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.

 

[Pierrot93]

Re : Option dans macro rechercher

Bonjour,

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

bonne journée
@+

 

[banban]

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.

 

[banban]

Re : Option dans macro rechercher

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

 

[Pierrot93]

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:

Sheets("Classeur").Select

bonne journée
@+

 

[banban]

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.

 

[Pierrot93]

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.

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

 

[banban]

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?

 

[Pierrot93]

Re : Option dans macro rechercher

Re,

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

 

[banban]

Re : Option dans macro rechercher

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

 

[banban]

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