Macro de recherche qui affiche les pages trouvées
Résolu/Fermé
A voir également:
- Macro de recherche qui affiche les pages trouvées
- Recherche musique - Guide
- Macro logiciel - Télécharger - Organisation
- Macro word - Guide
- Supprimer des pages sur word - Guide
- Google recherche par image - Guide
1 réponse
via55
Messages postés
14390
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
16 mars 2024
2 696
Modifié par via55 le 4/11/2013 à 12:53
Modifié par via55 le 4/11/2013 à 12:53
Bonjour
La recherche s'arrête dès la première valeur trouvée (Exit Sub)
donc remplacer le Exist Sub par un message :
Msgbox("xxx") 'remplacer les xxx par le message à afficher dans la fenêtre
La recherche reprendra après avoir cliqué sur OK
De plus il ya un oubli dans le code :
pour se positionner sur la cellule trouvée il faut remplacer .Range(a).Select par ActiveSheet.Range(a).Select
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein
La recherche s'arrête dès la première valeur trouvée (Exit Sub)
donc remplacer le Exist Sub par un message :
Msgbox("xxx") 'remplacer les xxx par le message à afficher dans la fenêtre
La recherche reprendra après avoir cliqué sur OK
De plus il ya un oubli dans le code :
pour se positionner sur la cellule trouvée il faut remplacer .Range(a).Select par ActiveSheet.Range(a).Select
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein
4 nov. 2013 à 15:36