Comment supprimer les caractères alphabétiques des cellules dans Excel ?
Imaginez que vous deviez supprimer tous les caractères alphabétiques d’une plage dans Excel. Par exemple, une cellule peut contenir «lucase 13654698745», et vous souhaitez obtenir «13654698745». Comment supprimer rapidement tous les caractères alphabétiques des cellules ? Existe-t-il des solutions efficaces pour résoudre ce problème ?
Supprimer tous les caractères alphabétiques des cellules à l’aide d’un code VBA
Pour supprimer tous les caractères alphabétiques avec Kutools pour Excel en un seul clic
 |  |  |
Supprimer tous les caractères alphabétiques des cellules à l’aide d’un code VBA
Il est difficile de supprimer les caractères alphabétiques à l’aide d’une fonction Excel. Optez donc pour une solution VBA pour résoudre ce problème efficacement. Voici comment supprimer tous les caractères alphabétiques à l’aide de VBA.
1. Cliquez sur Développeur > Visual Basic ou appuyez sur Alt+F11 pour ouvrir une nouvelle fenêtre Microsoft Visual Basic pour Applications. Cliquez ensuite sur Insertion > Module, puis saisissez le code suivant :
VBA : Supprimer les caractères alphabétiques :
Sub RemoveAlphas()
'Updateby20131129
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 "[a-z.]" Or xTemp Like "[A-Z.]" Then
xStr = ""
Else
xStr = xTemp
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
3. Cliquez ensuite sur le bouton 
pour exécuter le code. Une boîte de dialogue s’ouvre alors, vous permettant de sélectionner une plage à traiter, comme illustré ci-dessous :
.
4. Cliquez sur OK, et tous les caractères alphabétiques seront supprimés.
Supprimez tous les caractères alphabétiques en un seul clic avec Kutools pour Excel.
Kutools pour Excel: plus de 300 compléments Excel pratiques, essai gratuit sans limitation pendant 30 jours.Téléchargez-le dès maintenant
Appliquez cet utilitaire en cliquant sur Kutools>Texte>Supprimer les caractères, comme illustré ci-dessous :
1. Sélectionnez la plage sur laquelle vous souhaitez travailler.
Étape 2. Cliquez sur Kutools > Outils texte dans le groupe Édition > Supprimer les caractères, puis cochez **Alphabétique** dans la boîte de dialogue Supprimer les caractères qui s’ouvre, comme illustré ci-dessous :
Étape 3. Cliquez sur OK ou sur Appliquer pour supprimer tous les caractères alphabétiques de la plage.
Cet utilitaire permet également de supprimer les caractères numériques, les caractères non numériques, les caractères non imprimables, et bien plus encore.
Pour en savoir plus sur la fonction Supprimer les caractères de Kutools pour Excel, consultez la page suivante : Supprimer les caractères.
Articles associés :
Supprimer les caractères non numériques des cellules
Supprimer les caractères numériques des cellules
Supprimer les caractères non imprimables des cellules
Supprimer les caractères non alphabétiques des cellules
Supprimer les caractères non alphanumériques
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre 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 rend votre travail bien plus facile
- Activez l’édition 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é de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels