Comment rechercher et remplacer du texte tout en préservant le formatage dans Excel ?
![]() |
![]() |
Rechercher et remplacer tout en préservant le formatage avec un code Macro
Rechercher et remplacer tout en préservant le formatage avec un code Macro
Il n'y a pas d'autres méthodes disponibles à part le code macro qui puisse vous aider à rechercher et remplacer du texte tout en préservant le formatage.
1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Application.
2. Cliquez sur Insérer > Module, puis collez le code ci-dessous dans le script.
VBA : Rechercher et remplacer tout en préservant le formatage
Sub CharactersReplace(Rng As Range, FindText As String, ReplaceText As String, Optional MatchCase As Boolean = False)
'UpdatebyExtendoffice20160711
Dim I As Long
Dim xLenFind As Long
Dim xLenRep As Long
Dim K As Long
Dim xValue As String
Dim M As Long
Dim xCell As Range
xLenFind = Len(FindText)
xLenRep = Len(ReplaceText)
If Not MatchCase Then M = 1
For Each xCell In Rng
If VarType(xCell) = vbString Then
xValue = xCell.Value
K = 0
For I = 1 To Len(xValue)
If StrComp(Mid$(xValue, I, xLenFind), FindText, M) = 0 Then
xCell.Characters(I + K, xLenFind).Insert ReplaceText
K = K + xLenRep - xLenFind
End If
Next
End If
Next
End Sub
Sub Test_CharactersReplace()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Call CharactersReplace(xRg, "KK", "Kutools", True)
End Sub
Astuce : Dans le code, KK est la chaîne de caractères que vous souhaitez rechercher, et Kutools est la chaîne de caractères avec laquelle vous voulez la remplacer. Vous pouvez les modifier selon vos besoins.
3. Appuyez sur F5 une boîte de dialogue apparaît pour vous permettre de sélectionner une plage où effectuer la recherche et le remplacement, voir capture d'écran :
4. Cliquez sur OK, et la chaîne de caractères spécifique dans les cellules sélectionnées sera remplacée tout en conservant le formatage.
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la 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 facilite grandement votre travail
- Activez la modification 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é de50 %, et réduit des centaines de clics de souris pour vous chaque jour !