Recherche avec bouton de contrôle

[libellule85]

Bonjour le forum,
J'ai crée un userform regroupant plusieurs boutons de contrôle qui fonctionnent bien. Je voulais ajouter un autre bouton avec la fonction recherche comme suit :

Sub CommandButton4_Click()
Application.SendKeys "^f"
End Sub

Mais celà ne fonctionne pas !

D'avance merci pour votre aide

 

[Pierrot93]

Re : Recherche avec bouton de contrôle

Bonjour,

place la propriété "TakeFocusOnClick" du bouton sur "False" et ca devrait fonctionner.

bon après midi
@+

 

[libellule85]

Re : Recherche avec bouton de contrôle

Bonjour Pierrot93,
Je viens de faire le changement mais celà ne fonctionne toujours pas !!

 

[Pierrot93]

Re : Recherche avec bouton de contrôle

Re,

fonctionne chez moi sans souci sous 2003.... tu exécute le code à partir du bouton ??? si tu l'exécute à partir de l'éditeur vba, normal c'est envoyé sur la fenêtre de l'application active...

 

[libellule85]

Re : Recherche avec bouton de contrôle

Re,
Je l'exécute à partir du bouton qui se trouve dans l'useform

 

[Pierrot93]

Re : Recherche avec bouton de contrôle

Re,

Essaye ceci, la propriété "showmodal" de l'usf doit être à "False".

Private Sub CommandButton1_Click()
AppActivate "Microsoft Excel"
Application.SendKeys "^f"
End Sub

Bonne soirée
@+

 

[libellule85]

Re : Recherche avec bouton de contrôle

Re,
Il ne se passe rien quand je clique sur le bouton. J'ai essayé sur un classeur vierge et là non plus rien ne se passe....

 

[Pierrot93]

Re : Recherche avec bouton de contrôle

Re,

exempl ci joint, OK sous 2003...

 

[libellule85]

Re : Recherche avec bouton de contrôle

Re,
Ton fichier marche impeccable chez moi aussi : il y a certainement un "truc" que j'ai dû mal faire...
En tous cas je vais rechercher où est mon erreur et la corriger.
Je te remercie beaucoup pour ton aide c'est vraiment sympa
A bientôt

 

[Pierrot93]

Re : Recherche avec bouton de contrôle

Re,

as tu bien mis la propriété "showmodal" de l'usf à false....

 

[Pierrot93]

Re : Recherche avec bouton de contrôle

Re,

sinon lorsque tu affiches l'usf, tu peux le coder ainsi :

UserForm1.Show vbModeless

 

[libellule85]

Re : Recherche avec bouton de contrôle

Re,
En dans mon fichier cela ne marche pas, je te mets une copie en pièce jointe peut-être trouveras-tu où se situe mon problème
D'avance merci

 

[Pierrot93]

Re : Recherche avec bouton de contrôle

Re,

quand tu lances l'usf, modifie comme suit :

UserForm4.Show 0

tu avais "fase"...

remets la propriété "TakeFocusOnClick" du bouton sur "True", je n'avais pas tilté la 1ère fois, sur le fait que ton bouton était sur placé un usf...

 

[libellule85]

Re : Recherche avec bouton de contrôle

Re Pierrot93,
Celà ne fonctionne toujours pas. Par contre j'ai trouvé sur internet le code suivant :

Application.Dialogs(xlDialogFormulaFind).Show

je l'ai donc mis comme ceci :

Private Sub CommandButton4_Click()
  Application.Dialogs(xlDialogFormulaFind).Show
End Sub

celà fonctionne mais il y a de l'Anglais et du Français:


Par contre quand je vais dans l'onglet Accueil puis Rechercher/Remplacer tout est marqué en Français.

 

[libellule85]

Re : Recherche avec bouton de contrôle

Re Pierrot93,
J'ai trouvé !!!!!!!!!!!!!! Sur le forum (un grand merci à Etienne2323) , en fait il faut mettre pour Excel 07 :

Application.CommandBars.ExecuteMso "FindDialogExcel"

Encore un énorme merci Pierrot pour ta gentillesse
Je te souhaite une bonne soirée
A bientôt