Comment remplacer tous les nombres dans les cellules par des "x" dans Excel ?
Dans Excel, vous pourriez vouloir remplacer les nombres dans les cellules par des "x" pour masquer des données sensibles, standardiser le formatage, empêcher les calculs ou indiquer des valeurs manquantes/incomplètes. Cet article vous guidera à travers une solution simple utilisant un code VBA pour y parvenir rapidement et facilement.
Remplacer tous les nombres dans les cellules par des "x" avec du code VBA
Remplacer tous les nombres dans les cellules par des "x" avec du code VBA
Le code VBA suivant peut vous aider à remplacer tous les nombres dans les cellules sélectionnées par des "x" dans Excel. Veuillez procéder comme suit.
1. Sélectionnez les cellules contenant les nombres que vous souhaitez remplacer par des x, puis 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 Code.
Code VBA : Remplacer tous les nombres dans la plage sélectionnée par des "x" dans Excel
Sub ReplaceNoX()
Dim cell As Object
Dim val As String
Dim i As Integer
Dim n As String
Application.ScreenUpdating = False
For Each cell In Selection
If IsNumeric(cell.Value) Then
val = cell.Text
For i = 1 To Len(val)
n = Mid(val, i, 1)
If "0" <= n And n <= "9" Then
Mid(val, i, 1) = "x"
End If
Next
cell.Formula = val
End If
Next
Application.ScreenUpdating = True
End Sub
3. Appuyez sur la touche F5 pour exécuter le code. Vous pouvez alors voir que tous les nombres dans les cellules sélectionnées sont remplacés par des x, comme le montre la capture d'écran ci-dessous.
Articles connexes :
- Comment trouver et remplacer toutes les cellules vides par un certain nombre ou texte dans Excel ?
- Comment remplacer les virgules par des sauts de ligne (Alt + Entrée) dans les cellules dans Excel ?
- Comment remplacer les sauts de ligne par
dans Excel ?
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 !