Discussion :

[CORIPDC]

bonjour à tous,
j'ai crée une liste et je souhaiterai lors de l'utilisation de "CommandButton", après la fermeture du pop up Recherche un retour sur la cellule A1.
exemple : produit recherché 'orange' qui est dans la liste plusieurs fois et lorsque je ferme le pop up de recherche j'aimerai un retour à A1 afin que le curseur ne reste pas sur la dernière sélection.
Après avoir fini la recherche et ferme la fenêtre de recherche, la cellule sélectionnée reste à la dernière cellule trouvée par la fonction recherche.
c'est peut-être simple mais je ne trouve pas de solution.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 
Private Sub CommandButton3_Click()
'-----------------------le code 
Application.CommandBars("Edit").Controls.Item("Rechercher...").Execute
Application.Goto Range("A1")
End Sub

Je vous joins le fichier et vous remercie beaucoup d'avance.

[Thautheme]

Bonjo0ur Coripdc, bonjour le forum,

Si tu exécutes ton code pas à pas tu verras que le fait d'ouvrir la boîte de dialogue de recherche ne le stoppe pas. Il continue et sélectionne A1. Il est donc normal que quand tu fermes cette boîte de dialogue la dernière occurrence trouvée reste sélectionnée.
Malgré mes recherches je n'ai pas trouvé exactement la même boîte de dialogue mais les codes ci-dessous fonctionnent :
Pour Rechercher :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton3_Click()
Application.Dialogs(xlDialogFormulaFind).Show
Application.Goto Range("A1")
End Sub

Pour Rechercher/Remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton3_Click()
Application.Dialogs(xlDialogFormulaReplace).Show
Application.Goto Range("A1")
End Sub

[CORIPDC]

Bonjour Thautheme,

RESPECT, Vraiment un grand grand merci.

Je te souhaite et à vous tous le meilleur qu'il soit.