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 Sub3. 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
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement 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 chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels