Comment extraire des nombres de chaînes de texte alphanumériques dans Excel ?
Ce tutoriel propose trois méthodes pour vous aider à extraire des nombres de chaînes de texte alphanumériques dans Excel.
Extraire des nombres de chaînes de texte alphanumériques avec une formule
Extrayez facilement des nombres de chaînes de texte alphanumériques avec un outil incroyable
Extraire des nombres de chaînes de texte alphanumériques avec du code VBA
Extraire des nombres de chaînes de texte alphanumériques avec une formule
Vous pouvez appliquer la formule ci-dessous pour extraire des nombres n'importe où dans une chaîne de texte dans Excel.
1. Sélectionnez une cellule vide pour afficher les nombres extraits, saisissez la formule ci-dessous et appuyez sur la touche Entrée. Ensuite, faites glisser la poignée de recopie automatique vers le bas pour appliquer la formule à d'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 est la cellule qui contient la chaîne de texte dont vous souhaitez extraire les nombres. Veuillez la modifier en fonction de vos besoins.
Les nombres sont ensuite extraits de n'importe quel endroit dans une chaîne de texte dans les cellules spécifiées, comme le montre la capture d'écran ci-dessus.
Extrayez facilement des nombres de chaînes de texte alphanumériques avec Kutools pour Excel
Cette section recommande l'utilitaire Extraire le texte de Kutools pour Excel. Avec cet utilitaire, extraire des nombres d'une chaîne de texte devient facile à gérer.
1. Cliquez sur Kutools > Texte > Extraire le texte pour activer la fonctionnalité.
2. Dans la boîte de dialogue Extraire le texte, veuillez effectuer les paramètres suivants.
bouton pour sélectionner la plage de cellules à partir desquelles vous extrairaierez le texte;
Remarque : Cochez la case Insérer en tant que formule dans le coin inférieur gauche de la boîte de dialogue pour insérer le résultat sous forme de formule dans les cellules de résultat. Lorsque la valeur de la cellule référencée change, le résultat se mettra à jour automatiquement.
3. Dans la boîte de dialogue Extraire le texte, sélectionnez une cellule vide pour afficher le texte extrait, puis cliquez sur OK.
Ensuite, les nombres de n'importe quelle position dans une chaîne de texte sont extraits. Voir la capture d'écran :
Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis aller appliquer l'opération selon les étapes ci-dessus.
Ne conserver que les nombres dans des chaînes de texte alphanumériques avec du code VBA
Le code VBA suivant peut vous aider à supprimer tous les caractères non numériques d'une plage spécifiée et ne conserver que les nombres dans les cellules. Veuillez procéder comme suit.
Remarque : Comme le code exécute directement la plage d'origine, conservez une copie de la plage d'origine au cas où des données seraient perdues.
1. Appuyez simultanément sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insérer > Module. Ensuite, copiez et 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 apparaît, veuillez sélectionner la plage qui contient les chaînes de texte alphanumériques dont vous souhaitez ne conserver que les nombres, puis cliquez sur le bouton OK.
Maintenant, tous les caractères non numériques dans la plage sélectionnée ont été immédiatement supprimés, et seuls les nombres ont été conservés. Voir la capture d'écran :
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