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.

2.1) Cliquez sur l'onglet Extraire par position (cet onglet est activé par défaut);

2.2) Dans la Plage section, cliquez sur le bouton pour sélectionner la plage de cellules à partir desquelles vous extrairaierez le texte;

2.3) Dans la section Options : Sélectionnez l'option Extraire les nombres;

2.4) Cliquez sur OK.

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 :

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 Sub

3. 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 :