Comment rechercher et remplacer plusieurs valeurs simultanément dans Excel ?
Comme chacun le sait, la fonction **Rechercher et remplacer** permet de localiser plusieurs cellules identiques et de les remplacer par une valeur spécifiée. Toutefois, il arrive parfois qu’un remplacement **plusieurs-à-plusieurs** soit nécessaire. Par exemple, j’ai une plage de données et je souhaite remplacer simultanément toutes les *pommes* par des *pommes rouges*, les *oranges* par des *oranges vertes*, les *bananes* par des *bananes jaunes*, et ainsi de suite — comme illustré dans la capture d’écran de gauche. Connaissez-vous des méthodes efficaces pour réaliser ce type de tâche dans Excel ?
Rechercher et remplacer plusieurs valeurs à la fois avec du code VBA
Rechercher et remplacer plusieurs valeurs à la fois avec du code VBA
Si vous en avez assez de rechercher et remplacer les mêmes valeurs encore et encore, le code VBA suivant vous permet de substituer plusieurs valeurs par les textes souhaités en une seule opération.
1. Veuillez définir vos conditions en précisant les valeurs d’origine et les nouvelles valeurs. Voir la capture d’écran :
2. Maintenez ensuite enfoncées les touches « ALT » + « F11 » pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».
3. Cliquez sur « Insertion » > « Module », puis collez le code suivant dans la fenêtre du module.
Code VBA : Rechercher et remplacer plusieurs valeurs à la fois
Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub
4. Appuyez ensuite sur la touche « F5 » pour exécuter ce code. Dans la boîte de dialogue qui s’ouvre, indiquez la plage de données dans laquelle vous souhaitez remplacer les valeurs existantes par de nouvelles.
5. Cliquez sur « OK » ; une nouvelle boîte de dialogue s’ouvre alors pour vous inviter à sélectionner les critères que vous avez définis à l’étape 1. Voir la capture d’écran :
6. Cliquez ensuite sur « OK » : toutes les valeurs spécifiées ont été remplacées par les nouvelles, exactement comme vous le souhaitiez.
Articles associés :
Comment rechercher et remplacer un texte spécifique dans une zone de texte ?
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