Comment extraire des nombres à partir de chaînes alphanumériques dans Excel ?
Ce tutoriel vous présente trois méthodes efficaces pour extraire des nombres à partir de chaînes alphanumériques dans Excel.
Extraire des nombres à partir de chaînes alphanumériques à l’aide d’une formule
Extraire facilement des nombres à partir de chaînes alphanumériques grâce à un outil remarquable
Extraire des nombres à partir de chaînes alphanumériques à l’aide d’un code VBA
Extraire des nombres à partir de chaînes alphanumériques à l’aide d’une formule
Vous pouvez utiliser la formule ci-dessous pour extraire des nombres situés n’importe où dans une chaîne de texte sous Excel.
1. Sélectionnez une cellule vide pour afficher les nombres extraits, saisissez la formule ci-dessous, puis appuyez sur la touche Entrée. Ensuite, faites glisser la poignée de recopie vers le bas pour appliquer la formule aux autres cellules.
=IF(SUM(LEN(A2)-LEN(SUBSTITUTE(A2, {"0","1","2","3","4","5","6","7","8","9"}, «»)))>0, SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2,ROW(INDIRECT(«$1:$»&LEN(A2))),1))* ROW(INDIRECT(«$1:$»&LEN(A2))),0), ROW(INDIRECT(«$1:$»&LEN(A2))))+1,1) * 10^ROW(INDIRECT(«$1:$»&LEN(A2)))/10),«»)
Remarque : Dans la formule, A1 correspond à la cellule contenant la chaîne de texte dont vous souhaitez extraire les chiffres. Pensez à l’adapter selon vos besoins.
Les nombres sont alors extraits de n’importe quelle position dans une chaîne de texte des cellules spécifiées, comme illustré dans la capture d’écran ci-dessus.
Extraire facilement des nombres à partir de chaînes alphanumériques avec Kutools pour Excel
Cette section vous recommande l’utilitaire « Extraire le texte » de Kutools pour Excel, qui rend l’extraction de nombres à partir d’une chaîne de texte simple et efficace.
1. Cliquez sur Kutools > Texte > Extraire le texte pour activer cette fonctionnalité.
2. Dans la boîte de dialogue Extraire le texte, procédez comme suit.
pour sélectionner la plage de cellules à partir de laquelle vous allez Extraire le texte ;
Remarque : Cocher la case Insérer en tant que formule, en bas à gauche de la boîte de dialogue, insère le résultat sous forme de formule dans les cellules cibles ; dès que la valeur de la cellule référencée change, le résultat est automatiquement mis à jour.
3. Dans la boîte de dialogue Extraire le texte, sélectionnez une cellule vide pour afficher le texte extrait, puis cliquez sur OK.
Les nombres situés à n’importe quelle position dans une chaîne de texte sont alors extraits. Voir la capture d’écran :
Si vous souhaitez profiter d’un essai gratuit de 30 jours de cet utilitaire,cliquez ici pour le télécharger, puis suivez les étapes indiquées ci-dessus.
Conserver uniquement les nombres dans des chaînes alphanumériques à l’aide d’un code VBA
Le code VBA suivant vous permet de supprimer tous les caractères non numériques d’une plage limitée et de conserver uniquement les chiffres dans les cellules. Procédez comme suit.
Remarque : comme le code s’exécute directement sur la plage d’origine, veuillez conserver une copie de celle-ci au cas où vous perdiez des données.
1. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insertion>Module, puis copiez-collez le code VBA ci-dessous dans la fenêtre Module.
Code VBA : supprimer tous les caractères non numériques des cellules
Sub GetNumbers()
'Updated by Extendoffice 20210125
Dim xRegEx As Object
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Pease select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRegEx = CreateObject("VBScript.RegExp")
With xRegEx
.Pattern = "\D+"
.IgnoreCase = True
.Global = True
End With
xRg.NumberFormat = "@"
For Each xCell In xRg
xCell.Value = xRegEx.Replace(xCell.Value, "")
Next
Set xRegEx = Nothing
End Sub3. Appuyez sur la touche F5 pour exécuter le code. Une boîte de dialogue Kutools pour Excel s’ouvre alors ; veuillez sélectionner la plage contenant les chaînes alphanumériques dont vous souhaitez conserver uniquement les nombres, puis cliquez sur le bouton OK.
Tous les caractères non numériques Plage sélectionnée ont désormais été immédiatement supprimés, et seuls les nombres sont conservés. Voir la capture d’écran :
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