> Tous les forums > Forum Bureautique
 [Macro XL 2016- Recherche de texte dans classeur]Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Magnan
  Posté le 04/06/2018 @ 18:51 
Aller en bas de la page 
Astucien

Bonjour,

J'ai crée un lexique qui va s'enrichir. J'ai ajouté quelques macros pour simplifier le travail de saisie et de consultation

En fichier l'original : https://www.cjoint.com/c/HFeqResaLAL

Le problème se situe dans l'outil de recherche sur la page ACCUEIL bouton "Recherche"

J'ai récupéré cette macro (Je ne sais plus ou et il y a un certain temps) qui fonctionne à priori.

Les problèmes rencontrés :

1) En faisant une recherche par exemple sur "contrat" très vite on s'aperçoit que le mot mis en surbrillance n'est pas "contrat" mais un ensemble de 7 lettres effectivement situées dans une cellule contenant le mot contrat,

2) Il est impossible de sortir de la recherche tant que toutes les feuilles ne sont pas balayées.

Pourriez m'expliquer pourquoi ces 2 erreurs et comment les solutionner.

Merci d'avance.

A+

Publicité
Debrief
 Posté le 04/06/2018 à 20:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

En regardant 2mn le code du Module2 avant que je doive m'absenter, je vois un Exit Do qui sort d'un boucle de recherche sur la feuille mais pas de la boucle sur le feuilles.
Sans trop chercher et en remplaçant par un Exit For ça va déjà mieux.

RepMsg = MsgBox("Poursuivre la recherche dans la feuille ?", vbYesNo)
If RepMsg = vbYes Then
FlgFind = False
Selection.Font.ColorIndex = 0 'remise de la couleur noire
Selection.Font.Bold = False 'enlever le gras
Else
Selection.Font.ColorIndex = 0 'idem plus haut si le bouton non est choisi
Selection.Font.Bold = False
'Exit Do 'on sort lorsque l'on presse le bouton non
Exit For
End If

Pour le reste je regarderai si personne ne s'y est collé avant.

Cordialement,
D.

Debrief
 Posté le 04/06/2018 à 22:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Le problème de cette recherche avec .Find c'est qu'elle boucle dans la feuille, et que si le texte cherché est trouvé, on ne passe jamais sur les autres feuilles, sauf à répondre <Non> sans la correction ci-dessus pour atteindre l'autre problème mentionné.

Debrief
 Posté le 04/06/2018 à 23:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Le prompt initial n'intercepte pas la touche Annuler, je ne suis pas sûr que la recherche avec .Find cherche les occurrences multiples en cellules, la recherche boucle sur la feuille, la remise en Font.ColorIndex noir et Font.Bold ne tient pas compte de l'état précédent(*), le prompt ne permet pas de sortir de la recherche comme tu l'as signalé, etc...

Je te propose de remplacer le code de la page ACCUEIL et du Module2 par ce qui ce trouve dans ce fichier -> Supprimé

(*) pour le reset du format (ColorIndex et Bold) il faudrait idéalement mémoriser caractère par caractère de la zone correspondant à la recherche ce que je n'ai pas fait pour simplifier ! Si utile c'est pas difficile à faire.

Pour les autres fonctions dans Module1 je n'ai pas regardé.

Cordialement,
D.

Edit: Voilà le fichier avec le reset du format niveau caractère avec un sublime effet de coloriage switchable (EffetColoriage = True | False) ->Supprimé



Modifié par Debrief le 05/06/2018 08:02
Magnan
 Posté le 05/06/2018 à 07:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Merci pour avoir passé du temps sur ce p^b.

Je vais regarder ça de plus prés dans le courant de la journée.

Bonne journée.

Debrief
 Posté le 05/06/2018 à 07:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Une micro-modif esthétique du matin où on voit plus clair (inutile de faire redim dans la boucle) -> https://www.cjoint.com/c/HFff4LlWmuj

Magnan
 Posté le 05/06/2018 à 13:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

Merci pour ce travail qui va au delà des mes attentes.

Tout fonctionne parfaitement.

A+

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
boutob rotation texte inactif dans word 2016
Recherche dans 1 classeur appelée par Word VBA
recherche dans classeur
Ouvrir avec macro un fichier dans autre classeur
logiciel de recherche de mots dans fichiers texte
Recherche de texte dans fichiers
Importer XLS dans outlook 2016
Ligne étrange insérée dans le texte
Aide pour liste déroulante dans Excel 2016
Comment définir une adresse mail par défaut dans Outlook 2016
Plus de sujets relatifs à [Macro XL 2016- Recherche de texte dans classeur]
 > Tous les forums > Forum Bureautique