Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Totalité du contenu de la cellule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Etienne2323

XLDnaute Impliqué
Bonjour à tous,
j'aimerais savoir si l'un de vous aurait une idée du code VBA que je pourrais utiliser pour décocher systématiquement, à chaque ouverture de mon fichier, la case "Totalité du contenu de la cellule" de mon utilitaire de recherche (CTRL+F).

Merci à l'avance,

Cordialement,

Étienne
 
Re : Totalité du contenu de la cellule

Bonjour Etienne,

de mémoire, Find retiens les derniers paramètres utilisés, donc si tu fais une recherche bidon à l'ouverture avec les options que tu veux, il devrait les retenir... mais il y a peut-être plus propre...
 
Re : Totalité du contenu de la cellule

Bonjour tototiti2008, le forum,
effectivement, c'est la compréhension que j'ai de la fonction ".find" également. Le problème est qu'il y a plusieurs utilisateurs qui travaillent avec le fichier que j'ai monté. Or, il n'ont pas tous les mêmes besoin au niveau de la recherche. Certains doivent utiliser la recherche avec la totalité du contenu alors que d'autres non. C'est pourquoi la case se coche et se décoche régulièrement.

Je chercherais donc à lui donner un paramètre par défaut à l'ouverture.

Mais néanmoins, merci pour la piste 🙂

Cordialement,

Étienne
 
Re : Totalité du contenu de la cellule

Bonjour à tous,
pour ceux qui passeront par ici et qui se demandent comment résoudre ce genre de problème, voici comment j'ai procédé. Comme le mentionnait Tototiti2008, la fonction .find conserve en mémoire la dernière action. J'ai donc demandé, à l'ouverture du fichier, l'exécution d'une recherche bidon et spécifiant que je ne voulais chercher que dans une partie et non dans la totalité de la cellule. (xlPart) Ça fonctionne très bien.

Dans le module "ThisWorkbook".
Code:
Private Sub Workbook_Open()

Application.ScreenUpdating = False
Set Lig = Range("A1").Find("Nouvelle recherche ...", LookIn:=xlValues, LookAt:=xlPart)

End Sub

Bonne journée,

Etienne
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
310
W
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…