Comment créer un code macro pour effectuer une recherche et un remplacement de texte dans Excel ?

Normalement, nous utilisons la fonction Rechercher et Remplacer intégrée pour rechercher et remplacer des valeurs dans Excel. En réalité, vous pouvez directement rechercher et remplacer du texte dans Excel avec un code macro. Dans cet article, vous apprendrez à créer un code macro pour effectuer une recherche et un remplacement de texte dans Excel.

Créer un code macro pour effectuer une recherche et un remplacement de texte dans Excel

Créer un code macro pour effectuer une recherche et un remplacement de texte dans Excel

Veuillez suivre les étapes ci-dessous pour créer un code macro afin d'effectuer une recherche et un remplacement de texte dans Excel.

1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Insérer > Module. Ensuite, copiez le code VBA ci-dessous dans la fenêtre de code.

Code VBA : Créer un code macro pour effectuer une recherche et un remplacement de texte dans Excel

Sub FindandReplaceText()
'Update by Extendoffice 2018/5/24
    Dim xFind As String
    Dim xRep As String
    Dim xRg As Range
    On Error Resume Next
    Set xRg =Cells
    xFind = Application.InputBox("word to search:", "Kutools for Excel", , , , , 2)
    xRep = Application.InputBox("word to replace:", "Kutools for Excel", , , , , 2)
    If xFind = "False" Or xRep = "False" Then Exit Sub
    xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False
End Sub

3. Appuyez sur la touche F5 pour exécuter le code.

4. Dans la première boîte de dialogue Kutools for Excel, saisissez le texte ou la valeur que vous souhaitez rechercher, puis cliquez sur le bouton OK. Voir capture d'écran :

5. Dans la deuxième boîte de dialogue Kutools for Excel, entrez le texte ou la valeur que vous souhaitez remplacer et cliquez sur le bouton OK.

Ensuite, tous les textes spécifiés sont immédiatement remplacés par le texte souhaité.

Remarque : Ce code s'applique à la feuille de calcul active.

Articles connexes :

• Comment rechercher et remplacer toutes les cellules vides par un certain nombre ou texte dans Excel ?
• Comment remplacer les virgules par des retours à la ligne (Alt + Entrée) dans les cellules dans Excel ?
• Comment rechercher et remplacer les noms des onglets de feuilles dans Excel ?
• Comment trouver une valeur dans une cellule avec une liste séparée par des virgules dans Excel ?
• Comment trouver l'intersection de deux listes de colonnes dans Excel ?