Comment supprimer les caractères numériques des cellules dans Excel ?
Supposons que vous ayez une feuille de calcul contenant beaucoup d'informations comme "James987den", où les données incluent à la fois des caractères alphabétiques et numériques, et que vous souhaitiez conserver les caractères alphabétiques tout en supprimant les caractères numériques pour toutes ces données. Par exemple, convertir "James987den" en "Jamesden". Existe-t-il des moyens rapides pour y parvenir ?
Supprimer les caractères numériques avec un code VBA
Supprimer rapidement les caractères numériques avec Kutools pour Excel
 |  |  |
Supprimer les caractères numériques avec un code VBA
Si vous êtes familiarisé avec le code VBA, vous pouvez utiliser cette méthode en suivant les étapes ci-dessous :
1. Cliquez sur "Développeur" > "Visual Basic" ou utilisez les raccourcis ("ALT" + "F11") dans Excel pour activer la fenêtre Microsoft Visual Basic pour applications, puis cliquez sur "Insérer" > "Module".
2. Entrez le code suivant dans le module :
Sub RemoveNum()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xOut = ""
For i = 1 To Len(Rng.Value)
xTemp = Mid(Rng.Value, i, 1)
If xTemp Like "[0-9.]" Then
xStr = ""
Else
xStr = xTemp
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
4. Ensuite, cliquez sur le bouton "Exécuter" pour appliquer le code. Une boîte de dialogue apparaît à l'écran, vous pouvez sélectionner une plage pour supprimer tous les caractères numériques. Voir capture d'écran :
5. Cliquez sur "OK", tous les caractères numériques ont été supprimés.
Supprimer rapidement les caractères numériques avec Kutools pour Excel
L'outil "Supprimer des caractères" de "Kutools pour Excel" est un outil puissant pour supprimer plusieurs types de caractères.
"Kutools pour Excel" : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation pendant 30 jours. Obtenez-le maintenant
Étape 1. Sélectionnez la plage avec laquelle vous souhaitez travailler.
Étape 2. Cliquez sur "Kutools" > "Texte" > "Supprimer des caractères", dans la boîte de dialogue, cochez "Numérique", voir capture d'écran :
Étape 3. Cliquez sur "OK" ou "Appliquer" pour supprimer les caractères numériques dans les plages.
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