Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
XL 2010Intégrer l'outil "rechercher et remplacer" dans une cellule.
Bonjour à tous,
Je souhaiterais intégrer le code VBA de l'outil "rechercher et remplacer" dans la cellule "G4" !
Mettre le mot à rechercher dans la cellule "G4" et appuyer sur "entrer" afin de trouver rapidement le mot sans devoir ouvrir l'outil.
Merci de votre aide.
Bonne journée.
Cordialement.
David.
Bonjour à tous,
Je souhaiterais intégrer le code VBA de l'outil "rechercher et remplacer" dans la cellule "G4" !
Mettre le mot à rechercher dans la cellule "G4" et appuyer sur "entrer" afin de trouver rapidement le mot sans devoir ouvrir l'outil.
Merci de votre aide.
Bonne journée.
Cordialement.
David.
Si c'est surement possible
Mais quel est le gain d'écrire N ligne de code VBA pour faire ce que fait nativement (et avec options en prime) Excel avec un simple CTRL+H ?
Personnellement, et à l'usage CTRL+H me suffit amplement.
Re,
Pour me simplifier la vie. Malheureusement, je n'ai pas le savoir-faire pour écrire ses lignes. Dommage.
Mais je comprends vos arguments.
Merci.
Cordialement.
David.
Re,
Pour me simplifier la vie. Malheureusement, je n'ai pas le savoir-faire pour écrire ses lignes. Dommage.
Mais je comprends vos arguments.
Merci.
Cordialement.
David.
re-bonjour,
Déjà, la fonction native "Rechercher et remplacer" a besoin de savoir :
1. Où rechercher le texte (dans quelle(s) zone(s) du classeur)
2. Par quoi remplacer ce texte et optionnellement, s'il faut remplacer toutes les occurrences rencontrées ou seulement certaines.
Dans votre cas, une macro pourra permettre de savoir ce que vous avez tapé dans la cellule, donc de connaître le texte à rechercher, mais surement pas de répondre aux 2 questions ci-dessus, sauf à dire que la zone de recherche est fixe et que le texte de remplacement est toujours le même.
Quel intérêt d'écrire du code lorsque ces fonctions sont natives, donc forcément plus rapides ?
Cordialement,
Moi aussi j'adore me simplifier la vie
(C'est pourquoi je suis adepte du principe K.I.S.S)
Mais dans le cas présent, quelle la différence (au niveau simplicité) entre saisir un mot dans une cellule
ou saisir un mot dans la boite de dialogue affichée par CTRL+F ou CTRL+H ?
En cas d'occurence multiples, celles-ci sont listées et on y accéder en cliquant sur les résultats
(difficile d'obtenir la même chose en VBA )
EDITION: Bonjour Gégé-45550
Merci pour vos arguments qui sont très pertinents et que je respecte totalement.
En utilisant l'outil "rechercher et remplacer" dans une cellule directement sur une feuille, je souhaite simplement trouver un moyen qui me paraît plus rapide (ce n'est simplement que mon avis et mon choix) de faire une recherche de mot(s) dans cette seule feuille de classeur.
En aucun cas, je ne parle de remplacer un mot.
En effet, l'outil permet de trouver facilement avec quelques lettres les mots recherchés et c'est pour cela que je souhaite l'intégrer directement dans ma feuille sans devoir ouvrir une fenêtre supplémentaire.
J'ai un peu travaillé et j'ai réussis avec l'aide de recherches sur le net, de modifier un code pour l'intégrer dans ma feuille.
VB:
Dim i As Range
Set i = Selection
Cells.Find(What:=i, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Cela ne marche pas trop mal, car j'utilise une liste déroulante qui me permet de sélectionner les mots souhaités et de trouver ma recherche rapidement dans mes 400 lignes.
Par contre, si vous le souhaitez, je solliciterais votre aide pour améliorer le code :
- Afin de définir la cellule où dans laquelle j'écris le mot à rechercher. Pour l'instant avec "Set i = Selection", je suis obligé de sélectionner manuellement cette cellule. La cellule dans laquelle j'écris le mot est le "G4". J'ai bien essayé de faire : "Set i = Selection = G4" ou "Set i = G4 = Selection", mais ça ne fonctionne pas.
- Pour que la recherche fasse comme dans l'outil "rechercher et remplacer" et continue de rechercher les mots dans toute la feuille par ordre alphabétique. Pour l'instant, le code ne recherche qu'un mot et ne va pas plus loin... J'ai ajouté "Cells.FindNext(After:=ActiveCell).Activate" à la fin du code, mais ça fonctionne aléatoirement !
- Pour mettre un petit message d'erreur s'il ne trouve pas le mot.
Bonjour à tous, Je tiens à vous remercier d'être parmi vous et l'aide collaborative que l'on peut avoir ici. Je vais faire de mon mieux pour expliquer ce dont j'ai besoin d'aide pour créer un fichier Excel 2019 intégrant un moteur de recherche documentaire avec surbrillance des mots clés pour...
excel-downloads.com
Quant à moi, je reste sur mon CTRL+F et sa simplicité
Dim i As Range
Set i = Range("G4")
Cells.Find(What:=i, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
If ActiveCell.Address = Range("G4").Address Then MsgBox "Rien trouvé", vbOKOnly, "Recherche infructueuse"
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.
