Comment rechercher et remplacer un texte spécifique dans une zone de texte dans Excel ?
L’outil Rechercher et remplacer est une fonctionnalité essentielle pour mettre à jour rapidement le contenu des cellules ou les formules au sein d’une feuille de calcul. Toutefois, gérer du texte réparti dans plusieurs zones de texte peut s’avérer fastidieux si vous êtes limité à des mises à jour manuelles. Si vous devez rechercher un texte spécifique dans des zones de texte et le remplacer efficacement, ce tutoriel vous guidera pas à pas dans l’utilisation d’un code VBA pour accomplir cette tâche en quelques étapes seulement.
Rechercher et remplacer un texte spécifique dans plusieurs Zone de texte
Rechercher et remplacer un texte spécifique dans plusieurs Zone de texte
Vous pouvez rechercher et remplacer le texte manuellement, un par un, mais cette méthode devient vite fastidieuse et chronophage dès qu’il s’agit de traiter plusieurs zones de texte. Le code VBA suivant propose une solution efficace pour effectuer cette opération en une seule fois.
1. Activez votre feuille de calcul, puis maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre du module.
Code VBA : Rechercher et remplacer un texte spécifique dans Zone de texte de Feuille de calcul actuelle
Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace with:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code. Une boîte de dialogue s’affichera alors pour vous demander d’entrer l’ancien texte que vous souhaitez remplacer. Voir capture d’écran :
4. Cliquez sur OK, puis saisissez la valeur souhaitée pour le nouveau texte dans cette boîte de dialogue. Voir la capture d’écran :
5. Cliquez ensuite sur le bouton OK : les anciennes valeurs seront remplacées par les nouvelles que vous avez saisies dans la feuille de calcul actuelle. Voir captures d’écran :
 |
 |
 |
Articles associés :
Comment rechercher et remplacer du texte dans les titres de graphique dans Excel ?
Comment rechercher et remplacer du texte dans les commentaires d’Excel ?
Comment modifier simultanément plusieurs liens hypertexte dans Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels